Salut tout le forum.
J’ai besoin de votre aide.
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 :
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.
Merci de votre aide.
Kewan.
J’ai besoin de votre aide.
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.
Merci de votre aide.
Kewan.