Boucle sur fichiers

[naidinp]

Bonjour a tous,

Voici un bout de code (dans le fichier attaché) qui me permets de faire un certain traitement sur plusieurs fichiers dans un repertoire donné.

Pour l'instant je n'arrive pas a arreter le traitement (il boucle sans fin).
Enfait je voudrais arriver a ce que une fois les traitement terminé sur tous les fichiers la boucle s'arrete.

Qq'un peut m'aider svp ?

Merci d'avance

Paul

PS : Débutant en VB 😱(

 

[naidinp]

Je me reponds a moi-meme parce que j'ai trouvé le code sur le super site de frederic sigonneau (http://perso.wanadoo.fr/frederic.sigonneau/) et si ca peut interesser qq'un :

Sub ExamineDossier()
'Tim Barlow et Amr A Allam, mpep
Dim myPath As String

myPath = "C:\Data\" 'dossier à examiner
stgFilename = Dir(myPath & "*.xls")

Do While stgFilename <> ""
Workbooks.Open Filename:=myPath & stgFilename
'
'traitement ici
'
stgFilename = Dir()
Loop
End Sub


@+