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

Résolu/Fermé
tit2014 Messages postés 5 Date d'inscription samedi 15 février 2014 Statut Membre Dernière intervention 23 février 2014 - 23 févr. 2014 à 15:49
tit2014 Messages postés 5 Date d'inscription samedi 15 février 2014 Statut Membre Dernière intervention 23 février 2014 - 23 févr. 2014 à 18:33
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

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
23 févr. 2014 à 17:57
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
tit2014 Messages postés 5 Date d'inscription samedi 15 février 2014 Statut Membre Dernière intervention 23 février 2014
23 févr. 2014 à 18:33
Merci beaucoup

Problème résolu
0