Afficher un commentaire à l'ouverture d'un classeur

Madjon6 · 4 Novembre 2010

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 · 4 Novembre 2010

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

Bonjour

A placer dans ThisWorkBook

Code:

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

Madjon6 · 4 Novembre 2010

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

Merci beaucoup.

Bon courage à toi.

Pierrot93 · 4 Novembre 2010

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 :

Code:

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

bonne fin d'après midi
@+

Afficher un commentaire à l'ouverture d'un classeur

Madjon6

XLDnaute Occasionnel

Pièces jointes

Banzai64

XLDnaute Accro

Madjon6

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Discussions similaires