nommer un fichier excel

[eliot]

Bonjour à tous.

Je souhaiterai enregistrer et nommer un classeur excel automatiquement avec le contenu d'une cellule.

Exemple : dans la cellule A1 de la feuille 1 ce trouve un mot "x ou y", je voudrai qu'a chaque enregistrement, le classeur prenne le mot ce trouvant dans cette cellule.

Merci pour votre aide.

 

[néné06]

Re : nommer un fichier excel

Bonjour Eliot,

Regardes si cela te convient ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & (Sheets("Feuil1").Cells(1, 1))
End Sub


A+

René

 

[Robert]

Re : nommer un fichier excel

Bonjour le fil, bonjour le forum,

Pas du tout sûr de la nécessité Néné, mais j'aurais quand même rajouté l'extention (& ".xls" ou & ".xlsm") dans le code...

 

[néné06]

Re : nommer un fichier excel

Bonjour Robert

Je ne sais pas si l'extension ".xlsm" est nécessaire et je pense que les autres membres nous apporteront des éclaircissements

A+


René

 

[Guest]

Re : nommer un fichier excel

Bonjour,

D'accord avec Robert:

Si application.DefaultSaveFormat est sur 51 (xlOpenXMLWorkbook: classeur sans macro) il y aura une alerte et si l'on supprime les alertes alors les macros ne seront pas enregistrées.

Si on ne veut pas rajouter l'extension:

SaveAs: "nomdefichier",xlOpenXMLWorkbookMacroEnabled

A+