Ouverture sur feuille précise avec message d'accueil

Question

Bonjour à tous;

Je voudrais en ouvrant mon classeur excel, que celui-ci s'ouvre sur une page feuille précise (Welcome) où il y a un petit menu et m'affiche un message de bienvenue.

Les deux macros que j'ai utiliser pou cela semblent fonctionner séparément mais lorsque j'essaie de rassembler le tout, ça ne va plus !

Pouvez-vous m'éclairer svp?

voici le code :

Sub Welcome()

Dim Invite As String 'nom de l'utilsateur'

Invite = "Max !"

'message bonjour de l'utilsateur

MsgBox "Bonjour " & Invite, vbInformation

Reponse = MsgBox("c'est le moment de faire des Factures et des Devis ", vbYesNo)

If Reponse = 7 Then Application.Quit

End Sub

Private Sub Workbook_Open()

Sheets("Welcome").Activate

End Sub

Merci

Olivier

Amadéus · Answer

Regroupe tes 2 codes dans ThisWorkBook Private Sub Workbook_Open() Sheets("Welcome").Activate Dim Invite As String 'nom de l'utilsateur' Invite = "Max !" 'message bonjour de l'utilsateur MsgBox "Bonjour " &amp; Invite, vbInformation Reponse = MsgBox("c'est le moment de faire des Factures et des Devis :)", vbYesNo) If Reponse = 7 Then Application.Quit End Sub Cordialement...