Jours et onglets

[Loulou]

Bonjour

J’ai deux fichiers dans les deux il y a des onglets lundi, mardi, mercredi, jeudi, vendredi.

Voilà mes questions quand j’ouvre le premier fichier il y à t’il un moyen via une macro qui ouvre l’onglet correspondant au jour : exemple le mardi 25/01/2005 ouvrirai l’onglet mardi sur ma feuille.

Maintenant je suis sur le deuxième fichier Excel je fait une extraction des chiffre du premier fichier et là je souhaiterais si c’est possible que si c’est l’onglet mardi sur le fichier qu’il s’ouvre automatique sur le fichier mardi du second.

Merci pour votre collaboration

Bonne journée

 

[jo]

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 !

 

[Robert]

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

 

[Robert]

Re Loulou, le forum, salut Jo,

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

À plus,

Robert