Discussion :

[beankylla]

Bonjour ,

Une tache reguliere fait que je dois exporter des données de documents word vers excel.

les données a exporter sont soulignées dans le document word et j'aimerais en avoir une liste dans excel

après quelques recheche je me suis retrouvé avec le code suivant:

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
Sub Demo()
 
Dim wdApp As Word.Application
Set wdApp = Word.Application
Dim wdDoc As Word.Document
Set wdDoc = wdApp.ActiveDocument
Dim Mot As Word
For Each Mot In ActiveDocument.Words
If Mot.Font.Underline <> wdUnderlineNone Then
wdDoc.Range.Copy
With ActiveSheet
.Paste Destination:=Range("A" & .Cells.SpecialCells(xlCellTypeLastCell).Row + 1)
End With
End If
End Sub

mais j'ai du m’emmêler les pinceaux parce que ça n'est pas près de marcher...
J'ai aussi pensé a utiliser le batch macro (en pj) qui permet d'effectuer une macro sur une série de documents mais pas de résultats probants....

Sauriez vous ou je me plante?

Merci et bonne soirée!