Ouvrir onglet basé sur le jour de la semaine

Bonjour

Après quelques recherches, je ne trouve pas exactement ce que je recherche

J'ai donc un classeur Excel composé de plusieurs feuilles (une vingtaine)

Les 5 dernières sont des checklists pour chacun des jours de la semaine

J'aimerais que la première action du classeur à l'ouverture soit d'ouvrir la checklist correspondant au jour (voire même un fichier externe stocké sur le réseau)

Comment procéderiez vous ?

Mille merci pour votre attention

Jeepee

Bonjour JP, bonjour le forum,

À mon avis ton post manque trop de précision pour que l'on puisse te proposer un début de piste. Un petit fichier exemple nous aiderait à t'aider Teddy. Heu non Jipé...

Bonjour,

Une proposition VBA, si les noms des feuilles "jours de la semaine" s'appellent bien Lundi, Mardi, Mercredi, etc...

Code à insérer dans le Module ThisWorkbook :

Option Explicit

Private Sub Workbook_Open()
Dim Jour As String
    Jour = Format(Date, "dddd")
    On Error Resume Next
    Worksheets(Jour).Activate
    Call OuvertureDeFichier
End Sub
Sub OuvertureDeFichier()
'par Excel-Malin.com ( https://excel-malin.com )
'https://excel-malin.com/codes-sources-vba/vba-ouvrir-un-fichier-de-tout-type/
On Error GoTo OuvertureFichierErreur
   Dim MonApplication As Object
   Dim MonFichier As String
   Set MonApplication = CreateObject("Shell.Application")
   MonFichier = TrouveFichier
   MonApplication.Open (MonFichier)
   Set MonApplication = Nothing
Exit Sub
OuvertureFichierErreur:
   Set MonApplication = Nothing
    MsgBox "Erreur lors de l'ouverture de fichier..."
End Sub
Private Function TrouveFichier() As String
Dim fDialog As Office.FileDialog, temp As String
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
   With fDialog
      .AllowMultiSelect = False
      .Title = "Choisir un fichier"
      .Filters.Clear
      .Filters.Add "All Files", "*.*"
      If .Show = True Then
         temp = .SelectedItems(1)
        If temp <> vbNullString Then TrouveFichier = temp
      End If
   End With
End Function

EDIT : J'oubliais le fichier exemple :

Et salutations ThauTheme

Déjà un grand merci

J'ai testé le code, mais il me cause une erreur, il surligne "Date" dans la ligne Jour=Format(Date, "dddd")

Option Explicit

Private Sub Workbook_Open()
Dim Jour As String
Jour = Format(Date, "jjjj")
On Error Resume Next
Worksheets(Jour).Activate
Call OuvertureDeFichier
End Sub

ça commence bien! comme dirais l'autre...

Remplacez donc :

Jour = Format(Date, "dddd")

par :

Jour = Format(VBA.Date, "dddd")

Si cela ne fonctionne toujours pas, à essayer :

Jour = Format(Now, "dddd")

ou encore...

Jour = Format(VBA.Now, "dddd")

Oki, je vois ça

Bon

Désolé de vous avoir fait perdre votre temps

Après plus de réflexion et consultation des mes adjoints, on part sur une autre formule

Encore merci pour votre temps

Jeepee

Salut Pijaku !

Tiens, pour mon canon il ira bien celui-là... Bien rond, bien lisse.

Que dois-je comprendre ?

J'ai finalement créé une macro par feuille à ouvrir, et ensuite une macro qui, selon le jour de la semaine, déclenche la macro appropriée

Et après encore plus de réflexion (ben si, vraiment), j'ai créé un fichier PDF par journée, et une macro qui détermine le bon