Extraction données formulaire Word via VBA Excel

Version imprimable

Bonjour,

J'ai réalisé un formulaire sur Word à l'aide de boutons radio (ou option button). Je souhaite pouvoir extraire les données afin de les traiter dans un tableur Excel. Voici le code que j'ai fait :
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 Dim appWord As Word.Application Set appWord = CreateObject(Class:="Word.Application") appWord.Visible = True appWord.Documents.Open Filename:=pathToDocument, ReadOnly:=True Dim DocWord As Word.Document Set DocWord = GetObject(pathToDocument) DocWord.Activate j = 1 iField = 1 iQuestion = 0 iPart = 0 Dim oShape As Word.InlineShape For Each oShape In DocWord.InlineShapes() Dim myObj As Object *With oShape.OLEFormat.Activate Set myObj = oShape.OLEFormat.Object End With If myObj.Value = True Then Application.Workbooks(1).Worksheets(iPart + 1).Cells(i, j).Value = 1 Else Application.Workbooks(1).Worksheets(iPart + 1).Cells(i, j).Value = 0 End If (...)
Le gros problème est que j'ai toujours le même message d'erreur qui s'affiche :
"Object Variable or With Block Variable not Set". Quand je debug, il me surligne la ligne * en me disant que myObj = nothing.

Est-ce que quelqu'un saurait m'aider ? Pour info, je suis sous Office 2010.

Merci d'avance

18/04/2013, 10h41
Daniel.C

Bonjour,

Je ne suis pas un pro du VBA Word. Est-ce que tu peux mettre un formulaire sans données confidentielles en PJ ?
18/04/2013, 10h43
SfJ5Rpw8

bonjour,

et elle est censé servir à quoi cette ligne ? revoit l'utilisation de with ..

1 pièce(s) jointe(s)

J'utilise du VBA Excel pour récupérer des données dans un doc Word (principalement des radio boutons), afin de pouvoir mettre ces données dans un tableur excel. Je vous mets un exemple en PJ de ce qui pourrait être dans mon formulaire.

Merci!

J'ai essayé pas mal de solutions avec ou sans with, et le problème est toujours le même. Dès que j'introduis OLEFormat, il bug avec ce même message d'erreur

J'ai essayé avec :
Code:

1 2 3 4 5 6 7 8 For Each oShape In DocWord.Shapes() Dim myObj As Object Set myObj = oShape.OLEFormat.Object If myObj.Value = True Then Application.Workbooks(1).Worksheets(iPart + 1).Cells(i, j).Value = 1 Else Application.Workbooks(1).Worksheets(iPart + 1).Cells(i, j).Value = 0 End If
Ca ne marche toujours pas..

Ce code fonctionne :

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
    Dim appWord As Word.Application
    Set appWord = CreateObject(Class:="Word.Application")
    appWord.Visible = True
    'pathToDocument = "C:\Users\Daniel\Documents\Donnees\Daniel\mpfe\jojoSuperFripouille Test.docx"
    appWord.Documents.Open Filename:=pathToDocument, ReadOnly:=True
 
    Dim DocWord As Word.Document
    Set DocWord = GetObject(pathToDocument)
    DocWord.Activate
 
    j = 1
    iField = 1
    iQuestion = 0
    iPart = 0
 
    Dim oShape As Word.InlineShape
    For Each oShape In DocWord.InlineShapes()
        Dim myObj As Object
        Set myObj = oShape.OLEFormat.Object
        If myObj.Value = True Then
            Application.Workbooks(1).Worksheets(iPart + 1).Cells(i, j).Value = 1
        Else
             Application.Workbooks(1).Worksheets(iPart + 1).Cells(i, j).Value = 0
        End If
    Next