Remplir une cellule excel a partir d'un fichier word

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

Bonjour,

Voici un code à adapter

Code:

---

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

---

Merci bien QuestVBA - je test et te reviens la dessus :):ccool: