Daydayer
Messages postés201Date d'inscriptionmercredi 1 décembre 2004StatutMembreDernière intervention13 août 2005
-
27 janv. 2005 à 18:21
Daydayer
Messages postés201Date d'inscriptionmercredi 1 décembre 2004StatutMembreDernière intervention13 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...