Discussion :

[lejack]

Bonjour,

Je dispose d'une macro qui génère un fichier par ligne dans une base de données.

En l'état actuel des choses, je crée un dossier "général" dans lequel tous les fichiers sont stockés dedans.
Seulement, j'aimerais que chaque fichier soit stockés dans un dossier propre afin d'y mettre d'autres fichiers par la suite:

Structure actuelle : Dossier principal/(Fichier1, Fichier2, ....)
Structure désirée: Dossier principal/
Dossier Fichier 1 / Fichier 1
Dossier Fichier 2 / Fichier 2

Code :

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

1
2
3
4
5
6
7
8
9
10
Voici la partie du code s'occupant de la sauvegarde:
         If Dir(Path & "\Output" & "\Main_Folder" & "\rID_fichier.value", vbDirectory) <> "" Then
 
            wkbTemp.SaveAs Filename:=Path & "\Output" & "\Main_Folder\" & "rID_fichier.value\" & rNomFichier.Value, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
            wkbTemp.Close SaveChanges:=False
        Else
            FSO.CreateFolder (Path & "\Output" & "\Main_Folder" & "\rID_fichier.value")
            wkbTemp.SaveAs Filename:=Path & "\Output" & "\Main_Folder\" & "rID_fichier.value\" & rNomFichier.Value, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
            wkbTemp.Close SaveChanges:=False
        End If

J'obtiens l'erreur "Path not found". Sauriez-vous me dire ce qui est faux?
Merci beaucoup pour votre aide

[patricktoulon]

bonjour
ne confondrais tu pas des variable representant un string et un code ecrit en dur ??

Code :

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

If Dir(Path & "\Output" & "\Main_Folder" & "\rID_fichier.value", vbDirectory) <> "" Then

n'aurais tu pas voulu ecrire

Code :

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

If Dir(Path & "\" & Output & "\" & Main_Folder & "\" & rID_fichier.value, vbDirectory) <> "" Then

et pareil pour les lignes qui suivent ???????

perso je le ferais en debut

Code :

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

1
2
3
4
5
6
7
8
9
dossier=Path & "\" & Output & "\" & Main_Folder & "\" & rID_fichier.value
if dir(dossier,vbdirectpory)="" then 
 
'sauvegarde avec dossier et"\" & nom.extention
else
'creation dossier
mkdir dossier
'sauvegarde avec dossier et"\" & nom.extention
end if

encore faut il que les variables path,outpout,Main_folder, soient renseignées

[lejack]

Bonjour Patrick,

Merci pour ta réponse.

Alors j'ai essayé ceci :

Code :

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

If Dir(Path & "\" & Output & "\" & Main_Folder & "\" & rID_fichier.value, vbDirectory) <> "" Then

Mais j'obtiens la même erreur.
Pardon, j'aurais du préciser:

Output est un dossier existant et "Main_Folder" just un dossier unique à créer alors que "rID_fichier.value" est le contenu d'un range, déclaré au début du code.
J'ai également essayé ceci :

Code :

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

If Dir(Path & "\Output" & "\Main_Folder" & rID_fichier.value, vbDirectory) <> "" Then

Et j'obtiens toujours la même erreur.
As-tu une idée? Je deviens fou !

[patricktoulon]

re
tu n'a qua fair un affichage dans debug et tu vois si le chemin est bon c'est tout

Code :

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

debug.print Path & "\Output & "\Main_Folder & "\" & rID_fichier.value

et modifie selon le resultat

[lejack]

re
tu n'a qua fair un affichage dans debug et tu vois si le chemin est bon c'est tout

Code :

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

debug.print Path & "\Output & "\Main_Folder & "\" & rID_fichier.value

et modifie selon le resultat

Bonjour Patrick,

Alors j'ai fais ça et cela fonctionne jusqu'a la création du sous-dossier mais ensuite, sauver le fichier ne fonctionne pas.
(A savoir que : Output et Main folder sont des dossiers déjà existants et rID_fichier.value & rNomFichier.Value sont des range déclarés qui contiennent des valeurs dans une feuille excel !

Code :

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

1
2
3
4
5
6
7
8
9
10
sFoldername = (Path & "\Output" & "\Main Folder")
            If Dir(sFoldername & "\" & rID_fichier.value, vbDirectory) <> "" Then
 
            wkbTemp.SaveAs Filename:=sFoldername & "\" & rID_fichier.value & "\" & rNomFichier.Value, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
            wkbTemp.Close SaveChanges:=False
        Else
            FSO.CreateFolder (sFoldername & "\" & rID_fichier.value)
            wkbTemp.SaveAs Filename:=sFoldername & "\" & rID_fichier.value & "\" & rNomFichier.Value, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
            wkbTemp.Close SaveChanges:=False
        End If

J'ai essayé le debug print mais rien à faire, ça bug au moment du "SaveAs" alors que le sous dossier se crée corretement... J'ai essayé d'enlever la partie - & "\" & et le fichier s'est sauvé mais pour une raison que j'ignore, on dirait qu'il ne rentre pas dans le dossier pour sauvegarder. J'ai même essayé un texte "d" à la place du nom du fichier mais rien n'y fait....Aurais-tu une idée de pourquoi?
Merci !

[lejack]

Bonjour à tous,

C'est résolu.

Pour ceux comme moi qui un jour auront ce problème : Vérifiez que le nom de vos dossiers/fichiers ne contiennent pas d'espace. VBA les enlève automatiquement quand il sauvegarde mais si votre valeur source contient l'espace, il ne sait pas ou sauver donc boom : erreur !

Bonne journée.