Remplacer le nom d'un fichier figé d'une macro par une variable

Résolu
tit2014 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
tit2014 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

Novice en macro, je souhaiterai un peu d'aide sur ce problème.

Après avoir fait une extraction de données sur excel, j'ouvre automatiquement le fichier qui m'intéresse en lien avec ces données :


'après avoir renseigner le nom du fichier dans la cellule A1, on concatener le chemin de ce fichier pour le rapatrier'

Range("B1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(""f:\thierry\"",RC[-1],"".xlsm"")"
Range("B2").Select

'ouvre le ficher dont le chemin est mentionné en B1'

Workbooks.Open (Sheets(1).Range("B1").Value)



Là où je bloque c'est dans le copier-coller de ces données dans le fichier ouvert puisque la macro fige les noms des deux fichiers (lignes soulignées). Tout en sachant que le premier fichier aura toujours le même nom, ici "SITUATION FD macro1.xlsm"

'rapatriement de l'extration dans le fichier de synthese fédération à transmettre'

Windows("SITUATION FD macro1.xlsm").Activate
Cells.Select
Selection.Copy
Windows("FD75.xlsm").Activate

Je souhaiterai remplacer le deuxième fichier (ici "FD75.xlsm") par une variable (le nom est toujours le fichier ouvert en début de macro (cf mentionné en italique)

J'espère avoir été clair... merci d'avance pour votre aide
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

un exemple: 

Sub test()
    'ouvre le ficher
    Fichier = Sheets(1).Range("A1") & ".xlsm"
    Chemin = "f:\thierry\" & Fichier
    Workbooks.Open (Chemin)
'
'
'
    Windows("SITUATION FD macro1.xlsm").Activate
    Cells.Select
    Selection.Copy
    Windows(Fichier).Activate
End Sub
0
Réponse 2 / 2
tit2014 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup

Problème résolu
0

Discussions similaires

Annuaire portable gratuit à partir d'un nom
dani26 -
Authority -

9 réponses