Help....

[laurent999]

Bonjour a tous,
J'ai enfin réussi a ouvrir un nouveau classeur a partir d'un autre classeur et de l'enregistrer en fonction de la cellule A5. a l'aide de:

Dim chemin As String, fichier As String
chemin = ThisWorkbook.Path
fichier = chemin & "\Client\" & Range("A5") & ".xls"
ActiveWorkbook.SaveAs Filename:=fichier

Je dois copier des infos de l'ancien classeur vers le nouveau.
j'arrive à selectionner lancien classeur par Windows("ancien classeur").activate
Range ("A8").select.copy
et la je n'arrive pas a selectionner le nouveau classeur
j'ai essayé windows["&A5&".xls].activate
cela ne fonctionne pas
J'ai essayé widows("["&A5&".xls]").activate
cela ne fonctionne toujours pas
j'ai essayé red=["&A5&".xls]
windows("red").activate
toujours rien
Je suis bloqué
Si quelqu'un peut m'aider

Merci d'avance.
Laurent.

 

[d.ryba]

Re : Help....

Essaye

Dim chemin As String, fichier [COLOR="Red"],Nom[/COLOR]
chemin = ThisWorkbook.Path
fichier = chemin & "\Client\" & Range("A5") & ".xls"
[COLOR="Red"]Nom = ActiveWorkbook.ActiveSheet.Range("A5").Value & ".xls[/COLOR]
ActiveWorkbook.SaveAs Filename:=fichier


puis

[COLOR="Red"]Windows(Nom).Activate[/COLOR]

 

[laurent999]

Re : Help....

Merci D.riba

Cela fonctionne parfaitement

Encore un grand merci
Cela faisiat 3 heures que je me prennaitla tête

Merci merci merci

A+
Laurent