Problème de 'next' sans 'for' [Résolu]

Messages postés
201
Date d'inscription
mercredi 1 décembre 2004
Dernière intervention
13 août 2005
- - Dernière réponse : Daydayer
Messages postés
201
Date d'inscription
mercredi 1 décembre 2004
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
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Dernière intervention
31 mars 2015
3
Merci
manque le End If à la fin du If ce que fait que le next n'est pas pris en compte.

Daniel

Merci Gobillot 3

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

Codes Sources a aidé 105 internautes ce mois-ci

Messages postés
201
Date d'inscription
mercredi 1 décembre 2004
Dernière intervention
13 août 2005
0
Merci
problème résolu!
Daydayerement Vôtre
Messages postés
201
Date d'inscription
mercredi 1 décembre 2004
Dernière intervention
13 août 2005
0
Merci
déolée, je l'ai vu juste après avoir envoyé mon message....
Daydayerement Vôtre

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.