Discussion :

[Antisthene]

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".

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 :

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
 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"

[LedZeppII]

Bonsoir,

Essaie comme ça :

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
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+

[Antisthene]

Bonsoir LedZepII,

Je viens de tester et ça fonctionne très bien. 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,

[LedZeppII]

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 :

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

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 :

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

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+