J’ai besoin de créer plusieurs dossiers avec des dates de création antérieure à la date du jour. Dans le but de pouvoir partager ses dossiers en réseau et de pour les classer par date de créations
Dans la colonne A : les noms des différents dossiers
Dans la colonne B : les dates de créations
J’arrive à créer des dossiers avec les bons noms :
Code:
Sub créer_dossiers()
On Error Resume Next
Dim lig As Byte, cptr As Byte
lig = Range("A65536").End(xlUp).Row
For cptr = 1 To lig
MkDir "C:\Users\kewan\Desktop\dossiers_dates\" & Cells(cptr, 1)
Next
End Sub
Mais je ne sais pas leur assigner une date de création.
D’après mes recherches je pense qu’il faut utiliser la propriété DateCreated mais je n'ai trouvé comment.