Discussion :

[krokos55]

Bonjour a tous,

Je cherche à créer une macro excel qui me permet d'importer sur une feuille excel des données word sur le format suivant:

Sur une feuille word, j'ai un Quizz composé de plusieurs questions :

1) Intitulé de la question 1 ......bla bla bbla.......................
........................ (saut de ligne)

a) Réponse a
b) Réponse b
c) Réponse c

2) Intitulé de la question 2 ......bla bla bbla.......................
........................ (saut de ligne)

a) Réponse a
b) Réponse b
c) Réponse c

Toutes les question sont sur ce format (même si certaines question ont un énoncé de 1 ligne, 2 ligne 3 lignes) et les réponses possibles sont au nombre de 3 ou 4 ...

La bonne réponse est surlignée en jaune

L'idée est de créer un tableau excel qui comporte (i) 7 colonnes par exemple :

Colonne 1 : Intitulé de la question
Colonne 2 : Réponse a
Colonne 3 : 1 si réponse a correcte 0 sinon
Colonne 4 : Réponse b
Colonne 5: 1 si réponse b correcte 0 sinon
Colonne 6 : Réponse c
Colonnes 7: 1 si réponse c correcte 0 sinon

Et (ii) autant de lignes qu'il y a de questions.

J'espère que j'ai été assez précis et clair , ça me rendrait vraiment service car il y a quelques dizaines de questions à la suite dans le document word

Merci bcp pour votre aide par avance

[Daniel.C]

Bonjour,

Regarde cette page :

http://excel.developpez.com/faq/?page=Word

[krokos55]

Bonjour Daniel,

Merci pour ta réponse c'est un bon début,
En effet la macro qui est dispo sur ton lien:

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
Sub ExportWord()
 
    'necessite d'activer la reference
        '"Microsoft Word xx.x Object Library"
    Dim AppWord As Object
    Dim docWord As Object
    Dim Paragraphe As Object
    Dim i As Integer
 
    Set appWrd = CreateObject("Word.Application")
    appWrd.Visible = True
    Set docWord = appWrd.Documents.Open("C:\Documents and Settings\e.level\Bureau\macro Niko\NCordisco_inclassactivities_session13")
 
    For Each Paragraphe In docWord.Paragraphs
        If Paragraphe.Range.ListFormat.ListValue <> 0 Then
            i = i + 1
            Cells(i, Paragraphe.Range.ListFormat.ListLevelNumber) = _
                Paragraphe.Range.ListFormat.ListString
            Cells(i, Paragraphe.Range.ListFormat.ListLevelNumber + 1) = _
                Paragraphe.Range.Sentences(1).Text
        End If
    Next
 
End Sub

me permet de copier dans excel ligne après ligne tous les paragraphes
1)
a)
b)
2)
a)
b)
....

Toutefois, je cherche à les disposer dans excel de cette façon là:

Ligne 1: Colonne 1: Intitulé de la Question 1)
Ligne 1: Colonne 2: Intitulé Réponse possible a) à la Question 1)
Ligne 1: Colonne 3: 1 si la Réponse possible a) à la Question 1) est de format "surligné en jaune sinon 0
Ligne 1: Colonne 4: 1 énoncé de la Réponse possible b) à la Question 1)
etc...

Ainsi, à partir du code, je ne sais pas comment disposer correctement les données car je ne sais pas faire de différence dans la macro entre les paragraphes 1), 2) etc... et les sous paragraphes a), b) c) ...

D'autre part, tous les sauts de lignes dans word apparaissent sous forme d'un point d'interrogation encadré dans le doc excel ...

Merci

[Daniel.C]

Je suis loin d'être un pro dans le pilotage de Word. Est-ce que tu pourrais mettre en pièce jointe un document exemple, sans données confidentielles ?

[krokos55]

Ci joint

- Un doc word type avec 2 questions par exemple
- Un doc excel avec:
sur la première page le résultat de la macro (cf mon post précédent)
et en feuil2, le résultat que j'aimerai obtenir de façon automatique

Merci bcp !!

[kiki29]

Salut, il faudrait que ton doc Word comporte des Signets ou au minimum des Champs pour faciliter grandement la chose

[Daniel.C]

Essaie comme ceci :

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
Sub ExportWord()
 
    'necessite d'activer la reference
        '"Microsoft Word xx.x Object Library"
    Dim AppWord As Object
    Dim docWord As Object
    Dim Paragraphe As Object
    Dim i As Integer
 
    Set appWrd = CreateObject("Word.Application")
    appWrd.Visible = True
    'Set docWord = appWrd.Documents.Open("C:\Documents and Settings\e.level\Bureau\macro Niko\Exemple questions")
    Set docWord = appWrd.Documents.Open(ThisWorkbook.Path & "\kroko55 Exemple questions")
    For Each Paragraphe In docWord.Paragraphs
        With Paragraphe.Range.ListFormat
            If .ListValue <> 0 Then
               If Right(.ListString, 1) = ")" Then
                    i = i + 1
                    col = 1
                    Cells(i, 1) = .ListString & " " & Paragraphe.Range.Text
                ElseIf Right(.ListString, 1) = "." Then
                    'Cells(i, 2) = Paragraphe.Range.Sentences(1).Text
                    col = col + 1
                    Cells(i, col) = .ListString & " " & Paragraphe.Range.Text
                    If Paragraphe.Range.HighlightColorIndex = 7 Then
                        Cells(i, col).Interior.ColorIndex = 6
                    End If
                End If
            End If
        End With
    Next
    Set docWord = Nothing
    Set appWrd = Nothing
End Sub

[kiki29]

Salut, voir ici ?