VBA Enregistrement automatique

Bonjour le forum, petite question;

J'ai ce code qui me permets, sur un bouton, de sauvegarder la feuille actuelle dans un dossier precis avec le nom "Fiche_Mouvement_" & Range("H5") & extension.

A aujourd'hui, j'aimerai enregistrer tout le classeur et non la feuille active et je bloque, pouvez vous m'aide rsvp, merci :

Else
    Dim extension As String
    Dim chemin As String, nomfichier As String
    Dim style As Integer
    Application.ScreenUpdating = False
    ThisWorkbook.ActiveSheet.Copy
    extension = ".xlsx"
    chemin = "c:\DATAS\fiches_de_mouvements\"
    nomfichier = ActiveSheet.Range("A1") & "Fiche_Mouvement_" & Range("H5") & extension
    With ActiveWorkbook
        .SaveAs Filename:=chemin & nomfichier
        .Close
    End With
     End If
    End Sub

Bonjour Anne64 le forum

tu veux le classeur complet mais tu veux l'enregistrer avec le même nom que tu faisais pour la feuille simple??

a+

Papou

Re Anne 64 le forum

si oui

a+

Papou

Else
    Dim extension As String
    Dim chemin As String, nomfichier As String
    Dim style As Integer
    Application.ScreenUpdating = False
    extension = ".xlsx"
    chemin = "c:\DATAS\fiches_de_mouvements\"
    nomfichier = ActiveSheet.Range("A1") & "Fiche_Mouvement_" & Range("H5") & extension
    With  ThisWorkbook
        .SaveAs Filename:=chemin & nomfichier
        .Close
    End With
     End If
    End Sub

Hello Paritec et merci pour tes réponses; donc oui le classeur complet et le même format de nom.

Apres avoir testé, cela fonctionne ! Merci bien pour ton aide !

re anne 64 le forum

alors c'est parfait

bon weekend

Papou