Sub Deplacertoto()
'Vérifie si le dossier mensuel existe et si non le crée
annee = Year(Now)
mois = Month(Now)
mois = Format(Date, "mm")
annee = Format(Date, "yyyy")
If Dir("Z:\Archives\" & [COLOR="#FF0000"]annee[/COLOR] & "\" & annee & "-" & mois, vbDirectory) <> "" Then
Else
MkDir ("Z:\Archives\" & annee & "\" & annee & "-" & mois)
End If
'Déplace le pdf du jour dans les archives du disque Z:
Dim objOFS As Variant
Const SourcePdf = "Z:\pdf"
Const Destin = "Z:\Archives\" & annee & "\" & annee & "-" & mois
Set objOFS = CreateObject("Scripting.FileSystemObject")
'Test si au moins un fichier présent
If Dir(SourcePdf) <> "" Then
objOFS.moveFile SourcePdf, Destin
Else
MsgBox "Pas de fichier a déplacer!"
End If
Set objOFS = Nothing
End Sub