Résolu Macro excel 2007 : 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.

 

[drul]

Salut,
VBA ne sait pas modifier les d'un fichier, mais windows sait le faire, il faut donc faire appel a des fonctions system depuis VBA.

Un exemple ici:
http://www.vbforums.com/showthread.php?211862-Can-you-Set-FileDateTime-