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