Référence à cocher

[C@thy]

Bonjour,

je bloque sur l'instruction suivante :
Set Fichiers = CreateObject("Scripting.FileSystemObject").getfolder(Chemin).Files

pourtant j'ai coché la référence Microsoft Scripting Runtime
Y a-t-il autrechose à cocher?

Merci pour votre réponse😉

Biz

C@thy

 

[gilbert_RGI]

Re : Référence à cocher

Bonjour,

je bloque sur l'instruction suivante :
Set Fichiers = CreateObject("Scripting.FileSystemObject").getfolder(Chemin).Files

pourtant j'ai coché la référence Microsoft Scripting Runtime
Y a-t-il autrechose à cocher?

Merci pour votre réponse😉

Biz

C@thy

cette référence n'a même pas besoin d'être cochée

essayer ceci:

 Set fs = CreateObject("Scripting.FileSystemObject")
  Set dossier_racine = fs.getfolder(racine)

 

[pierrejean]

Re : Référence à cocher

bonjour C@thy et bises

Je confirme ce que dit Gilbert
Chez moi ceci (directement inspiré de F1) tourne sans reference specifique aussi bien sous Excel 2000 Que Excel 2007
E:\texcel2 est bien sur a adapter !!

Sub AfficherListeDossiers()
    Dim fs, f1
    Set fs = CreateObject("Scripting.FileSystemObject").GetFolder("E:\texcel2").Files
    For Each f1 In fs
      MsgBox (f1.Name)
    Next
End Sub

 

[C@thy]

Re : Référence à cocher

Un grand merci à vous deux.

Bises

C@thy