Exit Sub quand Ok sur MsgBox

[hypo78]

Bonsoir,

çà a l'air tellement bête, que j'ose à peine poser la question, mais comme je galère .....😱

Dans le déroulement de ma macro, un fichier doit être présent dans un dossier bien particulier.
Pour que l'utilisateur ne soit pas en débogage, j'ai souhaité mettre une msgbox.
Jusque là çà fonctionne mais comment stopper la macro quand on clique sur OK.

Mon code actuel arrête bien la macro quand le dossier n'est pas présent, mais il l'arrête aussi quand on n'a pas la msgbox.....

 If Dir(ActiveDocument.Path & "\Bulletin" & Mois & ".doc") = "" Then MsgBox ("le bulletin modèle du mois " & Mois & " à créer n'existe pas")
    Exit Sub

Quand j'ajoute un End If j'ai le message End If sans bloc If

Merci d'avance

 

[hypo78]

Re : Exit Sub quand Ok sur MsgBox

re,

c'est bon j'ai trouvé...

If Dir(ActiveDocument.Path & "\Bulletin" & Mois & ".doc") = "" Then If MsgBox("le bulletin modèle du mois " & Mois & " à créer n'existe pas") = vbOK Then Exit Sub

C'était vraiment trop😡 c....

Bon WE à tous

 

[Papou-net]

Re : Exit Sub quand Ok sur MsgBox

Bonsoir hypo78,

Il faut passer à la ligne après le Then :

If Dir(ActiveDocument.Path & "\Bulletin" & Mois & ".doc") = "" Then
    MsgBox ("le bulletin modèle du mois " & Mois & " à créer n'existe pas")
    Exit Sub
End If

Tout simplement.

Cordialement.

 

[hypo78]

Re : Exit Sub quand Ok sur MsgBox

bjr,

merci, parfois faudrait faire des pauses pour être plus lucide...😉