Personaliser le fichier de destination d'une extraction VBA (MkDir)

Version imprimable

Bonsoir,

Je sollicite à nouveau les membres de ce forum pour un petit soucis technique.
Un membre de ce forum m'avait écrit du code pour réaliser ce que je souhaitais, à savoir créer un fichier de destination qui tenez compte d'un paramètre d'un recordset et comme je bouclais dessus le chemin était modifié systématiquement.

J'aimerais rajouter dans le code ci-dessous au moins un sous-dossier en dur ou en macro-variable (il s'agit ici du dossier "Flux"). J'ai tenté de l'intégrer comme ci-dessous à la hussarde, en utilisant une macro-variable (esperluette) et même via un recordset , cependant à chaque fois mon code s'affiche en rouge et j'ai un message d'erreur.

Je ne comprends pas du tout la logique, même les guillemets seuls ne fonctionnent pas. Ça m'embête sérieusement car ça m'obligerait à créer en dur un dossier pour chaque "Nom" avec mon sous dossier "Flux".8O

Pouvez-vous me dire pourquoi cela ne fonctionne t-il pas? Quel syntaxe dois-je utiliser pour ajouter un sous-dossier en dur à mon chemin ?

Merci d'avance,
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 If Dir("C:\Users\gk\Documents\TEST\" & rec1.Fields("Nom"), vbDirectory) = "" Then MkDir "C:\Users\gk\Documents\TEST\" & rec1.Fields("Nom") End If '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'CREATION DE MON SOUS DOSSIER FLUX (le code s'affiche en rouge) If Dir("C:\Users\gk\Documents\TEST\" & rec1.Fields("Nom")\Flux, vbDirectory) = "" Then MkDir "C:\Users\gk\Documents\TEST\" & rec1.Fields("Nom")\Flux End If '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' If Dir("C:\Users\gk\Documents\TEST\" & rec1.Fields("Nom") & "\Flux\" & Format(DateMin, "YYYYMMDD") & "-" & Format(DateMax, "YYYYMMDD"), vbDirectory) = "" Then MkDir "C:\Users\gk\Documents\TEST\" & rec1.Fields("Nom") & "\Flux\" & Format(DateMin, "YYYYMMDD") & "-" & Format(DateMax, "YYYYMMDD") End If ' Sauvegarde de la feuille Excel xlBook.SaveAs "C:\Users\gk\Documents\TEST\" & rec1.Fields("Nom") & "\Flux\" & Format(DateMin, "YYYYMMDD") & "-" & Format(DateMax, "YYYYMMDD") & "\" & rec1.Fields("Nom") & "_" & Format(DateMin, "YYYYMMDD") & "-" & Format(DateMax, "YYYYMMDD") & ".xls"

Bonsoir,

Essaie comme ça :

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
27
28
Dim sDossier As String
 
' Dossier de départ
sDossier = "C:\Users\gk\Documents\TEST"
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'CREATION SOUS-DOSSIER NOM
sDossier = sDossier & "\" & rec1.Fields("Nom")
If Dir(sDossier, vbDirectory) = "" Then
    MkDir sDossier
End If
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'CREATION SOUS-DOSSIER FLUX
sDossier = sDossier & "\" & "Flux"
If Dir(sDossier, vbDirectory) = "" Then
    MkDir sDossier
End If
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'CREATION SOUS-DOSSIER YYYYMMDD-YYYYMMDD
sDossier = sDossier & "\" & Format(DateMin, "YYYYMMDD") & "-" & Format(DateMax, "YYYYMMDD")
If Dir(sDossier, vbDirectory) = "" Then
    MkDir sDossier
End If
 
' Sauvegarde de la feuille Excel
Debug.Print sDossier & "\" & rec1.Fields("Nom") & "_" & Format(DateMin, "YYYYMMDD") & "-" & Format(DateMax, "YYYYMMDD") & ".xls"

J'ai écrit un peu différemment, en passant par une variable (sDossier), pour mieux visualiser la progression.
Après la vérification de l'existence d'un sous-dossier, on rajoute le sous-dossier au chemin contenu dans la variable sDossier:
C:\doss1\doss2\doss3
C:\doss1\doss2\doss3\doss4
C:\doss1\doss2\doss3\doss4\doss5
etc...

A+

18/03/2013, 20h02
Antisthene

OK

Bonsoir LedZepII,

Je viens de tester et ça fonctionne très bien.:D On gagne en visibilité c'est certains je vais quand même essayer de voir pourquoi ça ne marchait pas avant maintenant que je sais que ça doit fonctionner.

Par contre j'ai conservé : le xlBook.SaveAs car avec le Debug.print , excel m'ouvre une boîte de dialogue me demandant si je veux enregistrer les modifications apporter au classeur?

Merci beaucoup,
18/03/2013, 20h18
LedZeppII
Citation:

Envoyé par Antisthene

Par contre j'ai conservé : le xlBook.SaveAs car avec le Debug.print , excel m'ouvre une boîte de dialogue me demandant si je veux enregistrer les modifications apporter au classeur

Pardon, j'ai fait une mauvaise manipulation de copier/coller.
Le Debug.Print ne te sert à rien. C'était pour ma simulation.

Concernant ton code d'origine.
Il manquait des guillemets doubles ici, pour concaténer \Flux:
Code:

1 2 3 If Dir("C:\Users\gk\Documents\TEST\" & rec1.Fields("Nom")\Flux, vbDirectory) = "" Then MkDir "C:\Users\gk\Documents\TEST\" & rec1.Fields("Nom")\Flux End If
Code:

1 2 3 If Dir("C:\Users\gk\Documents\TEST\" & rec1.Fields("Nom") & "\Flux", vbDirectory) = "" Then MkDir "C:\Users\gk\Documents\TEST\" & rec1.Fields("Nom") & "\Flux" End If
A+