Discussion :

[Daniel.C]

Bonjour,

Soit le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
    Dim FSO As Object, Dossier As Object, Var As Object
    Chemin = "C:\Users\dcola\Documents\Donnees\Daniel\mpfe\Marc\commun équipes  EDUCATIVE" ' à modifier
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Dossier = FSO.getfolder(Chemin)
    Set Var = Dossier.subfolders(1)
End Sub

Pourquoi la ligne "Set Var..." provoque-t-elle une erreur d'exécution 5 alors qu'il y a trois sous-dossiers ?