Problème de 'next' sans 'for'

Résolu
Daydayer Messages postés 201 Date d'inscription mercredi 1 décembre 2004 Statut Membre Dernière intervention 13 août 2005 - 27 janv. 2005 à 18:21
Daydayer Messages postés 201 Date d'inscription mercredi 1 décembre 2004 Statut Membre Dernière intervention 13 août 2005 - 27 janv. 2005 à 18:44
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

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

Daniel
3
Daydayer Messages postés 201 Date d'inscription mercredi 1 décembre 2004 Statut Membre Dernière intervention 13 août 2005
27 janv. 2005 à 18:43
problème résolu!
Daydayerement Vôtre
0
Daydayer Messages postés 201 Date d'inscription mercredi 1 décembre 2004 Statut Membre Dernière intervention 13 août 2005
27 janv. 2005 à 18:44
déolée, je l'ai vu juste après avoir envoyé mon message....
Daydayerement Vôtre
0
Rejoignez-nous