Discussion :

[Arnaud2019]

Bonjour,

J'ai créé un modèle Word avec code VBA dans Word 2010 au travail.
Étant donné la triste situation actuelle, je travaille maintenant à la maison où j'ai Word 2007.

Et là, la ligne :

Code :

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

.SelectContentControlsByTag("CC_actifs")(1).Checked = False

est refusée avec l'erreur "membre de méthode ou de données introuvable".

J'ai tapé :

Code :

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

Set newCC = .ContentControls.Add(

pour faire que Word propose les types de contrôles de contenu disponibles et wdContentControlCheckBox n'est pas proposé.
Pourtant, le bouton de création de case à cocher du Ruban Office est bien fonctionnel.

J'ai regardé les Références utilisées qui sont :


Est-ce bien un problème de référence?

En vous remerciant de me lire et éventuellement trouver une solution,

Courage à tous,

Arnaud

[Invité]

Bonjour,

Regardez l'aide en ligne, visiblement SelectContentControlsByTag est en lecture seule https://docs.microsoft.com/fr-fr/off...tcontrolsbytag

Regardez de votre côté sur votre module d'aide, si vous avez les mêmes indications.

Nb : Vous devriez utiliser l'intellisense, c'est à dire instancier des variables object, vous verriez tout de suite les différentes propriétés et méthodes permises pour l'objet en mettant un "." derrière.

[Arnaud2019]

Merci beaucoup pour votre réponse.
Vous m'avez déjà plusieurs fois aidé.

Concernant SelectContentControlsByTag, c'est vrai que Microsoft dit que la collection retournée est en lecture seule mais pas ses éléments à mon avis. En effet, j'ai toujours appliqué des valeurs aux propriétés des contrôles de contenu via cette méthode.

Pour l'intellisense, je ne savais pas que ça s'appelait comme ça mais en tapant :

Code :

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

.SelectContentControlsByTag("CC_actifs")(1).

Checked n'est pas proposé.
Tout se passe comme si les références vers les contrôles de contenu de type CheckBox étaient inconnues.

Bonne fin de journée,

Arnaud

[Invité]

Si vous mettez un exemple en ligne non confidentiel (zipé), je peux regarder mais expliquez-moi ce que vous cherchez à faire.

[Arnaud2019]

Bonjour,

Voilà un exemple minimal : Test case à cocher.zip
C'est un modèle avec macro que j'ai créé dans Word 2007 : il contient une case à cocher qui doit se cocher lorsqu'on crée un document basé sur lui, mais la ligne de code .SelectContentControlsByTag("CC_actifs")(1).Checked = True n'est pas acceptée.
Ce faisant, j'ai noté que l'apparence et les propriétés de la case à cocher sont différentes dans ce document créé dans Word 2007, par rapport aux documents qui ont été créés dans Word 2010.
Dans les deux cas, ce sont des contrôles ActiveX.
Est-ce qu'il y aurait une histoire de versions de librairie Microsoft ActiveX différentes et incompatibles?

En vous remerciant pour votre aide,

Arnaud

[Invité]

Bonjour,

Ce code fonctionne-t-il sur votre version ?

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
 
Private Sub Document_New()
 
Dim I As Integer
 
    With ActiveDocument
         If .InlineShapes.Count > 0 Then
            For I = 1 To .InlineShapes.Count
              With .InlineShapes(I).OLEFormat
                 If .ClassType = "Forms.CheckBox.1" And .Object.Name = "CheckBox1" Then
                    .Object = True
                   ' Debug.Print "Nom : " & .Object.Name & ", type : " & .ClassType & ", valeur : " & .Object
                 End If
              End With
 
            Next I
         End If
    End With
 
End Sub

[Arnaud2019]

Merci,

J'ai fait une erreur dans mon exemple : le nom de la case à cocher dans le code n'était pas le bon.
Cependant, après correction, le problème n'était pas résolu.

Pour votre code, oui, ça marche.
Cela veut dire que je dois modifier tout le code dans mon travail (~3000 lignes) pour accéder aux cases à cocher comme des InlineShapes et non des ContentControls.
C'est galère et il n'est pas garanti que ça marchera au retour à Word 2010...

Savez-vous s'il est normal que les cases à cocher Word 2010 ne soient pas utilisables comme des contrôles de contenu dans Word 2007?

Merci encore et bon appétit

[Invité]

Ce code a été réalisé sous office 365, il y aura donc compatibilité ascendante si cela fonctionne sur 2007.
Combien de lignes de code sont concernées (en gros) ?
Sous quelle forme apparaissent vos lignes de code (quelle syntaxe) ?

[Invité]

J'ai fait une erreur dans mon exemple : le nom de la case à cocher dans le code n'était pas le bon.
Cependant, après correction, le problème n'était pas résolu.

Le contrôle présent dans le document joint est un contrôle ActiveX et pas un ContentControl. Quel est le type après votre correction ?

[Arnaud2019]

Ce code a été réalisé sous office 365, il y aura donc compatibilité ascendante si cela fonctionne sur 2007.
Combien de lignes de code sont concernées (en gros) ?
Sous quelle forme apparaissent vos lignes de code (quelle syntaxe) ?

Pour la compatibilité, j'ai voulu essayer d'utiliser votre code avec une case créée dans Word 2010 et ça ne marche pas.
Je devrais donc remplacer toutes les cases, en plus des occurences de

Code :

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

.Checked

(pour vous répondre, il y en a 49 x4 variantes du modèle).
La syntaxe est la même que dans l'exemple :

Code :

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

.SelectContentControlsByTag("nom_de_la_case")(1).Checked = False/True

Merci.

[Invité]

J'ai fait une erreur dans mon exemple : le nom de la case à cocher dans le code n'était pas le bon.
Cependant, après correction, le problème n'était pas résolu.

Je reprends ce message. Est-ce à dire que l'objet n'était pas le même ?

[Arnaud2019]

Le contrôle présent dans le document joint est un contrôle ActiveX et pas un ContentControl. Quel est le type après votre correction ?

Je n'ai pas changé le type.
Par contre, vous m'avez fait comprendre où était le problème.
Après vérification sur un site qui montre comment ajouter une case à cocher dans Word, je vois que, dans les versions plus récentes, la case à cocher est proposée directement comme contrôle de contenu dans Ruban > Développeur > Contrôles, alors qu'avec 2007 elle ne l'est que dans Ruban > Développeur > Contrôles > Outils hérités > Contrôles ActiveX.

Le mieux serait de me procurer une version plus récente.

Est-ce que je mets la discussion en Résolu?

[Invité]

Je ne pourrai vous apporter plus d'aide.

[Arnaud2019]

Je reprends ce message. Est-ce à dire que l'objet n'était pas le même ?

Dans l'exemple que je vous ai envoyé, le code faisait référence à la case "CC_actifs" qu'il y avait dans le modèle du travail, alors que, dans l'exemple, la case était nommée "CheckBox1".
Mais ça ne change rien : si je ne veux pas revoir une grande partie de mon travail, je n'ai pas d'autre choix que d'acquérir un Office plus récent.

Merci beaucoup pour votre aide, Eric Kergresse.