Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Marine_blatz

XLDnaute Nouveau
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
 

Pièces jointes

  • XXXXXXXXXXX-220129-XX.docx
    19.1 KB · Affichages: 9

p56

XLDnaute Occasionnel
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
 

Pièces jointes

  • XXXXXXXXX-220129-XX.docm
    17.4 KB · Affichages: 8

p56

XLDnaute Occasionnel
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…