OVH Cloud OVH Cloud

a l'aide svp

1 réponse
Avatar
Gatsu
Bonjour à toutes et à tous.

Quelqu'1 pourrait -il m'aider pour une petite macro svp, voilà mon souci :
J'ai un cd de présentation d'1 progiciel qui contient des centains de
fichiers htm dans de multitudes sous réperoires, je voudrais les imprimer
tous.
Est-ce possible avec une macro d'aller explorer tous ces sous rep et de les
imprimer un par un

Merci d'avance pour votre aide.

1 réponse

Avatar
Dédé
Salut Gatsu !

Voici ce que j'ai trouvé sur Excelabo et peut-être que cela pourra te mettre
sur une piste ... En fait, cette macro te permet de rechercher tout fichier
.xls mais il doit être possible de la modifier pour faire de même avec les
autres extensions de fichier ...

Le plus simple c'est d'utiliser FileSearch :

Dim F
With Application.FileSearch
.NewSearch
.LookIn = "C:Temp"
.Execute
On Error Resume Next
For Each F In .FoundFiles
Workbooks.Open F
Next F
End With


Bon courage
Salutations
Dédé



"Gatsu" a écrit dans le message de
news:
Bonjour à toutes et à tous.

Quelqu'1 pourrait -il m'aider pour une petite macro svp, voilà mon souci :
J'ai un cd de présentation d'1 progiciel qui contient des centains de
fichiers htm dans de multitudes sous réperoires, je voudrais les imprimer
tous.
Est-ce possible avec une macro d'aller explorer tous ces sous rep et de
les

imprimer un par un

Merci d'avance pour votre aide.