Bonjour,

J'ai un fichier Excel que je souhaite fermer automatiquement si à un msgbox, présent dans ce fichier, on répond "oui".

Voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
    rep5 = MsgBox("Avez vous un autre ordre d'affrètement à faire ?", vbYesNo + vbQuestion, "Nouvel ordre d'affrètement")
        If rep5 = 6 Then
            Range("e5").Select
        Else
            ActiveWorkbook.Close
        End If
 
 
End Sub
Mais Excel plante.

Est-il possible de fermer automatiquement le fichier où se trouve la macro ?

Merci

Catherine