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

  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

Discussions similaires

question pix mot caché
aorum10 -
pixlagalere -

7 réponses