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 |
