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

Daydayer 201 Messages postés mercredi 1 décembre 2004Date d'inscription 13 août 2005 Dernière intervention - 27 janv. 2005 à 18:21 - Dernière réponse : Daydayer 201 Messages postés mercredi 1 décembre 2004Date d'inscription 13 août 2005 Dernière intervention
- 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
Gobillot 3140 Messages postés vendredi 14 mai 2004Date d'inscription 31 mars 2015 Dernière intervention - 27 janv. 2005 à 18:29
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

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 81 internautes ce mois-ci

Daydayer 201 Messages postés mercredi 1 décembre 2004Date d'inscription 13 août 2005 Dernière intervention - 27 janv. 2005 à 18:43
0
Merci
problème résolu!
Daydayerement Vôtre
Daydayer 201 Messages postés mercredi 1 décembre 2004Date d'inscription 13 août 2005 Dernière intervention - 27 janv. 2005 à 18:44
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.