[XL-2003] Ajout d'une MsgBox [Résolu]

[korni184]

Bonjour,

Je souhaite ajouter au code ci-dessous, le moyen d'afficher un message avec "oui" ou "non" afin de déclencher ou pas l'action :

Code :

1
2
3
4
Windows("CARTE.xls").Activate
Sheets("IMAGE1").select
Windows("Macro_Tableau.xls").Activate
Sheets("Résultat").select

Le message : "Utilisez-vous la fichier d'origine ?" "Oui" il déclanche le code. "Non" il n'exécute pas le code ci-dessus.

Merci d'avance pour votre aide.

Bien à vous

[jfontaine]

Bonjour,

Comme cela

Code :

1
2
3
If MsgBox("Voulez-vous le fichier d'origine", vbDefaultButton2 + vbYesNo) = vbYes Then
    'code
End If

[korni184]

Merci super