Création de fichiers imbriqués - mois/jour

Bonjour,

Je voudrais utiliser une macro qui crée automatiquement un dossier mois puis un dossier jour.

Par exemple, je crée le dossier mai, puis le sous-dossier 03 (.../mai/03). Demain, la macro ne créera que le sous-dossier 04 (.../mai/04) (mai existant déjà, en fin de moi, j'aurais 31 dossiers dans le dossier mai). Le mois prochain, un dossier juin (puis .../juin/01, .../juin/02, .../juin/03...) sera crée. J'arrive a créer le mois, mais bloque quant au jour. Merci de votre aide.

Mon code (la partie concernée uniquement) est

Sub Save_Completed_Hour()

Dim MyDay As Integer

Dim MyMonth As Integer

Dim FolderName1 As String

Dim FolderName2 As String

Dim Path1 As String

MyDay = Day(Date)

MyMonth = Month(Date)

FolderName1 = MyMonth & " - " & MonthName(MyMonth, False) & " " & Year(Date)

FolderName2 = MyDay

'creation du dossier mois

Path1 = "C:\test\"

If Dir(Path1 & FolderName1, vbDirectory) = vbNullString Then

MkDir Path1 & FolderName1

End If

'creation du dossier jour - ne fonctionne pas

If Dir(Path1 & FolderName1 & FolderName2, vbDirectory) = vbNullString Then

MkDir Path1 & FolderName1 & FolderName2

End If

End Sub

Est-il possible de crée un sous-dossier lorsque le nom du dossier parent varie ? Ou dois-je créer tous les dossiers mois en avance ? Je vous remercie de votre aide.

FS

Bonjour

as-tu essayé en ajoutant \

If Dir(Path1 & FolderName1 & "\" & FolderName2, vbDirectory) = vbNullString Then

Non, je n'avais pas essayé. Suis-je bete !!!

C'est génial, ca marche !

Merci beaucoup !!!