Discussion :

[Kaiba]

Bonjour , je previens je suis mauvais :

J'ai dans les cellules A1 à A15 des noms differents .
J'aimerais , grace à un bouton , creer les dossiers des toutes ces cellules dans un dossier donné .

Par ex :
J'ai Rep2 dans A1 . Je veux creer le repertoire Rep2 dans le dossier MesDocuments et boucler sur les cellules suivantes jusqu'a la derniere cellule non vide.

Je sais me servir de MkDir mais je comprend rien au boucles et il y a surrement un moyen plus rapide .

Merci d'avance.

[helios77]

Voici comment boucler sur toutes tes cellules de la colonne A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
dim i as integer
dim rep as string
i = 1
While Trim(Cells(i,1).value) <> ""
    rep = cells(i,1).value
    mkdir "C:\rep"
    i=i+1
Wend

Explication :
La boucle va boucler tant qu'il ne trouve pas cellule vide
Le Trim permet de supprimer les espaces afin que si par mégarde tu as une cellule avec que des espaces, la boucle s'arreterait au lieu de créer un répertoir sans nom

[Kaiba]

Merci ca marche impecable et je comprend mieux les boucles grace à toi ! Merci beaucoup .