Macro copie nom de sauvagarde dans feuille excel

wilfried_42 à dit:

Bonjour

Je ne sais pas si j'ai tout compris

à Mettre dans workbook

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If sauvesur = True Then
        Sheets(1).Range("A1").Value = ThisWorkbook.Name
        ThisWorkbook.Save
    End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI = True Then sauvesur = True
End Sub


Private Sub Workbook_Open()
    sauvesur = False
End Sub

à mettre dans un module

Code:

Public sauvesur As Boolean

fichier exemple joint
la mise à jour de la cellule A1, de la feuille 1, ne sera effective qui s'il y a un SaveAs et ensuite une fermeture (Une petite modif permettra d'effectuer plusieurs saveAs de suite

@ te lire

Cliquez pour agrandir...