Vba coller valeur cellule sur une autre cellule avec variable

Résolu
walyddu59 Messages postés 53 Date d'inscription jeudi 29 mars 2012 Statut Membre Dernière intervention 9 juin 2012 - 14 mai 2012 à 09:39
walyddu59 Messages postés 53 Date d'inscription jeudi 29 mars 2012 Statut Membre Dernière intervention 9 juin 2012 - 14 mai 2012 à 13:19
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

walyddu59 Messages postés 53 Date d'inscription jeudi 29 mars 2012 Statut Membre Dernière intervention 9 juin 2012
14 mai 2012 à 10:05
j'ai résolus le proleme je poste la solution , merci a tous .

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


Cordialement .
3