ajouter un commentaire si enregistrement classeur

[jtitin]

bonjour à tous

je cherche une macro pouvant me créer ou modifier un commentaire dans la cellule A1 de la feuil1 , s'il y a enregistrement du classeur.
c'est à dire:
je travail sur la feuil1 et j'apporte des modifications.
alors à l'enregistrement je rajoute un commentaire ou je le modifi ( Utilisateur avec Date et Heure)
si j'ouvre le classeur mais referme sans enregistrer, alors pas de modification du commentaire

merci de votre aide

 

[PascalXLD]

Re : ajouter un commentaire si enregistrement classeur

Bonjour

essaies de le thisworkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1").Comment.Text Text:=Application.UserName & " " & Now
End Sub

 

[job75]

Re : ajouter un commentaire si enregistrement classeur

Bonjour jtitin, salut Pascal,

Au cas où le commentaire ne serait pas déjà créé :

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
With Sheets("Feuil1").[A1]
.ClearComments
.AddComment
.Comment.Text Environ("Username") & Chr(10) & Now
End With
End Sub

Edit : avec Environ, c'est le nom utilisateur de Windows qui est utilisé, il est moins facilement modifiable que celui d'Excel.

A+

 

[jtitin]

Re : ajouter un commentaire si enregistrement classeur

Merci PascalXLD , job75
pour votre réponse super rapide

je test desuite

merci encore