Discussion :

[Yacine_92]

Bonsoir ou Bonjour (selon le moment),

J'aurais besoin de votre aide pour developper une macro qui copie les differents titres d'un doc word dans la premiere feuille d'un classeur xls. Pour illustrer, supposons que le document contienne 5 paragraphes dont le titre est "A", "B"... la macro devrait permettent d'avoir dans les premieres cellules de la premiere feuille "A" "B" .

Merci a tous pour votre aide.

Yacine

[fernier]

tu peux regarder ce lien
http://excel.developpez.com/faq/?page=Word
tu peux aussi enregister une marco pour voir ce qu' elle fait

[SilkyRoad]

bonsoir

en complément de la réponse de Fernier, tu peux également tester:

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
Sub boucleParagraphesWord()
    'necessite d'activer la reference
        '"Microsoft Word xx.x Object Library"
    Dim appWrd As Word.Application
    Dim docWord As Word.Document
    Dim Paragraphe As Paragraph
    Dim i As Integer
 
    Set appWrd = CreateObject("Word.Application")
    appWrd.Visible = True
    Set docWord = appWrd.Documents.Open("C:\monDocument.doc")
 
    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

bonne soirée
michel

[Yacine_92]

Bonsoir Michel, Bonsoir tt le monde

Merci pour ta macro. Je l'ai testée, mais je me heurte à plusieurs problèmes.
Le premier est lié à la declaration des variables appWrd et DocWord. En effet, lorsque j'applique la macro brute de fonderie, VB me renvoie le message d'erreur suivant: " Rune-Time error '13' Type mismatch. J'arrive à contourner cette erreur en déclarant appWrd et DocWord en "object". Par contre, dans ce cas, la macro s'arrete au niveau de l'instruction suivante:
For Each Paragraphe In docWord.Paragraphs
avec le meme message d'erreur (Rune-Time error '13' Type mismatch).
Pourriez-vous svp m'indiquer comment m'en sortir?
Merci bcp.

Yacine

[Invité]

Bonjour

Le code que t'a donné Silkyroad implique que tu ais coché la référence Microsoft Word dans l'éditeur VB (menu Outils/référence).

Starec

[Yacine_92]

Bonsoir Starec,

La case Microsoft Word 9.0 Object Library est bien cochée dans l'editeur VB mais pour autant j'ai tjs mon message d'erreur. Merci.

Yacine