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 37
|
Sub auto_open()
Dim Fich As Worksheet
Set Fich = ThisWorkbook.Worksheets("Synthèse")
chemin = "J:\AQ\"
mesfichiers = Dir(chemin & "*.doc")
Dim Variables
Variables = Array("raisonsociale", "adresse", "telephone", "telecopie", "internet", "TVA", "activites", "CA", "livraison", "reglement", "direction", "commercial", "conception", "achats", "production", "CQ", "AQ", "logistique", "RH", "finances", "siteseffectifs", "fabricant", "distributeur", "prestataire", "typedeproduits", "Oui1", "produitslabellises", "Non1", "Oui2", "personnelcertifies", "Non2", "Oui3", "ISO", "Non3", "Date", "Nom", "Titre")
nb_Champs = 37
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 <> ".." 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
Fich.Cells(num_row, i + 1) = FichierWord.activedocument.formfields(Variables(i)).result
Next i
FichierWord.documents.Close (0)
End If
mesfichiers = Dir
Loop
FichierWord.Quit
End Sub |
Partager