Salut Zon et Salut le forum!!!
Je vois que je n'ai pas ete assez clair, je vais essayer de donner plus de precisions:
En fait je n'ai pas de probleme pour obtenir le chemin du fichier original, j'utilise activeworkbook.fullname ou thisworkbook.fullname.
Ensuite ce workbook en cree un nouveau et cree une macro a l'interieur de celui ci comme je l'ai dit dans le premier message.
Cette macro dois etre capable de retrouver le fichier qui l'a cree peu importe ou il est, car elle doit effectuer des modifications sur celui ci.
Pour l'instant j'enregistre le chemin complet (du fichier "pere") dans une cellule du nouveau workbook, ensuite la macro de celui ci execute un workbook.open filename:= cells(,).value et hop on rouvre le fichier pere pour les modifs.
Je voudrais eviter de passer par l'inscription de ce chemin sur la feuille car je vais etre oblige de la proteger en ecriture et tout ce qui s'ensuit pour eviter une fausse manip d'un utilisateur.
Pour ca je souhaitais utiliser le fait qu'on "ecrit" la macro et ainsi garder ce chemin dans le code...
Donc la prochaine fois j'eviterai de lancer un nouveau fil avant de n'avoir un peu plus reflechi car je viens de trouver la reponse:
Sub EcrireThisWorkBook()
Dim X As Integer
With Workbooks("New.xls").VBProject.VBComponents("ThisWorkbook").CodeModule
X = .CountOfLines
.InsertLines X + 1, "Private Sub Workbook_Open()"
.InsertLines X + 2, "workbook.open filename;=" & workbooks("Fichierpere.xls").fullname
.InsertLines X + 3, "End Sub"
End With
End Sub
Merci d'avoir pris de ton temps pour me repondre et encore desole si je n'ai pas ete tres clair mais c'etait pas tres facile a expliquer (enfin je trouve).
Merci forum !!!
Salut!