problème de 'next' sans 'for'Résolu

Question

bonjour,

je suis en train de r&#233;aliser un code listant chaque fichier de chaque sous r&#233;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&#233;taire\Bureau\Claire\PL\PMS"
  ' Set du dossier &#224; parcourir
  Set fld = fso.GetFolder(Dossier)
      Set newfld = fso.GetFolder(newPath)


  ' Recherche r&#233;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&#232;me, c'est que le compilateur me dit 'next sans for'... alors que j'ai bien mis ce qu'il fallait!
au d&#233;but je me demandais si le probl&#232;me ne venait pas du 'set' &#224; l'int&#233;rieur de la bioucle principale (d'ailleurs ai je le droit d'en faire un), mais non car j'ai fait la boucle int&#233;rieure seule et cela ne va toujours pas...
auriez vous une id&#233;e...

merci d'avance

  Daydayerement V&#244;tre

Gobillot · Accepted Answer

manque le End If &#224; la fin du If ce que fait que le next n'est pas pris en compte.

Daniel

Daydayer · Answer

probl&#232;me r&#233;solu!
  Daydayerement V&#244;tre

Daydayer · Answer

d&#233;ol&#233;e, je l'ai vu juste apr&#232;s avoir envoy&#233; mon message....
  Daydayerement V&#244;tre

Problème de 'next' sans 'for'

3 réponses