Msgbox à l'ouverture

[Romael]

Bonjour à tous,
Je rencontre le problème suivant :
J'ai un classeur composé d'une feuille de données (divers tableaux) et de plusieurs feuilles de graphiques qui en découlent.
Je veux faire apparaitre un message à l'ouverture du classeur mais je constate que mon message apparait sur un fond blanc au lieu d'être en surimpression sur la page de donnée.
Après divers essais j'ai constaté que le 'phénomène' se produit uniquement dés qu'il y a une feuille de graphique dans le classeur.
Exemple classeur test ci-joint. Avec la feuille du graphique ça ne marche pas, si on la supprime ça marche !!!.
Quelqu'un aurait-il une solution ?
Merci d'avance et bonne journée [file name=Romsgbox.zip size=4972]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Romsgbox.zip[/file]

 

[excalibur]

bonjour romael le forum essaie comme cela Private Sub workbook_open()
pausetime = 0.02
Start = Timer
Do While Timer < Start + pausetime
DoEvents
Loop
MsgBox ' message'
End Sub'salutations

 

[Claude]

Bonjour à tous

une autre solution :

Private Sub Workbook_Open()
ActiveSheet.Activate
MsgBox 'Blabla'
End Sub

j'ai essayé , ça fonctionne

bonne journée

 

[Claude]

Bonjour à tous

une autre solution :

Private Sub Workbook_Open()
ActiveSheet.Activate
MsgBox 'Blabla'
End Sub

j'ai essayé , ça fonctionne

bonne journée

 

[Romael]

Bonjour à tous

Super ! les deux solutions fonctionnent parfaitement.
Merci beaucoup et bonne fin d'année à tous.