Macro : Créer des dossiers avec une date de création choisie

[Kewan]

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 :

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.

 

[Victor21]

Re : Macro : Créer des dossiers avec une date de création choisie

Bonsoir, Kewan.

Plutôt CreationDate, non ?
Ce lien pourrait vous fournir une piste.

Remarque : CreationDate est en lecture seule : voir Ce lien n'existe plus

 

[Kewan]

Re : Macro : Créer des dossiers avec une date de création choisie

Salut Victor21

Merci pour ton aide.

J'ai parcouru ce lien dans l'après midi.

J'arrive à récupérer la date de création d'un classeur mais pas plus pour l'instant

Sub date_de_creation()
Dim Wb As Workbook
MsgBox ThisWorkbook.BuiltinDocumentProperties("Creation date").Value
End Sub