macro conditionnée à l'ouverture d'un fichier

[cdvhome]

Bonjour

Je suis un grand débutant sur VBA et j'aurai besoin d'un petit coup de main.

je souhaiterai afficher dans une box dès l'ouverture d'un fichier excel un message de type "êtes vous un garçon ? oui/non " et qu'en fonction de la réponse de l'utilisateur une macro s'éxécute.
En résumé :
si garçon ===> macro1
si fille ===> macro2

J'ai déjà les macro1 et 2 mais je ne sais pas les "mettre en musique".

merci d'avance pour vos réponses précieuses

 

[Spitnolan08]

Re : macro conditionnée à l'ouverture d'un fichier

Bonjour,

A placer dans ThisWortkbook :

Private Sub Workbook_Open()
Dim resp As Byte
Rep = MsgBox("Etes vous un garçon ?", vbYesNo)
    If Rep = vbYes Then
        macro1
    Else
        macro2
    End If
End Sub

Cordialement

 

[Pierrot93]

Re : macro conditionnée à l'ouverture d'un fichier

Bonjour cdvhome, Spitnolan🙂

autre solution, toujours à placer dans le module de ThisWorkbook :

Private Sub Workbook_Open()
If MsgBox("Etes vous un garçon ?", vbYesNo) = 6 Then
nomdetamacro1
Else
nomdetamacro2
End If
End Sub

bonne fin d'après midi
@+

 

[cdvhome]

Re : macro conditionnée à l'ouverture d'un fichier

merci beaucoup pour cette réponse rapide

longue vie au forum

A+