Discussion :

[Jimmatdycol]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mjpmjp]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

çà affiche quoi ?

@+JP

[Jimmatdycol]

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

[mjpmjp]

bonjour,

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

[Jimmatdycol]

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

[mjpmjp]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+JP