Mgsbox message

bonsoir le forum

voila mon petit problème ,j ai un boutons qui ouvre un fichier pdf qui est la bienvenue pour le lire je voudrais mettre un message pour avertir si je destinataire est sur !!!!!voila mon code mais je sais pas ou le placé se msgbox ni codé un msgbox

pouvez vous m aidé svp

avec tout mes remercîments

Option Explicit

Private Sub ListBox1_Click()

ShellExecute 0, "open", ThisWorkbook.Path & "\" & ListBox1, "", "", 0 'chemin à adapter éventuellement

End Sub

Private Sub UserForm_Initialize()

Dim fichier$

fichier = Dir(ThisWorkbook.Path & "\*.pdf") 'chemin à adapter éventuellement

While fichier <> ""

ListBox1.AddItem fichier

fichier = Dir

Wend

UserForm4.Caption = " " & ListBox1.ListCount & " fichier(s) PDF à ouvrir"

End Sub

merci solution trouvé merci quand même

Rechercher des sujets similaires à "mgsbox message"