caché une macro de recueil d'info

[az']

Bonjour à tous (et merci pour vos contributions actives)

J'ai récupéré une petite macro sur excel qui permet de receuillir dans des champs de fichiers word des informations qui m'interessent.

Ma difficulté est que je voudrais caché l'apparition des fichiers words lors de la récupération des infos.

Voilà la ptite macro :

Sub import_client()
Dim Fich As Worksheet
Set Fich = ThisWorkbook.Worksheets("All_Clients")
chemin = "F:\CSI\TNR version définitive\Outils de non régression\"
mesfichiers = Dir(chemin & "*.doc")
Dim Variables As Variant
Variables = Array("Nomtest", "Date", "Résultat", "Remarques")

nb_Champs = 4
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 = False
FichierWord.DisplayAlerts = False

Do While mesfichiers <> ""
If mesfichiers <> "." And mesfichiers <> ".." And mesfichiers <> "clients.doc" 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

D'après mes souvenirs, il fallait juste mettre FichierWord.Visible = False, mais visiblement c'est pas ça ! ^_^

Merci d'avance

 

[Catrice]

Re : caché une macro de recueil d'info

Bonjour,

Chez moi ça fontionne, Word n'apparait pas.
En executant pas à pas, à quel moment vois tu les fichiers Word ?

 

[az']

Re : caché une macro de recueil d'info

Dès le départ bizarrement, y'aurait pas une option à cocher dans les options d'excel ?

 

[Catrice]

Re : caché une macro de recueil d'info

Re,

Peux tu preciser tes versions Word, Excel et Windows ?
A quel moment (quelle ligne) Word apparait il ?
Tu peux le voir en executant ton code avec F8

 

[az']

Re : caché une macro de recueil d'info

Merci de prendre le temps de me répondre

Pour les versions je suis sur Word et Excel 2003 et quant à l'apparition du fichier Word, elle se fait sur cette ligne :

FichierWord.documents.Open Filename:=monDocument, ReadOnly:=True

Merci de ton aide

 

[Catrice]

Re : caché une macro de recueil d'info

Re,

Si tu passes FichierWord.Visible à True, à quel moment Word apparait il ?
En mode pas à pas il faut prendre le temps entre chaque ligne executée.

Peux tu tester la macro dans le fichier suivant.
Elle créé un fichier toto.doc.
Word apparait-il ?

As tu moyen de tester sur une autre machine ?