données word vers excel

**EmmanuelN** · 05/12/2006, 21h36

pardonnez les questions d'un néophyte.

Je suis sur la construction d'un projet qui associe un fichier word et un fichier excel.
le fichier Word se présente sous forme de fiche individuel de renseignements, 1 page par fiche.
Mon objectif de travail est d'intégrer automatiquement les données de mes fiches word dans une base de donnée excel.
je dois souffrir d'une insuffisance de mes connaissance en syntaxe : je souhaiterai que ma macro excel effectuent les opérations suivantes : pour chaque page du fichier word, selectionnerl la ligne 1, la copier, et la coller dans la derniere cellule vide de la colonne 1 du fichier excel.

merci de votre aide.

**Larsen21** · 06/12/2006, 02h02

voila pour sélectionner la première ligne et faire un copier sur word tu tape ça dans ta macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Selection.Copy

puis pour excel il te faut pour reconnaitre la dernière ligne vide de la feuille taper ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
  Sheets(Feuil).Select 'pour sélectionner ta feuille
 
    i = 1 'pour commencer le test a partir de cette ligne
    While Not IsEmpty(Cells(i, 1))
      i = i + 1
    Wend

la valeur de i te donnera ainsi la valeur de la dernière ligne vide

Je sais que ma réponse n'est pas complète mais c'est tout ce que je peux faire.

A+

en espérant t'avoir rendu service

**EmmanuelN** · 06/12/2006, 10h17

merci pour ta réponse.
c'est un point de départ.
pour ma macro word: j'ai essayé un truc du type for each page next mais cela ne fonctionne pas, je suppute de devoir ajouter une ligne du type page 1 to "" mais ma syntaxe est vraiment défaillante dans word.

**wape** · 06/12/2006, 11h27

Bonjour,

Essaye éventuellement ceci (après avoir activé la référence "Microsoft Word X.0 Object Library") :

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
Dim oWdApp As Word.Application
Dim oWdDoc As Word.Document
 
Set oWdApp = CreateObject("Word.Application")
Set oWdDoc = oWdApp.Documents.Open("C:\MonDocument.doc")
 
'Parcourir les pages du document Word
For i = 1 To oWdDoc.BuiltinDocumentProperties("Number of Pages")
   'Se positionner sur la première ligne
   oWdApp.Selection.GoTo wdGoToPage, wdGoToAbsolute, i
   'Sélectionner la ligne entière
   oWdApp.Selection.EndKey wdLine, wdExtend
   'Copier la sélection dans Excel
   With ThisWorkbook.Worksheets("Feuil1")
      .Range("A" & .Range("A65536").End(xlUp).Row + 1).Value = oWdApp.Selection.Text
   End With
Next i
 
oWdDoc.Close
oWdApp.Quit
 
Set oWdDoc = Nothing
Set oWdApp = Nothing

wape