[VBA] Création dossier MkDir [Résolu]

ton code est correct à ceci prêt
tu ne dis pas si le dossier 'Annee' est déjà créé...

tu n'as pas le droit de créé un sous dossier pour un dossier inexistant.
il faut proceder en 2 temps dossier puis sous dossier

Sub test()
CheminSource = Left(Workbooks("ExtractionTest.xls").FullName, InStr(Workbooks("ExtractionTest.xls").FullName, "ExtractionTest.xls") - 1)

Annee = 2006

If Dir(CheminSource & Annee, 16) = "" Then
    MkDir (CheminSource & Annee)
End If

If Dir(CheminSource & Annee & "\Données_Découpages", 16) = "" Then
    MkDir (CheminSource & Annee & "\" & "Données_Découpages")
End If

End Sub

tu asu n log de l'adresse exacte qu'il essaie d'accèder ?

Salut Leahkim et merci

Log de l'adresse, c'est à dire, l'endroit où je veux créer mon répertoire? En fait ça dépend de l'endroit du fichier ExtractionTest (le but de cette portion de code en fait).

Dans mon exemple je dis que je récupère, avec CheminSource, qqchose comme C:\Documents and settings\moi\Bureau\..\...\ car ExtractionTest se trouve sur le bureau (dans un dossier), mais il pourrait se trouver à nimporte quel autre endroit. Je récupère en tout cas à tous les coups le chemin de ExtractionTest avec un \ à la fin.

Up

J'ai testé Annee en String avec "2006" mais rien.

Et oui le 2006 provient d'une variable, chargée par inputbox.
Le \ n'est pas à rajouter, CheminSource (gràce aux fonctions Left et Instr) récupère toujours le chemin du fchier avec un \ à la fin, donc ça ferait doublon. J'ai quand même essayé de rajouter mais nan

Ca vient d'ailleurs.

Oui c'était ça le soucis, je croyais qu'on pouvait créer répertoires et sous-répertoires en une fois.

Merci beaucoup Bidouilleu et pijaku :)