laurent999
XLDnaute Occasionnel
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.
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.