jcf6464
XLDnaute Occasionnel
Bonjour le forum
j'ai beau chercher pas trouvé
je cherche a fermer toutes les pages du classeur avant sauvegarde comment intégrer la macro du masquage des feuilles
j'ai ce code
merci d'avance jcf64
j'ai beau chercher pas trouvé
je cherche a fermer toutes les pages du classeur avant sauvegarde comment intégrer la macro du masquage des feuilles
j'ai ce code
Public Sub CommandButton1_Click() 'copie sauvegarde classeur
Dim nom As String
Dim rep As Integer
nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
ActiveWorkbook.Close savechanges:=False
End Sub
merci d'avance jcf64
Dernière édition: