Chemin d’accès introuvable suite création de répertoire avec MkDir

Bonsoir a tous,
J'essaye de mettre au point ce code sans y parvenir.
J'ai sur mon disque G le chemin suivant : G:\service A\Commerce \Dossiers

Par le biais d'un Userbox je renseigne dans ma feuille active les cellules X1, X2 et X3

Si X1 n'existe pas il est créer Jusque la pas de soucis la création est réalisée.

Si X2 n'existe pas ce qui est le cas, j'obtiens le message: chemin d’accès introuvable et mon sous dossier n'est pas créer

Ci dessous ce que j'ai écris

Auriez vous une idée sur mon erreur


Merci a tous

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub Enregistrement_sous_du_Fichier_Etude_Contrat()     Dim Activite As String Dim Client As String Dim Nom_Fichier_Etude As String Dim Chemin As String     Activite = Range("X1").Value '''''''''''''''''''Nom du Dossiers activité Client = Range("X2").Value '''''''''''''''''''Nom du Dossiers Client Nom_Fichier_Etude = Range("X3").Value '''''''''''''''''''Nom du fichier pour enregistrer le classeur       Chemin = "G:\Service A\Commerce\Dossiers" Activite = Chemin & "\" & Sheets("Détail Déboursés").Range("X1")   If Dir(Activite, vbDirectory) = "" Then MkDir Activite   Client = Activite & "\" & Sheets("Détail Déboursés").Range("X2")   If Dir(Client, vbDirectory) = "" Then MkDir Client   ActiveWorkbook.SaveAs Filename:=Client & "\" & Nom_Fichier_Etude & ".xlsm" End Sub

---

bonjour,

Code:

---

1 2	Client = Activite & "\" & Sheets("Détail Déboursés").Range("X2") msgbox Client

---

çà affiche quoi ?

@+JP

Bonsoir,

Voici le résultat de la msgbox

G:\Service A\Commerce\Dossiers\Habitat Privé\Sita


Sachant que dans la cellule

X1 J'ai Habitat privé
X2 j'ai Sita
X3 J'ai centre ardennes

Et que le sous dossier Sita n'est pas en creer


Merci de ton aide

Jimmy

bonjour,

Citation:

---

Voici le résultat de la msgbox --> G:\Service A\Commerce\Dossiers\Habitat Privé\Sita

---

quand tu fais : If Dir(Client, vbDirectory) tu regardes dans Sita alors que tu devrais regarder dans : G:\Service A\Commerce\Dossiers\Habitat Privé\

@+JP

Oui je comprens m, mais en meme temps c'est la même procédure que pour activité et la je n'est pas de problème il me créer le dossier qui n'existe pas


Je ne comprend plus rien
En mode pas a pas detailler sur la ligne Client = Activite & "\" & Sheets("Détail Déboursés P2").Range("X2")

Si je me positionne sur Activité j'obtiens G:\Service A\Commerce\Dossiers\Habitat Privé\

Puis sur Client J'obtiens Sita (Dossier qui n'existe pas)

Sauf erreur de ma part il est pour moi normal que Msgbox client renvoi le résultat G:\Service A\Commerce\Dossiers\Habitat Privé\Sita

C'est le résultat de la variable activité et du contenu de ma cellule X2

Et comme le sous dossiers Sita n'existe pas Mkdir devrait me le creer comme il la fait pour le dossier issus de la variable Activité

Non ?

Merci de ton aide car je commence a m'y perdre :(

Ps apparemment ça marche sur excel 2016 ! mais moi je suis en ver 2003:oops:

bonjour,
plusieurs choses,
avec Dir(Client, vbDirectory) tu cherches un Directory --> vbDirectory et non un fichier
d'où la notion de regarder dans "\Habitat Privé\" pour chercher le répertoire "\Sita\"

tu ne peut pas creer un répertoire dans un répertoire qui n'existe pas

tu dois créer tes répertoires dans l'ordre:

Code:

---

