Problème de 'next' sans 'for'

Résolu
Signaler
Messages postés
201
Date d'inscription
mercredi 1 décembre 2004
Statut
Membre
Dernière intervention
13 août 2005
-
Messages postés
201
Date d'inscription
mercredi 1 décembre 2004
Statut
Membre
Dernière intervention
13 août 2005
-
bonjour,

je suis en train de réaliser un code listant chaque fichier de chaque sous répertoire, avec des boucles for. J'ai le code suivant:

Private Sub CommandButton1_Click()



Dim fld, newfld As Folder
Dim subfld As Folder
Dim fl As File
Dim fso As FileSystemObject
Dim Dossier, newPath As String
'Set fsb = New FileSystemObject
Set fso = New FileSystemObject
Dossier = "C:\Documents and Settings\Propriétaire\Bureau\Claire\PL\PMS"
' Set du dossier à parcourir
Set fld = fso.GetFolder(Dossier)
Set newfld = fso.GetFolder(newPath)


' Recherche récursive des fichiers dans les sous-dossiers
For Each subfld In fld.SubFolders

newPath = Dossier + subfld.Name + ""
Set newfld = fso.GetFolder(newPath)
For Each fl In newfld.Files
If Right(fl.Name, 4) = ".doc" Then
Selection.TypeText Text:=subfld.path
Selection.MoveDown Unit:=wdLine, Count:=1

Next
Next


End Sub



le problème, c'est que le compilateur me dit 'next sans for'... alors que j'ai bien mis ce qu'il fallait!
au début je me demandais si le problème ne venait pas du 'set' à l'intérieur de la bioucle principale (d'ailleurs ai je le droit d'en faire un), mais non car j'ai fait la boucle intérieure seule et cela ne va toujours pas...
auriez vous une idée...

merci d'avance

Daydayerement Vôtre

3 réponses

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
31
manque le End If à la fin du If ce que fait que le next n'est pas pris en compte.

Daniel
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
201
Date d'inscription
mercredi 1 décembre 2004
Statut
Membre
Dernière intervention
13 août 2005

problème résolu!
Daydayerement Vôtre
Messages postés
201
Date d'inscription
mercredi 1 décembre 2004
Statut
Membre
Dernière intervention
13 août 2005

déolée, je l'ai vu juste après avoir envoyé mon message....
Daydayerement Vôtre