Bouton qui permet d'atteindre la feuille qui comporte la date du jour

Bonjour à tous!

Je suis toute nouvelle sur le forum donc d'avance désolée si je ne suis pas claire :D (c'est même la première fois que je poste sur un forum :mouarf:)

Voilà mon soucis:

J'ai un planning de vacances avec une feuille par mois (je vous le met directement en annexe car très difficile de vous expliquer mon problème: Pièce jointe 632298). Sur chaque feuille, en B94 la date du 1er du mois. En ligne 8 une formule qui reprend la date mentionnée en B94 pour afficher une colonne par jour.

Il arrive que les employés enregistre le fichier sur une feuille qui ne concerne pas le mois en cours. Donc lorsque j'ouvre le fichier, je me retrouve sur la mauvaise feuille, ce qui ne m'arrange pas.

Je vois 2 solutions:
Soit créer un bouton sur chaque feuille qui permettrait d'atteindre directement la feuille sur laquelle il y a la date du jour.
OU
Que lorsque j'ouvre le document, il s'ouvre automatiquement sur la feuille sur laquelle il y a la date du jour.

Après des heures de recherches sur les forums, je viens à vous car je n'ai rien trouvé qui fonctionne avec mon fichier.

Je tiens à préciser que je ne connais pas bien le VBA. Je sais faire des boutons simple en utilisant "Enregistrer une macro", mais dès qu'il faut écrire moi-même le code, c'est la cata.

Quelqu'un peut m'aider?

Grand merci pour votre aide :D

par exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub AtteindreDate() DateDuJour = Date k = Sheets.Count For i = 1 To k Dim cellule As Range For Each cellule In Sheets(i).Range("E8:AK8") If cellule = DateDuJour Then Sheets(i).Select Cells(8, cellule.Column).Select End If Next cellule Next i End Sub

---

a mettre dans

Code:

---

Private Sub Workbook_Open()

---

pour l'actionner a l'ouverture du fichier

Pièce jointe 632311

aller dans vba puis this workbook pour ajouter le code

Salut,
Une autre solution consisterait à cacher les feuille qui ne sont pas concernées, dans le module1 tu colle ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub DisplayMonth() Dim wsh As Worksheet Dim Ele As Variant     For Each wsh In ThisWorkbook.Worksheets Ele = Split(wsh.Name, " ")(0) ' // On récupère le nom du mois de la feuille If UCase(Ele) = UCase(MonthName(Month(Date))) Then ' // On vérifie l'égalité avec le mois en cours wsh.Visible = xlSheetVisible ' // Egal au moi en cours on affiche la feuille Else wsh.Visible = xlSheetVeryHidden ' // Pas égal alors on cache la feuille End If Next End Sub

---

Ensuite il ne reste plus qu'a appeler la sub à l'ouverture du classeur donc dans ThisWorkbook_Open tu colles ce code :

Code:

---

1 2 3 4 5 6

Option Explicit     Private Sub Workbook_Open() Module1.DisplayMonth End Sub

---

Voilà bonne prog.

Merci pour vos retours!

La solution proposée par a_diard fonctionne à merveille :D

Génial ce forum!

:merci: