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