Test si dossier existe / création avec boucle

Bonjour,

J'ai trouvé un code me permettant de vérifier si un dossier existe et si non, le créer.

Sans la boucle il fonctionne parfaitement.

Seulement, j'ai plusieurs dossiers à vérifier, du coup j'ai pensé à une boucle

Du coup, ça ne fonctionne plus, la boucle ne renvoyant pas les chemins.

Merci pour l'aide,

Bonne journée

Sub Test_Repertoire()
Dim fs As Object
Dim chemin As String
Dim i As Byte

Set fs = CreateObject("Scripting.FileSystemObject") ' initialisation de la variable

chemin1 = "S:\Partages\05_Assistance_technique_et_logistique\06 Patrimoine Bati et Réseaux\1 Suivi des affaires\2020"
chemin2 = "S:\Partages\05_Assistance_technique_et_logistique\06 Patrimoine Bati et Réseaux\1 Suivi des affaires\2020\PBR"
chemin3 = "S:\Partages\05_Assistance_technique_et_logistique\06 Patrimoine Bati et Réseaux\1 Suivi des affaires\2020\PBR\001"

For i = 1 To 3
'If fs.FolderExists(chemin & i) Then
    'MsgBox "existe" & Chr(10) & (chemin & i) ' le repertoire existe donc rien a faire
'Else
'fs.CreateFolder chemin & i
'MsgBox " créé " & Chr(10) & (chemin & i) ' le repertoire n'existe pas donc on le créer
'End If
MsgBox chemin & (i)
Next i

Set fs = Nothing
End Sub

Bonjour

Peut-être comme ça:

Sub Test_Repertoire()
Dim fs As Object
Dim chemin As String
Dim i As Byte
Dim D(1 To 3) As String

Set fs = CreateObject("Scripting.FileSystemObject") ' initialisation de la variable

D(1) = "S:\Partages\05_Assistance_technique_et_logistique\06 Patrimoine Bati et Réseaux\1 Suivi des affaires\2020"
D(2) = D(1) & "\PBR"
D(3) = D(2) & "\001"

For i = 1 To 3
'If fs.FolderExists(D(i)) Then
    'MsgBox "existe" & Chr(10) & D(i) ' le repertoire existe donc rien a faire
'Else
'fs.CreateFolder D(i)
'MsgBox " créé " & Chr(10) & D(i) ' le repertoire n'existe pas donc on le créer
'End If
MsgBox D(i)
Next i

Set fs = Nothing
End Sub

Cordialement

Bonjour Efgé,

Merci pour ton aide, ça fonctionne

Bonne fin de journée,

Jeremy