récupérer date dans ContentControls

**wouana19** · 25/07/2018, 11h39

Bonjour à tous,

Je suis en train de développer un formulaire Word avec les contrôles de contenu.
J'ai besoin de récupérer une date dans un control et de faire un calcul avec celle-ci.

Lorsque mon contrôle est en format standard: j'arrive sans problème
Mais lorsqu'elle est formatée en "jjjj j mmmm aaaa" : elle est visiblement en format texte dans le contrôle de contenu, donc impossible d'effectuer un calcul avec. Et je n'arrive pas la convertir.

(J'ai vraiment simplifié le code pour une meilleure compréhension)

Code :

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

1
2
3
4
5
6
7
8
9
 
dim mDate as date
 
For Each cc In ActiveDocument.ContentControls
if cc.Type = wdContentControlDate Then
mDate = cc.Range 'Fonctionne avec date au format standard, mais pas dans les autres cas
MsgBox mDate
end if
Next cc

En fait j'ai fait le tour des propriétés mais je ne trouve pas où Word enregistre réellement la date. Avez-vous une idée ?

Autrement, comment convertir le cc.Range en vrai date ? J'ai essayé dateval, Cdate… et j'ai cherché plus de 2h mais rien n'y fait.

Merci d'avance
++
Wouana

**wouana19** · 25/07/2018, 19h44

Re…

C'est un peu brut, mais cela me permet d'être certain qu'il y ai une date dans les controles de contenu "date", comme cela je peux récupérer le contenu pour effectuer par la suite des calculs.
Vu que DateVal renvoi une erreur si ce n'est pas une date...

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Private Sub Document_ContentControlOnExit(ByVal cc1 As ContentControl, Cancel As Boolean)
    Dim i As Integer
 
    Dim maDate As Date
    Dim strDate
    Dim tbJour() As String
 
    'Si controle Date et si contenu saisi dans le controle
    If cc1.Type = wdContentControlDate Then
        'Test si saisie par utilisateur
        If cc1.Range <> cc1.PlaceholderText Then
            strDate = cc1.Range
 
            'Suppression du jour texté
            tbJour() = Split(UCase("Lundi,Mardi,Mercredi,Jeudi,Vendredi,Samedi,Dimanche," & _
                "Lun,Mar,Mer,Jeu,Ven,Sam,Dim," & _
                "Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday," & _
                "Mon,Tue,Wed,Thu,Fri,Sat,Sun,"), ",")
 
            For i = 0 To UBound(tbJour)
                strDate = Replace(UCase(strDate), UCase(tbJour(i)), " ")
            Next i
 
            'Remplacement des caractères superflus
            strDate = Replace(strDate, ",", " ")
            strDate = Replace(strDate, "/", " ")
            strDate = Replace(strDate, ".", " ")
 
            On Error GoTo DateErr_
            maDate = DateValue(strDate)
            MsgBox maDate
 
            Exit Sub
        Else
            'MsgBox "Aucune date saisie, control ""vide"""
        End If
    End If
 
 Exit Sub
 
DateErr_:
    MsgBox strDate & " n'est pas une date, veuillez saisir à nouveau"
end sub

Débutant en VBA, je suis preneur si vous avez mieux… ce qui est certainement le cas

**clementmarcotte** · 25/07/2018, 21h48

Bonjour,

Je n'ai jamais joué avec ce machin-là, mais tu as au moins 4 propriétés contenant le mot date sur cette page.

**wouana19** · 17/08/2018, 12h14

Hello,

Je n'avais pas vu ta réponse avant car l'alerte était sur une adresse mail que je n'utilise plus trop, je vais changer ça sur mes paramètres du site ^^

Merci pour ta réponse, mais j'avais essayé avec les différentes propriétés contenues dans le lien que tu m'a transmis mais je n'ai pas réussi à en ressortir la date. Soit je suis mauvais, soit la date est récupérable que dans le ContentControl.Range

++