Re: Sauvegarder fichier dans un repertoire en fonction de la date
bonjour Romain
j'espere que l'exemple ci joint pourra t'aider
une copie du classeur est crée dans un repertoire specifique
les repertoires et sous repertoires sont créés dans le meme dossier que le classeur d'origine ( à adapter en fonction de ton projet )
Sub CopieArchivage()
Dim Dossier1 As String, SousDossier2 As String
Dim Cible As Object, Dossier As Object
Dossier1 = ThisWorkbook.Path & "\" & Format(Date, "mmmm yy")
If Dir(Dossier1, vbDirectory) = "" Then MkDir (Dossier1)
SousDossier2 = Dossier1 & "\" & Format(Date, "dd mm yy")
If Dir(SousDossier2, vbDirectory) = "" Then MkDir (SousDossier2)
Set Cible = CreateObject("Scripting.FileSystemObject")
Set Dossier = Cible.GetFolder(SousDossier2)
ThisWorkbook.SaveCopyAs FileName:=SousDossier2 & "\MORLAIX" & Dossier.files.Count + 1 & ".xls"
Set Cible = Nothing
End Sub
bonne soirée
michel