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 : 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
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?