Erreur 91, variable objet ou variable de bloc With non définie

**gio710** · 23/10/2019, 15h42

Bonjour,

le routine suivante renvoie un message d'erreur de type: erreur 91, variable objet ou variable de bloc With non définie

'
' Cette partie du code va copier le contrôle de date dont la balise est nommée DateDébutIT1. Elle va rechercher le contrôle de date dont la balise est nommée DateDébutIT2 <> "AUTO" . Si le contenu de DateDébutIT2 ="AUTO" la routine doit coller la date du controle 1 vers le controle 2.
. Sinon, ne rien faire

Le résultat est correct mais je reçois toujours l'erreur erreur 91, variable objet ou variable de bloc With non définie

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
Dim controle1 As ContentControl, controle2 As ContentControl, controle2prime As ContentControl, Texte As String
For Each controle2 In ActiveDocument.ContentControls
    If controle2.PlaceholderText = "AUTO" Then '' ####### ligne de code qui pose problème
        'MsgBox (controle2.PlaceholderText)
        'Stop
        '
        ' Routine de substitution de la date initiale 
        '
        ' cette partie du code récupère la date du début  depuis le contrôle dont la balise est DateDébutIT1, puis la recopie dans le contrôle DateDébutIT2 placé au bout du premier chapitre
        ' Pour faciliter le repérage visuel durant la navigation dans le document
        '
        For Each controle1 In ActiveDocument.ContentControls
            If controle1.Tag = "DateDébutIT1" Then
                'MsgBox ("le contrôle est de type " & controle1.Type & " ")
                controle1.Copy
            End If
        Next
 
        For Each controle2prime In ActiveDocument.ContentControls
            If controle2prime.Tag = "DateDébutIT2" Then
                'MsgBox ("le contrôle est de type " & controle2.Type & " ")
                controle2prime.Range.Select
                Selection.Paste
            End If
        Next
    'Else ' controle2.PlaceholderText <> "AUTO" Then
    End If
Next