Discussion :

[Ludovic67530]

Bonjour,

Je voudrai faire ouvrir automatiquement selon la date un onglet de sept onglets (correspondant à une semaine) d'un fichier sheets. Je pense qu'il faut que j'utilise java pour la programmation.
Je n'ai jamais écrit de programme en java ou en vba pour excel. Quelqu'un aurait une piste pour m'aider ?

Merci d'avance.
WL

[Invité]

Bonjour,

Essayez ce code à mettre dans le module ThisWorkbook de votre fichier. A adapter en fonction du nom des onglets.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub Workbook_Open()
 
    Select Case Weekday(Date, 2)
           Case 1
                Sheets("Lundi").Activate
           Case 2
                Sheets("Mardi").Activate
           Case 3
                Sheets("Mercredi").Activate
           Case 4
                Sheets("Jeudi").Activate
           Case 5
                Sheets("Vendredi").Activate
           Case 6
                Sheets("Samedi").Activate
           Case 7
                Sheets("Dimanche").Activate
    End Select
 
End Sub

Ou encore :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Workbook_Open()
 
Dim ListeDesOnglets As Variant
 
    ListeDesOnglets = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche")
    Sheets(ListeDesOnglets(Weekday(Date, 2) - 1)).Activate
 
End Sub

[Ludovic67530]

Merci beaucoup je vais essayer. Cool.
Cordialement.
Ludovic