Créer des dossiers vides

[Evelynetfrancois]

Bonsoir forum ...
voici ma Question ..

Est il possible de créer des dossiers vides(«365) nommés par date ( 1 janvier , 2 janvier ....31 déc ) dans , "mes documents " à partir d'un classeur Excel via une macro
J’espère être clair

Merci pour toutes vos sujétions
Bonne soirée à tous
E et F

 

[skoobi]

Re : Créer des dossiers vides

Bonsoir le fil, le forum,

je propose ceci, à adapter à ton dossier et l'année:

Sub dossier()
Dim i As Date
For i = #1/1/2010# To #12/31/2010#
MkDir "C:\Documents and Settings\Skoobi\Mes documents\" & Day(i) & " " & MonthName(Month(i))
Next
End Sub

 

[Evelynetfrancois]

Re : Créer des dossiers vides

Merci pour votre rapidité a vous deux
skoobi , ta proposition marche au poils
Mais comment envoyer le mois en premier style "janvier 1" "janvier 2"
si possible ....
c'est déja super comme ca !!
bonne soirée grand merci
au plaisir de vous lire
E et F

PS pas d urgence ,Je dois filer , ...................à demain .......merci

 

[skoobi]

Re : Créer des dossiers vides

Re,

et bien il suffit d'inverser Day(i) et MonthName(Month(i)) dans le code.

 

[Evelynetfrancois]

Re : Créer des dossiers vides

Bonjour Jean-Marcel , Skoobi
Merci pour vos propositions
J’avais de suite également pensé à la même chose , ce qui me semblait évident , mais ça ne fonctionne pas dans l'autre sens !!!!!
Avez-vous testé ???

& Day(i) & " " & MonthName(Month(i) c’est tout bon !!
& MonthName(Month(i) & " " & Day(i) , donc l'inverse , ne me donne rien de bon !!!

Merci pour tout
E et F

 

[tototiti2008]

Re : Créer des dossiers vides

Bonjour à tous,

& Day(i) & " " & MonthName(Month(i) c’est tout bon !!
& MonthName(Month(i)) & " " & Day(i) , donc l'inverse , ne me donne rien de bon !!!

ajoute la parenthèse rouge

 

[Evelynetfrancois]

Re : Créer des dossiers vides

Re
Décidément je ne trouve pas où est le problème
Dans le premier cas (jours/mois) j'ai bien 365 dossiers nommés du 1 janvier au 31 décembre
Mais dans l’autre cas (mois/jours) je n’ai que 2 dossiers nommés. novembre et décembre !!!!!!
bizarre tout ça ..............je cherche
merci bonne soirée

E et F

oups j avais pas vu le post de tototiti
j essaye je re

 

[Evelynetfrancois]

Re : Créer des dossiers vides

Re jean-marcel , bonsoir tototiti
Merci pour tout !!!!!!
effectivement tototiti avec la parenthèse déplacée ça fonctionne à merveille
super !!!
je vous remercie encore une fois et vous souhaite une bonne soirée
E et F

 

[Evelynetfrancois]

Re : Créer des dossiers vides

Bonjour LE FORUM

Vous m’avez déjà bien aider en me montrant cette arborescence
J’aimerais pouvoir la continuer ! Est ce possible ?


MkDir "C:\Documents and Settings\Propriétaire\Mes documents\PHOTOS QUOTIDIENNES"

MkDir "C:\Documents and Settings\Propriétaire\Mes documents\PHOTOS QUOTIDIENNES\(1) janvier"

For i = #1/1/2010# To #1/31/2010#
MkDir "C:\Documents and Settings\Propriétaire\Mes documents\PHOTOS QUOTIDIENNES\(1) janvier\" & Day(i) & " " & MonthName(Month(i))
Next

Et dans chaque « Day(i) & " " & MonthName(Month(i))”j aimerais pouvoir continuer
En clair dans « 1 janvier « je souhaite rajouter un dossier A et un dossier B
dans « 2 janvier « je souhaite rajouter un dossier A et un dossier B etc

je retourne le problème mais sans trouver la solution ........
Je vous remercie beaucoup pour toutes vos idées toujours geniales

Bon aprem à tous

E et F

 

[Evelynetfrancois]

Re : Créer des dossiers vides

RE
& "\" & Wahooouuuuu je ne risquais pas de trouver ça !!!!
MERCI jean-marcel je teste .........
je re

super !!! quel gain de temps , formidable

merci pour tout et trés bon week end jean marcel

EetF