Discussion :

[Mimosa777]

Salut tout le monde,

J’ai un document word qui est édité à tous les jours par des usagers. Je dois récupérer certaines informations dans ce fichier word et les entrer dans ma feuille excel . Pour commencer, j’ai déjà insérer les signets dans word au début de chaque valeur que je veux récupérer. J,aimerais avoir un coup de main de comment en VBA appeler ces signets et les insérer dans les cellules comme par exemple :
Signet1 dans la cellule A1
Signet2 dans la cellule A2 etc…

Merci d’avance

[QuestVba]

Bonjour,

Voici un code à adapter

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
Sub WordSignetVersExcel()
 
Dim DocWrd As Object
Dim i As Integer, aBookmark
Set DocWrd = CreateObject("Word.Application")
DocWrd.Documents.Open FileName:="c:\temp\signet.doc"
'DocWrd.Visible = True
If DocWrd.ActiveDocument.Bookmarks.Count >= 1 Then
   For Each aBookmark In DocWrd.ActiveDocument.Bookmarks
     Worksheets("Feuil1").Range("a1").Offset(i, 0) = aBookmark.Name
     Worksheets("Feuil1").Range("a1").Offset(i, 1) = aBookmark.Range
     i = i + 1
   Next aBookmark
End If
DocWrd.Quit
Set DocWrd = Nothing
End Sub

[Mimosa777]

Merci bien QuestVBA - je test et te reviens la dessus