Word Macro calendrier sur word

Marine_blatz · 9 Janvier 2022

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 · 13 Janvier 2022

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 :

VB:

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 · 15 Janvier 2022

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

p56 · 15 Janvier 2022

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

VB:

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 · 5 Mars 2022

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 ?

Word Macro calendrier sur word

Marine_blatz

XLDnaute Nouveau

Pièces jointes

p56

XLDnaute Occasionnel

Pièces jointes

Marine_blatz

XLDnaute Nouveau

p56

XLDnaute Occasionnel

Marine_blatz

XLDnaute Nouveau

Discussions similaires