Erreur chemin d’accès introuvable fonction "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

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

Le forum,

Le chemin "G:\Service A\Commerce \Dossiers" ne devrait pas contenir d'espace entre Commerce et \.

Sinon, sur Excel 2016, ton code fonctionne.

Jim

Bonsoir JIM55,

Il s'agit d'une erreur de recopie dans mon code original il n'y a pas d'espace

Dommage j'aurais préférer que ce soit ça car la je suis coincé.

Pour info je suis en version 2003

Une idée pour contourné le problème ?

Jimmy

Bonjour,

Client = Activite & "\" & Sheets("Détail Déboursés").Range("X2")
If Dir(Client, vbDirectory) = "" Then MkDir Client

et Chemin avec le lecteur et le début du chemin ?

eric

Bonjour,

Client = Activite & "\" & Sheets("Détail Déboursés").Range("X2")
If Dir(Client, vbDirectory) = "" Then MkDir Client

et Chemin avec le lecteur et le début du chemin ?

eric

Bonsoir ERIC,

Si je test ma variable client avec une msgbox

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

msgbox Client

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

Ah, je n'avais pas prêté attention que Activite l'intégrait.

Il n'y a pas d'erreur qui me saute aux yeux, ton chemin ne parait pas excentrique.

Pour moi ça peut être une question de timing, X1 n'est pas encore créé que vba déboule pour créer le suivant.

Essaie en insérant une boucle qui contrôle son existence avant de passer à la suite.

eric

PS : quand tu mets du code ici prend l'habitude de l'indenter et d'utiliser les balises Code (icone </>).

C'est plus agréable à lire et on peut mieux voir les éventuelles erreurs