Création fichier dasn un repertoire

Bonjour le Forum,

Je bloque sur un code bouton dans un userform permettant de créer automatiquement un fichier (dans un répertoire réseau) dont l'extension du début du repertoire est fixe et juste le dernier nom est variable (est égale à ma TextBox3) un exemple:

Mon fichier réseau -> \\servstrso\13 STR-VO\S13 Gestion du Domaine Public\10-DT-DICT-ATU\2020\ATU Après ATU, ce sont des noms de communes qui fluctuent en fonction de mon formulaire. Je souhaiterai qu'une fois qu'il est pris en compte le chemin global jusque dans la commune, il me crée un autre fichier qui portera le nom de la rue (se trouvant en textbox5)

J'ai essayé plusieurs manières, il me crée un fichier mais directement sous "ATU", voici mon code utilisé:

Private Sub CommandButton6_Click()
Dim NomFic As String
 Dim Rep As String
 Dim Nom As String

 Set filesys = CreateObject("Scripting.FileSystemObject")
 Application.DisplayAlerts = False
 Rep = "\\servstrso\13 STR-VO\S13 Gestion du Domaine Public\10-DT-DICT-ATU\2020\ATU" & TextBox3.Value

 NomFic = TextBox5.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

Je tiens à préciser que j'ai cherché, j'ai lu avec le système des fonctions, mais c'est un véritable casse-tête pour moi qui ne suit pas très expérimentée dans le domaine.

D'avance merci pour votre aide.

Bonsoir sans savoir ce qu'il y a dans tes textbox... difficile... mais je dirais qu'il manque des "\" pour que le code comprenne que c'est un sous dossier...

donc je modifierais

 Rep = "\\servstrso\13 STR-VO\S13 Gestion du Domaine Public\10-DT-DICT-ATU\2020\ATU" & TextBox3.Value

par

 Rep = "\\servstrso\13 STR-VO\S13 Gestion du Domaine Public\10-DT-DICT-ATU\2020\ATU" & "\" & TextBox3.Value & "\"

Fred

Merci Fred2406, C'était bien cela le souci, en effet, il comprend bien que c'est un sous dossier grâce au "\", j'avais tout essayé sauf cela. Merci Bien

Bonjour

Dans ce cas....

Fred