Sub import_demande()
Dim Fich As Worksheet
Set Fich = ThisWorkbook.Worksheets("Recap")
chemin = "D:\Demande support\"
mesfichiers = Dir(chemin & "*.docx")
Dim Variables As Variant
Variables = Array("Nom", "Prénom", "Qualité", "DateDemande", "Sujet", "Description", "DateRéponse", "RespoRéponse")
nb_Champs = 8
num_row = 1
i = 0
For i = 0 To nb_Champs - 1
Fich.Cells(num_row, i + 1) = Variables(i)
Next i
Set FichierWord = CreateObject("word.application")
FichierWord.Visible = True
FichierWord.DisplayAlerts = False
Do While mesfichiers <> ""
If mesfichiers <> "." And mesfichiers <> ".." And mesfichiers <> "Demande_Support.docx" Then
monDocument = chemin & mesfichiers
FichierWord.documents.Open Filename:=monDocument, ReadOnly:=True
num_row = num_row + 1
num_col = 1
For i = 0 To nb_Champs - 1
x = FichierWord.activedocument.formfields(Variables(i)).result
Fich.Cells(num_row, i + 1) = x
Next i
FichierWord.documents.Close (0)
End If
mesfichiers = Dir
Loop
FichierWord.Quit
End Sub