Demande aide extraction données formulaire Word dans Excel VBA

Version imprimable

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:

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

Bonjour.

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

Code:

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+

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 :

Citation:

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:

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

26/03/2020, 13h54
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+
26/03/2020, 14h03
Lucieferine

Réponse

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 :

Citation:

Erreur d'execution 424
Objet requis

Ligne concernée :

Code:

For Each ctrl In ActiveDocument.ContentControls

Merci,

A+

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:

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

26/03/2020, 14h45
Lucieferine

Bonjour Philippe Tulliez, merci pour cette réponse cependant ma difficulté n'est pas dans l'ouverture du document Word, cela fonctionne déjà. Mon problème est que je n'arrive pas à faire une boucle qui parcours toutes les CheckBox présentes dans le document Word pour renvoyer la valeur Vrai ou Faux dans un tableau Excel. J'arrive à le faire sur une CheckBox donnée mais pas pour toutes.

Merci,
A+
26/03/2020, 14h50
Philippe Tulliez

Bonjour,
Ma réponse était juste pour le fait que tu signalais un erreur suit à l'utilisation d'ActiveDocument
Je dois regarder dans mes archives, il me semble avoir développé quelques choses de semblable pour un client
26/03/2020, 15h05
marot_r

Bonjour.

Cela veut dire, en prenant en compte la suggestion de Philippe Tulliez (merci à lui), que la ligne devrait être

Code:

For Each ctrl In wrdDoc.ContentControls

A+