Macros excel sur formulaire word
Bonjour,
Ne m'y connaissant pas en VBexcel, voici mon probleme
J'ai crée un formulaire d'étiquette sous word et je cherche maintenant à récupérer les informations du formulaire dans une "base de données" excel.
Je vous copie mon code:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| Dim WordApp As Word.Application
Sub LoadData()
Set WordApp = New Word.Application
WordApp.Visible = False
WordApp.FileDialog(msoFileDialogOpen).AllowMultiSelect = True
WordApp.ChangeFileOpenDirectory (Options.DefaultFilePath(wdDocumentsPath))
Count = 4
If WordApp.FileDialog(msoFileDialogOpen).Show = -1 Then
WordApp.WindowState = wdWindowStateMinimize
For Each objFile In WordApp.FileDialog(msoFileDialogOpen).SelectedItems
GetDataFromForms objFile, Count
Count = Count + 1
Next
End If
WordApp.Application.Quit
End Sub
Private Sub GetDataFromForms(ByVal FileName As String, ByVal Row As Integer)
Dim Sheet As Worksheet
Dim WordDoc As Word.Document
Set Sheet = ThisWorkbook.Sheets("Extraction")
Set WordDoc = WordApp.Documents.Open(FileName, ReadOnly:=True)
Sheet.Range("A" & Row).Value = WordDoc.FormFields("BO1").Result
Sheet.Range("B" & Row).Value = WordDoc.FormFields("num1").Result
Sheet.Range("C" & Row).Value = WordDoc.FormFields("refdos").Result
Sheet.Range("D" & Row).Value = WordDoc.FormFields("refclea1").Result
End sub |
Voici le code pour un enregistrement, la macro marche elle va récupérer un enregistrement et le déposer dans une ligne de mon tableur, je cherche maintenant à récupérer les infos d'une autre etiquette et de les déposer sur la ligne en dessous.
Pouvez vous m'aider svp?