800vfr76
XLDnaute Occasionnel
Bonjour à tous,
Je cherche à modifier ma macro de la façon suivante, mais je ne trouve pas la solution.
Macro actuelle:
Workbooks.Open Filename:= _
'"D:\Documents Thierry\toto\titi\tutu\Classeur2.xls"
Le fichier s'ouvre sans problème. J'ai une macro qui me place en O1 le chemin
Sheets("Feuil1").Range("O1") = ThisWorkbook.Path
Ce qui me donne: "D:\Documents Thierry\toto\titi
Ce que je souhaiterais c'est qu'a la place de
'"D:\Documents Thierry\toto\titi\tutu\Classeur2.xls"
le chemin fasse référence à O1. J'ai essayé ça mais sans succès:
Workbooks.Open Filename:= _
"Range("O1").value\tutu\Classeur2.xls"
Ensuite j'ai la même pour enregistrer le fichier.
ActiveWorkbook.SaveAs Filename:="D:\Documents Thierry\toto\titi\tutu\01 Janvier\" & Range("A1").Value & ".xls"
Il me faudrait la même chose pour l'enregistrement.
Merci à vous si vous avez la solution, si vous ne l'avez pas , merci quand même.
Je cherche à modifier ma macro de la façon suivante, mais je ne trouve pas la solution.
Macro actuelle:
Workbooks.Open Filename:= _
'"D:\Documents Thierry\toto\titi\tutu\Classeur2.xls"
Le fichier s'ouvre sans problème. J'ai une macro qui me place en O1 le chemin
Sheets("Feuil1").Range("O1") = ThisWorkbook.Path
Ce qui me donne: "D:\Documents Thierry\toto\titi
Ce que je souhaiterais c'est qu'a la place de
'"D:\Documents Thierry\toto\titi\tutu\Classeur2.xls"
le chemin fasse référence à O1. J'ai essayé ça mais sans succès:
Workbooks.Open Filename:= _
"Range("O1").value\tutu\Classeur2.xls"
Ensuite j'ai la même pour enregistrer le fichier.
ActiveWorkbook.SaveAs Filename:="D:\Documents Thierry\toto\titi\tutu\01 Janvier\" & Range("A1").Value & ".xls"
Il me faudrait la même chose pour l'enregistrement.
Merci à vous si vous avez la solution, si vous ne l'avez pas , merci quand même.
Dernière édition: