Du trop compliqué pour moi

[nemesis]

Bonjour à vous oh dieux de la formule magiques, déesses et grande prêtresses du Vba.

Voici mon problème je vais m'efforcer d'être clair.

Je posséde un repertoire c:\facture, dans lequel il y a quelque chose comme un millier de fichier word.
Chaque fichier word est identique, dans sa structure, il comporte des bookmarks et des fieldsets.
Je souhaiterai sur un fichier excel créer une macro, qui listerait le repertoire facture, qui puisse extraire de chacun des fichiers, la totalité des bookmarks, et des fieldsets, et de me les mettre en ligne dans ma feuille excel.

Le but étant de pouvoir ensuite filtrer les infos de cette mini base de donnée, de faire des statistiques, etc ...

Merci d'avance a tous les mages du vba et les driades de la formule.

Ps: Mon banquier m'a proposé des Fonds A Formules, je lui ai dit pas la peine j'ai déjà excel.

 

[nemesis]

Re : Du trop compliqué pour moi

j'oubliai pardon le résultat de mes recherches me laisse dire qu'il y a quelque choses de possible, voici le bout de code que j'ai trouvé.

Sub wordsignet()
'Macro écrite par Pierre CFI
Dim wrd As Object
Dim i As Integer, aBookmark
Set wrd = CreateObject("Word.Application")
wrd.Documents.Open FileName:="d:\\commun\signet.doc"
'wrd.Visible = True
If wrd.ActiveDocument.Bookmarks.Count >= 1 Then
For Each aBookmark In wrd.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
wrd.Quit
Set wrd = Nothing
End Sub

 

[Oliver77]

Re : Du trop compliqué pour moi

Slt,

Regarde si ce fichier te conviens.

Oliver77

 

[nemesis]

Re : Du trop compliqué pour moi

Bonjour,

Cela réponds a une partie du problème , je te remercie de ce bon début !! vraiment sympa comme d'habitude !!!