Créé un dossier depuis un USF

NICOALBERT à dit:

Bonjour le Forum ,

J'aurais voulu savoir si il est possible de créé un dossier dans un répertoire prédéfini directement en cliquant sur un bouton par rapport à certaine donnée .

Dans l'exemple créé le dossier (254569_Pb porte_01_02) dans "mes documents".

Merci d'avance .

Cdlt Nicoalbert .

Cliquez pour agrandir...

Sub creationdossier()
    Dim Chemin As String
    On Error Resume Next
    Chemin = "D:\Mes Documents\"    '*** A adapter ***
    MkDir Chemin & "254569_Pb porte_01_02"
    On Error GoTo 0
End Sub

NICOALBERT à dit:

Bonjour Jacky67 ,

Tout d'abord merci pour le temps que tu a pris pour me répondre .

En fait création de répertoire différent à chaque fois en fonction des données saisies .

Cdlt Nicoalbert .

Cliquez pour agrandir...

Private Sub CommandButton1_Click()
Dim LeNom As String, Chemin As String
LeNom = Me.TextBox1.Value & "_" & Me.TextBox2.Value & "_" & Me.Num1.Value & "_" & Me.Num2.Value
    On Error Resume Next
    Chemin = "D:\Mes Documents\"    '*** A adapter ***
    MkDir Chemin & LeNom
    On Error GoTo 0
End Sub

Jacky67 à dit:

Private Sub CommandButton1_Click()
Dim LeNom As String, Chemin As String
LeNom = Me.TextBox1.Value & "_" & Me.TextBox2.Value & "_" & Me.Num1.Value & "_" & Me.Num2.Value
On Error Resume Next
Chemin = "D:\Mes Documents\" '*** A adapter ***
MkDir Chemin & LeNom
On Error GoTo 0
End Sub

Cliquez pour agrandir...