[Résolu] Ouvrir classeur sur onglet spécifique le samedi, dimanche et lundi

[libellule85]

Bonjour le forum,
J'ai un classeur avec un onglet Taux et un autre nommé Vélo, actuellement il s'ouvre automatiquement sur Taux mais je voudrais que ce classeur s'ouvre sur l'onglet Vélo le samedi, le dimanche et le lundi et le reste du temps sur l'onglet Taux.
D'avance merci beaucoup pour votre aide.

 

[chris]

Bonjour

Private Sub Workbook_Open()
 If Weekday(Date, 2) >= 6 Or Weekday(Date, 2) = 1 Then
    Sheets("Vélo").Activate
Else
    Sheets("Taux").Activate
End If
End Sub

 

[libellule85]

Bonsoir Chris,
Merci beaucoup pour ton code.
Bonne soirée

 

[job75]

Bonsoir libellule85, chris,

Private Sub Workbook_Open()
Sheets(IIf(Weekday(Date) Mod 7 < 3, "Vélo", "Taux")).Activate
End Sub

A+

 

[job75]

Re,

On peut aussi utiliser, c'est plus simple :

Private Sub Workbook_Open()
Sheets(IIf(Weekday(Date, 7) < 4, "Vélo", "Taux")).Activate
End Sub

C'est cette méthode qu'il faut utiliser dès lors qu'il y a 3 jours consécutifs.

Bonne nuit.

 

[mapomme]

Bonjour à tous ,

Pour le fun et se libérer des jours consécutifs :

Private Sub Workbook_Open()
   ' lundi-> 1, ... , dimanche-> 7
   Sheets(IIf(InStr("617", Weekday(Date, 2)), "Vélo", "Taux")).Activate
End Sub

 

[libellule85]

Bonjour Job75, mapomme,
Je vous remercie vraiment beaucoup pour vos réponses.
Bonne journée