1 2	Mkdir("G:\Service A\Commerce\Dossiers\Habitat Privé\") Mkdir("G:\Service A\Commerce\Dossiers\Habitat Privé\Sita\")

---

@+JP

Salut, parmi une myriade

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Option Explicit   Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _ (ByVal hwnd As Long, _ ByVal pszPath As String, _ ByVal lngsec As Long) As Long   Sub CreationDossier() Dim sDossier As String sDossier = "C:\Essai1\Essai2\Essai3\Essai4\Essai5" SHCreateDirectoryEx 0&, sDossier, 0& End Sub

---

Merci @mjpmjp

Grace à ton intervention j'ai compris que j'avais le même problème de dossier et sous-dossier inexistant qui m'amenait à "erreur 76 : chemin d'accès inexistant"
Je ne comprenais pas comment je pouvais avoir un "chemin d'accès inexistant" puisque le but du MkDir c'est de créer un dossier qui n'existe pas, justement après avoir vérifié que le chemin d'accès en question était ... inexistant


Je testais un répertoire qui n'existait pas

Code:

---

If Dir(C:\Downloads\dossier_inexistant\sous-dossier_inexistant, vbDirectory) = "" Then

---

Et je voulais le créer directement le dossier et le sous dossier

Code:

---

If Dir(C:\Downloads\dossier_inexistant\sous-dossier_inexistant, vbDirectory) = "" Then MkDir (C:\Downloads\dossier_inexistant\sous-dossier_inexistant)

---

Mais Excel comprend cela comme créer "sous_dossier_inexistant" dans le répertoire "C:\Downloads\dossier_inexistant", or ce répertoire n'existe pas encore.
il faut créer les dossiers un par un :

Code:

---

1 2 3 4 5

dossier_inexistant = ThisWorkbook.Path & "\" & Nom_dossier_à_créer sous_dossier_inexistant = ThisWorkbook.Path & "\" & Nom_dossier_à_créer & "\" & Nom_sous_dossier_à_créer   If Dir(dossier_inexistant, vbDirectory) = "" Then MkDir (dossier_inexistant) If Dir(sous_dossier_inexistant, vbDirectory) = "" Then MkDir (sous_dossier_inexistant)

---

Et là, plus aucun soucis !

Merci @Jimmatdycol pour la création du sujet.
Merci @mjpmjp pour ton aide !


@kiki29,
Merci pour ton code, que je n'ai pas essayé ton code mais qui doit avoir un intérêt dans certains cas, comme avoir une Sub() courte à appeler pour créer des répertoires inexistants avec un degré de sous-dossier imbriqués variable. Mais pour le coup, la méthode de mjpmjp me suffit.

Restons loin des API, VBA il existe déjà suffisamment de fonctionnalités pour gérer le système de fichiers.

L'instruction Mkdir est incapable de créer un dossier si le dossier parent n'existe pas.
Mais il est possible de créer les dossiers "manquants", une fonction récursive étant le plus efficace..

Exemple ci dessous avec la bibliothèque FSO, qui est à mon sens plus parlante que les fonctionnalités natives:

Code:

---

1 2 3 4 5 6 7 8 9

Public Sub CreateDirectory(ByVal Path As String) Dim Fso As Object '// Scripting.FileSystemObject Set Fso = CreateObject("Scripting.FileSystemObject")   If Not (Fso.FolderExists(Path)) Then CreateDirectory Fso.GetParentFolderName(Path) Fso.CreateFolder (Path) End If End Sub

---

Bonjour à tous
Une autre solution serait de ne pas s'occuper si le dossier existe
mais de le créer
cette fonction si dessous crée une arborescence

1. si elle n'existe pas l'arborescence est crée
2. si elle existe elle ne fait rien
3. si une partie manque elle comble les manques

exemple ici je n'ai que le desktop d'existant
et je crée mon dossier et toute une arborescence de sous dossier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub testCreateOrAdd() Dim Chemin_Pc$ Chemin_Pc = Environ("userprofile") & "\Desktop\A\B\C\D\E\F\G\H\I\J\K" CreateOrAddSubFolder Chemin_Pc End Sub   Function CreateOrAddSubFolder(Chemin_Pc$) If Dir(Chemin_Pc, vbDirectory) = "" Then ' = si dir_export N'existe pas alors With CreateObject("Wscript.Shell") .Run "cmd /c mkdir " & Chr(34) & Chemin_Pc & Chr(34) End With End If End Function

---

;)

@patmeziere:
D'une part, ouvrir un shell .... bof, ce n'est pas très propre (même si on le cache).
D'autre part, en cas de problème (accès refusé par exemple), l'exécution de la commande ne remonte aucune erreur.
En clair, on a aucun moyen de savoir si l'arborescence a été crée ou pas, sauf vérifier après coup qu'elle existe, ce qui est redondant.

Je ne recommande pas.

Citation:

---

Envoyé par deedolith

@patmeziere:
D'une part, ouvrir un shell .... bof, ce n'est pas très propre (même si on le cache).
D'autre part, en cas de problème (accès refusé par exemple), l'exécution de la commande ne remonte aucune erreur.
En clair, on a aucun moyen de savoir si l'arborescence a été crée ou pas, sauf vérifier après coup qu'elle existe, ce qui est redondant.

Je ne recommande pas.

---

1 c'est pas pire que FSO
2 accès refuse FSO même punition quoi que cmd en [ /C ] quand même ;)
3 savoir si ça a fonctionné ;et bien FSO même punition on est obligé de faire un dir ou utiliser son membre folder.existe pour controler
;)

Citation:

---

Envoyé par patmeziere

2 accès refuse FSO même punition quoi que cmd en [ /C ] quand même ;)
3 savoir si ça a fonctionné ;et bien FSO même punition on est obligé de faire un dir ou utiliser son membre folder.existe pour controler
;)

---

Heu non, en cas d'échec, Fso lèvera une erreur (exception) que l'on peut intercepter.
Par conséquent, si aucune erreur n'est levée, on a la garantie que l'arborescence existe.