En effet Fred merci, j'avais pas mis de chemin complet en pensant qu'il me suffisait de faire un
repactif = ThisWorkbook.Path
ChDir repactif
et ensuite de faire un MkDir avec juste le nom du dossier.
Mais visiblement ça ne marche pas comme ça. Du coup j'ai fait ça:
MkDir "C:\test\" & rep & "\" & sousrep
Au passage j'ai transformé mes If en While car il peut y avoir plusieurs sous-répertoires dans le même répertoire mais pour l'instant il ne prend que le premier avec le message d'erreur "Erreur d'accès Chemin/fichier"
En tout cas ça avance doucement et voilà le code à jour.
Sub créer_dossiers()
MkDir "C:\test"
Dim maxligne As Byte, ligne As Byte
maxligne = Range("A65536").End(xlUp).Row
ligne = 2
repactif = ThisWorkbook.Path
rep = Range("B" & ligne).Value
sousrep = Range("C" & ligne + 1).Value
soussousrep = Range("D" & ligne + 1).Value
soussoussousrep = Range("E" & ligne + 1).Value
For ligne = 2 To maxligne
MkDir "C:\test\" & rep
ligne = ligne + 1
ChDir repactif
While sousrep <> ""
MkDir "C:\test\" & rep & "\" & sousrep
ligne = ligne + 1
ChDir repactif
While soussousrep <> ""
MkDir "C:\test\" & rep & "\" & sousrep & "\" & soussousrep
ligne = ligne + 1
ChDir repactif
While Not soussousrep <> ""
MkDir "C:\test\" & rep & "\" & sousrep & "\" & soussousrep & "\" & soussoussousrep
ligne = ligne + 1
ChDir repactif
Wend
Wend
Wend
ChDir repactif
Next ligne
End Sub
Fred, je n'ai pas posté le fichier car il n'y a rien à apprendre de plus que la capture d'écran et le code ci-dessus... Et merci encore pour ton aide, je continue de creuser