Jours et onglets

Boujour, salut le forum,

En exploitant la fonction "WeekDay()" tu peux t'en sortir.
Si la valeur de "WeekDay" est 3 alors c un mardi .
lundi : 2
mardi:3
mercredi:4
...

met un macro ds le Worsheet_open du genre :
if weekDay(DAte) = 3 then 'Mardi
sheets("mardi").activate
end if

Bye !

Salut Loulou, salut le forum,

Je te propose deux solutions à placer dans l'élément ThisWorkbook (Visual Basic Editor) de chaque fichier :

La première est plus simple mais nécessite que tes onglets soient toujours disposés dans l'ordre de lundi à vendredi. Sinon ça ne va pas ouvrir le bon onglet.

La seconde fonctionne quelle que soit la position de l'onglet :

première
Private Sub Workbook_Open()
Dim jour As Byte 'déclare la variable jour
jour = Weekday(Date) 'définit la variable jour
On Error Resune Next 'evite le bug si tu ouvres le fichier un dimanche
Sheets(jour - 1).Select 'ouvre l'onglet du jour
End Sub

seconde
Private Sub Workbook_Open()
Dim jour As Byte 'déclare la variable jour
jour = Weekday(Date) 'définit la variable jour
Select Case jour
Case 2
Sheets("lundi").Select
Case 3
Sheets("mardi").Select
Case 4
Sheets("mercredi").Select
Case 5
Sheets("jeudi").Select
Case 6
Sheets("vendredi").Select
Case Else 'evite le bug si tu ouvres le fichier un dimanche
Sheets("lundi").Select
End Select
End Sub

À plus,

Robert

Re Loulou, le forum, salut Jo,

Désolé j'avais pas réactualisé...

À plus,

Robert