ajouter un commentaire si enregistrement classeur

jtitin · 7 Mai 2009

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 · 7 Mai 2009

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 · 7 Mai 2009

Re : ajouter un commentaire si enregistrement classeur

Bonjour jtitin, salut Pascal,

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

Code:

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 · 7 Mai 2009

Re : ajouter un commentaire si enregistrement classeur

Merci PascalXLD , job75
pour votre réponse super rapide

je test desuite

merci encore

ajouter un commentaire si enregistrement classeur

jtitin

XLDnaute Occasionnel

PascalXLD

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

jtitin

XLDnaute Occasionnel

Discussions similaires

ajouter un commentaire si enregistrement classeur

jtitin

XLDnaute Occasionnel

PascalXLD

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

jtitin

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency