Discussion :

[HABILER]

Bonjour à tous,

J'ai inséré dans un bookmark "Date_of_Parution" une donnée provenant d'une cellule de type date d'excel.

Celle donnée est apparemment reprise sous le type "chaîne de caractère" dans le bookmach sous la forme dd/mm/yyyy.

Je voudrais mettre ce bookmark sous la forme dd mmmm yyyy ( 27 février 2024)
J'ai écrit le code suivant mais j'ai une erreur de type mismatch - erreur 13.

Quelqu'un pourrait-il me dire où se trouve l'erreur (au niveau de la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

convertedDate = DateValue(dateStr)

)

Merci d'avance

Habiler

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub FormatDateBookmark()
    Dim dateStr As String
    Dim formattedDate As String
    Dim bookmarkName As String
 
    ' Nom du bookmark contenant la date
    bookmarkName = "Date_of_Parution"
 
    ' Récupérer la chaîne de caractères du bookmark
    dateStr = ActiveDocument.Bookmarks(bookmarkName).Range.Text
 
    ' Convertir la chaîne de caractères en date
    Dim convertedDate As Date
    convertedDate = DateValue(dateStr)
 
    ' Formater la date selon le format souhaité
    formattedDate = Format(convertedDate, "dd mmmm yyyy")
 
    ' Afficher la date formatée (peut être remplacé par tout autre traitement)
    MsgBox "Date formatée : " & formattedDate
End Sub

[Nain porte koi]

Hello,

j'ai testé votre code, pour moi il est fonctionnel et je n'ai pas d'erreur.
Pourriez vous mettre en téléchargement un exemple de fichier qui vous pose pb ?

[HABILER]

En fait il m'indique que mon bookmark est vide

Habiler


tester.docx

[Slasifi]

Quand vous mettez un signet vous devez sélectionner TOUT ce qui doit être mis dedans.
Dans votre document les signet sont juste placés devant le texte, ils sont donc TOUS vides