Dossier avec nom de cellule en VBA

Bonjour, j'aimerais créer en VBA un dossier prenant le nom d'un cellule

J'ai essayé ceci :

Sub dossier

Sheets(1).select

MkDir("\Test\Range("A1").value\")

End sub

j'ai de nombreuse erreurs je ne vois pas comment faire.

Merci par avance pour votre aide

Bonjour,

essaye quelque chose du style :

Sub TestCreaDossier

Chemin = "C:\Test\" ' Ne pas oublié de Finir par un "\"
MkDir (Chemin & sheets(1).Range("A1").Value)

end sub

Dis moi si ça te convient,

RemBabar

Rebonjour,

Super merci pour votre aide, mais j'ai un autre soucis en faite je veux créer ce dossier dans un répertoire situé au niveau du dossier contenant mon classeur.

Je suis dans le dossier actif contenant le classeur et au niveau de ce classeur il y a un dossier test :

voici le code,

Sub TestCreaDossier()

chemin = Workbooks(ActiveWorkbook.Name).Path ' Ne pas oublié de Finir par un "\"

MkDir (chemin & "test\" & Sheets(1).Range("A1").Value)

End Sub

Re,

si j'ai bien compris :

Sub TestCreaDossier

Chemin =  & "\"
MkDir (Chemin & sheets(1).Range("A1").Value)

end sub

RemBabar

Re,

Merci pour cette réponse en fait je veux utiliser le dossier actif et dans ce dossier contenant le dossier test créer un nouveau dossier dans le dossier test portant le nom de la cellule.

Le seule problème c'est le répertoire d'envoie.

je veux rajouter à Application.ThisWorkbook.Path l’arborescence test\

lockmanz

Ah d'accord !

Tu peux procéder ainsi :

Chemin =  thisworkbook.path & "\Test\"

Enlève la majuscule à "Test" si ton dossier n'en a pas ...

Désolé, j'ai oublié de compléter cette ligne dans le message précédent ^^

Cela te convient ?

RemBabar

Yes, Super, excellent ça fonctionne à merveille

merci beaucoup RemBabar.