fenetre popup d'avertissement

[Jojo973]

Bonjour à tous, J'ai créé un bouton à partir d'une image auquel j'ai associé une macro, mais j'aimerai qu'une fois que l'on clique, une popup d'avertissement apparaisse avec un message du style "êtes vous sûr de vouloir effacer le fichier?" avec un choix "oui" donc action de la macro ou "non" abandon de la procédure.
merci
😎

 

[camarchepas]

Re : fenetre popup d'avertissement

Bonjour ,

Une solution possible

Option Explicit

Sub Choix()
Dim Reponse As Byte
Reponse = MsgBox("Etes - vous sûr de vouloir effacer ce fichier? ", vbYesNo, "Attente Utilisateur")
If Reponse = vbYes Then

    MsgBox " On efface"
   'code pour effacer fichier
 Else
 
   MsgBox "on ne fait rien "
   
End If
End Sub

 

[Jojo973]

Re : fenetre popup d'avertissement

Merci beaucoup, çà fonctionne super !😎