Word Macro calendrier sur word

[Marine_blatz]

Bonjour à tous,
Une opération complexe (je crois) qui vas vous mettre au défis et qui je ne vous le cache pas m'aiderai bien

J'ai un document nommé XXXXXXXXX-220129-XX
et dans celui ci il y a un menu déroulant calendrier

J'aurai besoin d'aide pour ceci, pour réalisé cela comme macro

1) la macro recherche dans le titre du document 6 chiffres consécutifs, commencant par "22"
2) Elle comprend que 22= 2022 (l'année) / 01 le mois / 29 le jour
3) elle recherche cette date le seul calendrier (liste déroulante) de mon doc, et clic indirectement sur le bon jour.

Quelqu'un est t-il assez compétent pour me réaliser cela svp ?
Bon fin de weekend à tous

 

[p56]

Bonjour,
Si l'objectif est d'inscrire la date représentée dans le nom du doc sous la forme XXXXXXXXX-220129-XX, il suffit d'écrire :

Private Sub Document_Open()
Dim T As Variant, dt As Double

    T = Split(ThisDocument.Name, "-")
    dt = DateSerial(Left(T(1), 2), Mid(T(1), 3, 2), Right(T(1), 2))
    ThisDocument.Paragraphs(1).Range.Text = Format(dt, "dd/mm/yyyy")
End Sub

p56

 

[Marine_blatz]

Bonjour non il faudrait qu'il prennent le 220129 du titre et mette cela sous forme ---> Samedi 29 janvier 2022

 

[p56]

Bonjour,
Et bien il suffit d'ajouter le jour-semaine dans le format (+ un saut de paragraphe pour faire plus joli)

Private Sub Document_Open()
Dim T As Variant, dt As Double

    T = Split(ThisDocument.Name, "-")
    dt = DateSerial(Left(T(1), 2), Mid(T(1), 3, 2), Right(T(1), 2))
    ThisDocument.Paragraphs(1).Range.Text = Format(dt, "dddd dd/mm/yyyy") & vbCrLf
    Verif_Vitesse
End Sub

 

[Marine_blatz]

Bonjour,

mais comment faire pour que cette macro une fois la date extrait dans le nom du fichier aille trouver le calendrier dans mon document word et la mettre à jour ?