Sujet Précédent Sujet Suivant

Nommer un fichier excel.

eliot34 Messages postés 2220 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 11033 Statut Membre -
Bonjour à tous.

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

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

Merci pour votre aide.

1 réponse

Réponse 1 / 1
ccm81 Messages postés 11033 Statut Membre 2 434
 
Bonjour

A mettre dans le module Workbook 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim nf As String
nf = ActiveSheet.Range("A1").Value
ActiveSheet.Name = nf
ActiveWorkbook.Save
End Sub

Cdlmnt
0