Ouverture agenda à aujourd'hui

[CMD]

Bonjour,

Je cherche une macro me permettant d'ouvrir directement le classeur excel "agenda" que j'ai créé à la date du jour. J'ajoute que j'ai créé un volet par mois.

De plus, si quelqu'un avait une idée pour intégrer directement les jours fériés, ce serait génial.

Merci d'avance pour vos aides.

 

[Compte Supprimé 979]

Re : Ouverture agenda à aujourd'hui

Bonjour CMD, bienvenue sur le forum

Pourrais-tu nous joindre ton fichier ?

A+

 

[CMD]

Re : Ouverture agenda à aujourd'hui

Merci pour ta réponse Bruno45. Ci-joint une copie très allègée (j'ai ôté les macros et pleins de volets) de l'agenda. Une info pour toi et toi seul: CMD signifie Conservatoire de Musique et de Danse de ...... Montargis.

 

[Compte Supprimé 979]

Re : Ouverture agenda à aujourd'hui

Salut CMD 😀

CMD signifie Conservatoire de Musique et de Danse de ...... Montargis.

Elle est vraiment bonne celle là 😉

Nous sommes plus que voisins, nous sommes co-locataires 😛

Tu trouveras ci-joint ton fichier modifié, avec une feuille ajoutée puisque nous sommes en Mars ... et oui déjà 😉

Tu regarderas également tes dates, j'ai incrit une formule à partir du 2ème jour pour tous les mois

A+

 

[CMD]

Re : Ouverture agenda à aujourd'hui

Super !! et un grand merci. Je viens d'essayer, ça marche !

J'ai copié collé la macro dans mon classeur original. Dois-je changer qq chose à ta formule (notament ce que tu as mis en vert) ? :

Private Sub Workbook_Open()
Dim Col As Integer, DerCol As Integer, LibFMois(12)
Dim DateJ As Date, Sht As Worksheet
' Définir le tableau des libellés des feuilles mois
LibFMois(1) = "janv": LibFMois(2) = "Fev": LibFMois(3) = "Mars" ' Etc jusqu'au 12ème mois
' Date du jour
DateJ = Format(Now(), "dd/mm/yyyy")
' Définir la feuille en fonction de son libellé du mois
Set Sht = Sheets(LibFMois(Month(Now())))
' Avec la feuille en question
With Sht
' La sélectionner
.Select
' Déterminer la dernière colonne
DerCol = .Cells(1, Columns.Count).End(xlToLeft).Column
' Pour toutes les colonnes par lot de 4
For Col = 2 To DerCol Step 4
' Trouver celle correspondant à la date du jour
If DateValue(.Cells(1, Col)) = DateJ Then
' Si trouvée, la séectionner
.Cells(1, Col).Select
Exit For
End If
Next Col
End With

End Sub

Bonne continuation. Nous sommes co-locataires de quelle façon ? (je suis HW, le directeur)

 

[Compte Supprimé 979]

Re : Ouverture agenda à aujourd'hui

Re,

Ce qui est en vert, ne sont simplement que les commentaires que je mets habituellement dans tous mes codes.

C'est pour aider à la compréhension. 😀

Pour le test, tu peux tout simplement sélectionner la feuille de Janvier,
sélectionner n'importe qu'elle cellule de cette feuille.

Tu fermes et enregistres ton fichier de la sorte

Lors de l'ouverture, tu devrais arriver sur la date d'aujourd'hui 😉

A+

Nota : co-locataire façon de parler Monsieur le Directeur 😉
co-locataire dans le fait que nous habitons la même ville 🙂

J'espère ne pas vous avoir offensé en quoi que ce soit Monsieur le Directeur 🙂

 

[CMD]

Re : Ouverture agenda à aujourd'hui

Merci bcp, j'avais déjà fait ce test. De plus, je me suis servi de ton code pour créer un bouton sur chaque volet qui permet de revenir à la date du jour : et ça marche ! Dis-moi simplement s'il faut que je complète tes formules avec LibFMois(4) = "Avr" etc jusque LibFMois(12) = "dec" ?, car en avril, la macro risque de ne plus marcher ?

Encore un gd merci. Si tu veux faire de la musique ou de la danse, le CMD t'est grand ouvert

 

[Compte Supprimé 979]

Re : Ouverture agenda à aujourd'hui

Re,

Affirmatif, il faut remplir les 12 valeurs de ton tableau avec le nom de chaque feuille 😉

Donc ... :LibFMois(4) = "Avr" : LibFMois(5) = "Mai" jusqu'à Décembre

Encore un gd merci. Si tu veux faire de la musique ou de la danse, le CMD t'est grand ouvert

Merci pour l'invitation 😛

A+

 

[vbacrumble]

Re : Ouverture agenda à aujourd'hui

Bonjour


Une petit astuce pour remplir le tableau des noms des mois

Option Explicit
Option Base 1
Sub nomsmois()
Dim LibFMois(12)
Dim i As Byte
For i = 1 To 12
LibFMois(i) = Application.Proper(Format(30 * i, "mmmm"))
Next
'test
MsgBox LibFMois(12)
End Sub

 

[Compte Supprimé 979]

Re : Ouverture agenda à aujourd'hui

Salut VbaCrumble,

Merci pour l'astuce, sauf que là ça ne peut pas fonctionner,
à moins de renommer toutes les feuilles 😉

Car ton code donne :
LibFMois(1) ="Janvier" alors que la feuille se nomme "Janv"
LibFMois(2) ="Février" alors que la feuille se nomme "Fev"

Donc n'est pas adaptée, merci quand même pour CMD 😀

A+