Ouverture d'un classeur

Bonjour à tous,

Je souhaiterais ouvrir un classeur définis à chaque fois que j'ouvre une feuille.

Concrètement, j'ai un classeur avec autant de feuille que de jour dans un mois, je voudrais qu'à chaque fois que j'ouvre une feuille, un autre classeur définis s'ouvre automatiquement sans passer par un lien hypertexte.

Merci par avance et bonne journée.

Bonjour,

Sans plus d'explications, voici une piste avec une procédure événementielle à mettre dans le module du classeur :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    Dim Chemin As String
    Dim Fichier As String

    Chemin = ThisWorkbook.Path & "\"

    Select Case Sh.Name

        Case "Jour1": Fichier = "Classeur_Jour1.xlsx"
        Case "Jour2": Fichier = "Classeur_Jour2.xlsx"
        Case "Jour3": Fichier = "Classeur_Jour3.xlsx"
        'etc...

    End Select

    Workbooks.Open Chemin & Fichier

End Sub

Le choix du classeur à ouvrir est fonction du nom de la feuille qui est activée, pour l'exemple, "Jour1" est ici le nom de la feuille et "Classeur_Jour1.xlsx" est le classeur à ouvrir, les classeurs se trouvant dans le même dossier que le classeur contenant les feuilles de jours

Vraiment désolé pour la réponse super tardive, mais tu as parfaitement réussi.

Merci encore et bonne journée

Bonjour,

Merci de ton retour et comme dit le proverbe, vieux motard que jamais