Vba coller valeur cellule sur une autre cellule avec variable [Résolu]

Signaler
Messages postés
53
Date d'inscription
jeudi 29 mars 2012
Statut
Membre
Dernière intervention
9 juin 2012
-
Messages postés
53
Date d'inscription
jeudi 29 mars 2012
Statut
Membre
Dernière intervention
9 juin 2012
-
Bonjour , le forum

Je bloque sur une chose toute bête , je n'arrive pas a coller la valeur cellule sur une autre cellule avec un variable j'ai tout tente mais rien n'y fais je vous joint la macro en espérant avoir une aide .

Cordialement .

Sub extraction()

Dim Lenom As String
Dim fichier As String 'variable qui pose probleme
Lenom = Range("A3").Value.Paste
fichier = Range("A3").Value ' variable pour copier la cellule
Columns("K").Select
Selection.Copy
Workbooks.Add
Sheets.Select
Columns("B").Select
ActiveSheet.Paste
Sheets.Select
Range("A1").Select& fichier ' code pour coller la cellulle
On Error Resume Next
ActiveWorkbook.SaveAs Filename:="N:\Service RAMS - LCC\DN_Aff\Base de travail REX\Restitution qualité" & Lenom & ".xls"

End Sub

3 réponses

Messages postés
53
Date d'inscription
jeudi 29 mars 2012
Statut
Membre
Dernière intervention
9 juin 2012

j'ai résolus le proleme je poste la solution , merci a tous .

Lenom = Range("A3").Value
Range("A1").Select
Selection.Value = Lenom


Cordialement .
Messages postés
14788
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
1 mai 2021
155
Bonjour,

Pas la peine de passer par un Select :
Range("A1").Value=Range("A3").Value

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Messages postés
53
Date d'inscription
jeudi 29 mars 2012
Statut
Membre
Dernière intervention
9 juin 2012

salut merci ça fonctionne je connaissais pas cette méthode .