Afficher un commentaire à l'ouverture d'un classeur

[Madjon6]

Bonjour,

Je souhaite qu'à l'ouverture d'un fichier excel un message s'affiche mais avec la condition que le message à afficher soit récupérer de l'onglet commentaire de sorte à ce que le message ne soit pas saisit dans le code Vba.

Pourriez vous m'aider s'il vous plaît ?

Ci-joint un exemple pour ajouter le code VBA.

Merci à vous

 

[Banzai64]

Re : Afficher un commentaire à l'ouverture d'un classeur

Bonjour

A placer dans ThisWorkBook

Private Sub Workbook_Open()
  With Sheets("Commentaire").Range("A1")
    If .Text <> "" Then
      MsgBox .Text
    End If
  End With
End Sub

 

[Madjon6]

Re : Afficher un commentaire à l'ouverture d'un classeur

Merci beaucoup.

Bon courage à toi.

 

[Pierrot93]

Re : Afficher un commentaire à l'ouverture d'un classeur

Bonjour Madjon, Banzai

Afin d'éviter une erreur si le commentaire n'existait pas, à placer au début de la procédure :

Dim c As Comment
Set c = Range("A1").Comment
If c Is Nothing Then Exit Sub

bonne fin d'après midi
@+