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

chris

XLDnaute Barbatruc

• 4 Juin 2017

• #2

Bonjour

Code:

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

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 4 Juin 2017

• #3

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Juin 2017

• #4

Bonsoir libellule85, chris,

Code:

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

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Juin 2017

• #5

Re,

On peut aussi utiliser, c'est plus simple :

Code:

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.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 5 Juin 2017

• #6

Bonjour à tous ,

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

Code:

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

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 5 Juin 2017

• #7

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

 

Vote positif 0 Vote négatif