Re : Select case msgbox
Bonjour,
Essaie le code suivant :
'----------------------------------------------------
Sub Boîte_De_Message()
Const Titre As String = "Fermeture Automatique de la boîte de message"
Dim Wsh As Object, Réponse As Integer, Délai As Integer
Délai = 5 'Délai en seconde avant la fermeture de la fenêtre
Set Wsh = CreateObject("WScript.Shell")
Réponse = Wsh.popup("Voulez-vous quitter l'application?" & vbCrLf & _
"Vous avez 5 secondes pour répondre.", Délai, Titre, 4 + 64 + 0)
If Not Réponse = 6 Then
Wsh.popup "Poursuite de l'opération !", 1, Title, 0 + 64
'Code à exécuter...
Else
Wsh.popup "Opération abandonnée !", 1, Title, 0 + 64
End If
Set Wsh = Nothing
End Sub
'----------------------------------------------------