Créer un dossier dont son nom est saisie dans un textbox

[bichon]

Bonjour a tous et a toutes
j'espere que tout le monde va bien, je souhaiterai que quelqu'un m'aide pour un petit problème
vu mes très légères connaissances en vba j'espere que vous allez m'aider
voila je souhaiterai créer un dossier dans un repertoire et le nom de ce dossier
j'aurai a le saisir dans un texbox
voila un petit echantillon de code tres peu parlant
mais je vous ai di en gros ce que je souhaité ci dessus

Private Sub CommandButton1_Click()
Dim NomFic As String
Dim Rep As String
Dim Nom As String
Application.DisplayAlerts = False
Rep = "C:\Mon repertoire"
NomFic = TextBox1.Value
Nom = Rep & NomFic
End Sub

voila bien evidament cela ne marche pas
j'espere sincerement que vous pourrez m'aider
amicalement

jp

 

[Yo]

Essaye ça :

Private Sub CommandButton1_Click()
Dim NomFic As String
Dim Rep As String
Dim Nom As String
Set filesys = CreateObject("Scripting.FileSystemObject")
Application.DisplayAlerts = False
Rep = "C:\Temp\"
NomFic = TextBox1.Value
Nom = Rep & NomFic
If Not filesys.FolderExists(Nom) Then
Set newfolder = filesys.CreateFolder(Nom)
MsgBox ("Le repertoire " & Nom & " a été créé")
Else
MsgBox "Le repertoire existe déjà"
End If

End Sub

 

[bichon]

ok yo je te remercie je vais essayé je tiens au courant
encore merci

 

[zon]

Re,


Il existe aussi la bonne vieille commande DOS Mkdir qu'on peut urtiliser en VBA:

Dans ton cas:

Private Sub CommandButton1_Click()
Dim NomFic As String
Dim Rep As String
Dim Nom As String
Application.DisplayAlerts = False
Rep = "C:\Mon repertoire\" ''ATTENTION RAJOUTER un Antislash
NomFic = TextBox1.Value
Nom = Rep & NomFic
On error resume next
Mkdir Nom
if Err<>0 then
Msgbox"Le repertoire " & Nom & " a été créé", vbokonly, "SUCCES"
else "Le repertoire " & Nom & " existe déjà", vbokonly, "ECHEC"
end if
End Sub


A+++

 

[bichon]

merci encore zon j'essayerai les 2 methodes et je vois dirais laquelle
est la plus efficace
re re merci

 

[bichon]

Resalut Zon Yo et le furum
Je vous remercie beaucoup ca marche sans problème les 2 solutions
les 2 sont equivalentes
encore merci