Discussion :

[Lucieferine]

Bonjour,

La question a peut-être déjà été posé mais après de multiples recherche je n'ai rien trouvé pour m'aider.

J'ai un document Word avec des cases à cocher.
Je souhaiterais dans un tableau excel afficher la valeur Vrai si la case à cocher est cochée et la valeur Faux si la case à cocher n'est pas cochée.

Jusque là j'ai réussi à faire un code qui ouvre le fichier Word et qui indique dans la cellule A1 de mon fichier Excel Vrai ou Faux si la CheckBox1 est cochée ou pas.
Ma problématique est qu'il n'y a pas qu'une seule case à cocher mais plusieurs, toutes numérotées de 1 à 52 : CheckBox1, CheckBox2, ..., CheckBox52.
Je dois donc faire une boucle pour que le code lise l'ensemble des cases à cocher et qu'il indique dans les cellules A1, A2,..., A52 Vrai ou Faux en fonction des cases cochées ou non.


Ci-dessous mon code qui fonctionne pour la CheckBox1 et ma cellule A1 :

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
 Sub Test_Recuperer_donnees_Word()
' Je déclare mes variables
Dim strFichier As String
Dim objWord As Object
Dim i As Integer
Dim j As Integer
j = 1
i = 1
 
' J'ouvre mon ficher Word 
Set objWord = CreateObject("Word.Application")
strFichier = "P:\Documents\Test.docx"
objWord.Documents.Open Filename:=strFichier
' Je rends mon Word visible
objWord.Visible = True
 
 
' Je fais ma condition pour indiquer Vrai ou Faux en fonction de la valeur de la case à cocher
If objWord.ActiveDocument.CheckBox1.Value = True Then
Cells(i, j).Value = "Vrai"
Else: Cells(i, j).Value = "Faux"
End If
 
' Je ferme mon fichier Word
objWord.Quit
Set objWord = Nothing
 
 
End Sub

J'espère que je suis claire.
Je vous remercie d'avance pour votre aide.

Cordialement,

Lucieferine

[marot_r]

Bonjour.

J'ai trouvé et adapté ceci qui parcourt toutes les checkboxs.

Code :

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

1
2
3
4
5
6
7
8
Sub GetCheckBoxes()
    Dim ctrl As Word.ContentControl
    For Each ctrl In ActiveDocument.ContentControls
            If ctrl.Type = wdContentControlCheckBox Then
                'C'est une checkbox, la traiter
            End If
    Next ctrl
End Sub

A+

[Lucieferine]

Bonjour marot_r, Merci pour cette réponse, j'ai essayé de l'intégrer à mon code mais j'ai une erreur qui s'affiche :

Erreur compilation Type défini par l'utilisateur non défini

et il me surligne la ligne Dim ctrl As Word.ContentControl.

Ci-dessous mon code modifié, est-ce que je l'ai mal intégré ?

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
  Sub Test_Recuperer_donnees_Word()
' Je déclare mes variables
Dim strFichier As String
Dim objWord As Object
Dim i As Integer
Dim j As Integer
j = 1
i = 1
 
' J'ouvre mon ficher Word 
Set objWord = CreateObject("Word.Application")
strFichier = "P:\Documents\Test.docx"
objWord.Documents.Open Filename:=strFichier
' Je rends mon Word visible
objWord.Visible = True
 
 
' Je fais ma condition pour indiquer Vrai ou Faux en fonction de la valeur de la case à cocher
Dim ctrl As Word.ContentControl
    For Each ctrl In ActiveDocument.ContentControls
            If ctrl.Type = wdContentControlCheckBox Then
                'C'est une checkbox, la traiter
                If objWord.ActiveDocument.wdContentControls.Value = True Then
                    Cells(i, j).Value = "Vrai"
                Else: Cells(i, j).Value = "Faux"
                End If
            End If
    i = 1 + 1
    Next ctrl
 
' Je ferme mon fichier Word
objWord.Quit
Set objWord = Nothing
 
 
End Sub

[marot_r]

Non, probablement pas.

Ce code suppose que tu as une références sur Word et c'est pour cela qu'il crie.

Remplace as Word.ContentControl par as Object.
Tu vas perdre l'IntelliSense pour cet objet mais cela devait résoudre le problème.
Note que quand on défini as Object, le compilateur ne fait plus de vérification donc faire bien attention à l'orthographe des méthodes et propriétés.

A+

[Lucieferine]

J'ai fais la modif mais maintenant il me met une autre erreur et cette fois-ci sur la ligne d'après :

Message erreur :

Erreur d'execution 424
Objet requis

Ligne concernée :

Code :

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

For Each ctrl In ActiveDocument.ContentControls

Merci,

A+

[Philippe Tulliez]

Bonjour,
Si le programme est écrit dans Excel, il est normal qu'il ne reconnaisse pas l'objet ActiveDocument

Voici un petit exemple rapide de l'ouverture d'un nouveau document Word

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub TestWord()
  Dim appWrd As Object
  Dim wrdDoc As Object
  Set appWrd = CreateObject("Word.Application")
  '
  With appWrd: .Visible = True: .Activate: End With
  Set wrdDoc = appWrd.Documents.Add
  '
  Set appWrd = Nothing: Set wrdDoc = Nothing
End Sub