MAJ auto du nom du fichier d'après une cellule

L

Ludwig

Guest

• 16 Février 2005

• #2

Salut,

En attendant un peu, tu peux essayer ceci:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:= _
"C:\" & Range("A1").Value & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Bonne soirée

Ludwig

 

Vote positif 0 Vote négatif

S

steph

Guest

• 16 Février 2005

• #3

Bonjour Ludwig et merci de ta réponse !

j'ai essayé la macro, mais sans suucès apparemment, ça ne me change pas le nom du fichier... :-/

peut-être aurais-tu qqch d'autre ?

Merci

A+

 

Vote positif 0 Vote négatif

P

philippe

Guest

• 16 Février 2005

• #4

Salut,
tu trouveras la solution dans le post "pousser un classeur au suicide" que j'avais envoyé il y a 1 semaine environ (tu le trouveras en tapant "suicide" dans le moteur de recherche du forum. Le dernier post que j'ai envoyé sur ce sujet répondra à ton problème
Bonne soirée

 

Vote positif 0 Vote négatif

J

jfv

Guest

• 17 Février 2005

• #5

Bonjour Steph et a tous

Essaye ceci, cela devrait te donner une idée..

 

Pièces jointes

• Steph.zip

  8.7 KB · Affichages: 37
• Steph.zip

  8.7 KB · Affichages: 37
• Steph.zip

  8.7 KB · Affichages: 36

Vote positif 0 Vote négatif