Problème d'exécution dans "Private sub Workbook_Open"

Salut à tous,

j'ai crée une macro à l'ouverture de fichier excel sous ce format.(cf. plus bas).

En cliquant "oui" dans la msgbox, j'active bien la cellule B3 de l'onglet prévu. Par contre, en cliquant non, le code ne fait pas basculer sous l'onglet "demandes"...

Ai-je bien codé car je suis novice?

Peut-on coder une Msgbox et if/then ou if/else sous openworkbook??

merci d'avance

VL

ci dessous mon code :

Private Sub Workbook_Open()

Dim Mon_choix As String

Mon_choix = MsgBox("mon message de bienvenu", vbYesNo)

If Mon_choix = True Then

Sheets("formulaireSaisie").Activate

Cells(3, 2).Select

End If

If Mon_choix = False Then

Sheets("Demandes").Activate

Cells(1, 5).Select

End If

End Sub

Bonjour,

Il me semble que les "if" sont à indiquer avec les paramètres de la msgbox.

Private Sub Workbook_Open()

IF MsgBox("mon message de bienvenu", vbYesNo, "Demande de confirmation")= vbYes Then
Sheets("formulaireSaisie").Activate
Cells(3, 2).Select
Else
Sheets("Demandes").Activate
Cells(1, 5).Select
End If

End Sub

Merci beaucoup.

j'ai encore appris qqch.

bonne journée

VL