Discussion :

[jojoSuperFripouille]

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 :

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
  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

[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 ?

[SfJ5Rpw8]

bonjour,

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

[jojoSuperFripouille]

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 :

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

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..

[Daniel.C]

Ce code fonctionne :

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
    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