ma macro plante si je sauve sous un autre nom

[thibaut]

bonsoir a tous
grace a beaucoup d'entre vous j'ai enfin je devrais dire nous car moi a part des ctrl+C ctrl+V j'ai pas fait grand chose avons mis au point une macro dont voici le code

Sub CréationFiche1()


Workbooks.Open Filename:= _
"C:\Documents and Settings\tzimmermann\Bureau\REFONTE FICHE VISIONNAGE\SPACE TEST\visio.xls"
Workbooks("visio.xls").Sheets("Modele").Range("I4") = Workbooks("FicheAtWork.xls").ActiveSheet.Range("C8")
Workbooks("visio.xls").Sheets("Modele").Range("C4") = Workbooks("FicheAtWork.xls").ActiveSheet.Range("D8")
Workbooks("visio.xls").Sheets("Modele").Range("F2") = Workbooks("FicheAtWork.xls").ActiveSheet.Range("C2")
Workbooks("visio.xls").Sheets("Modele").Range("I5") = Workbooks("FicheAtWork.xls").ActiveSheet.Range("E8")
Workbooks("visio.xls").Sheets("Modele").Copy After:=Workbooks("FicheAtWork.xls").Sheets(Sheets.Count)
Workbooks("FicheAtWork.xls").ActiveSheet.Name = Range("I4") & " " & Range("C4")
Workbooks("visio.xls").Close False

End Sub

le probleme c'est que la macro fonctionne je ne change pas le nom du fichier de base FicheAtWork.xls mais au moment ou je le sauve sous un autre nom ben plus rien ne fonctionne alors je ne sais pas trop comment faire j'avoue que je ne sais meme pas si c'est faisable ...

si vous avez une petite idée ce serais avec plaisire

merci
thibaut

 

[Eric S]

Bonsoir

peux-tu être plus précis ?

est-ce le fichier "FicheAtWork" qui contient la macro en question ?

Pourquoi sauvegardes-tu en changeant de nom?

Quand tu dis plus rien en fonctionne, est-ce lorsque tu ré-ouvres le fichier avec le nouveau nom?

A+

 

[thibaut]

hello
en fait j'ai résolue le pb j'ai fait la macro en interne du fichier comme ça il n'y a plus de pb d'adressage de fichier et meme si je sauve sous une autre nom ya plus de pb

merci

thibaut