macro création de repertoire

Bonjour,

J'aimerais avoir un script VB qui :
- ouvre un fichier excel,
- prend le nom de chaque champ de la colonne C
- vérifie si le champ est non nul et non égal à 'comments' et
- crée un répertoire avec le nom du champ (dans un autre répertoire que j'aurais indiqué en dur "C:/MonRep"), et
- copie dans chacun des répertoires créé, 3 fichiers que j'aurais indiqué en dur (fic1, fic2, fic3)

Je ne sais pas comment faire, je n'ai pas l'habitude de programmer en VB ! 8O

Bonjour pppswing, bienvenue sur le forum.
Tu connais l'enregistreur de macro ? Tu fais ce que tu as à faire en enregistrant ta macro, tu analyses le code et s'il te manque quelque chose, tu reviens
Pour créer un répertoire, s'il est dans le volume actif (celui du classeur actif) c'est

Code:

---

Chdir NomRep 'ou nomrep est sous la forme "C:\Mes Docs\NewRep"

---

Si tu n'es pas dans le bon volume, tu dois préciser au préalable celui-ci avec

Code:

---

ChDrive "d" 'pour passer sur D:\

---

Pour ouvrir un classeur, si tu connais le répertoire, c'est

Code:

---

Workbooks.open Rep & "\" & Filename

---

Pour parcourir une colonne, c'est

Code:

---

1 2 3 4 5

Dim Cell as range For each cell Worksheets("la feuille").Range(cells(Premiereligne, NoColonne), Cells(derniereligne, NoColonne)) if cell <> "" and Cell <> "comments" then _ Mkdir "C:/MonRep" & "\" & Cell 'Corrigé Next

---

Avec ça, tu devrais pouvoir commencer ;)
A+

essaye la fonction : SHCreateDirectoryEx(0&, Directory, 0&)

Code:

---

1 2 3 4 5

Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _ (ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long   Directory = ici ton chemin Checkcreate = SHCreateDirectoryEx(0&, Directory, 0&)

---

cette fonction ne cree le directory que si il existe pas donc si il existe pas de bug ... tout en silence comme dirait Ucfoutu ( petite de dedicace).

Tu peux aussi plus simplement tester si le répertoire existe sans déclaration aucune et sans bug non plus ;)

Code:

---

1 2 3 4

Sub test() NomRep = "D:\Nimportequoi" If Dir(NomRep) = "" Then MkDir NomRep End Sub

---

Par contre, je t'ai dit une bêtise, pour créer un répertoire, c'est Mkdir, non Chdir
Un fois ton répertoire créé, pour te placer dedans, si nécessaire, c'est

Code:

---

ChDir NomRep

---

A+

Hello,
J'arrive pas à sélectionner mes cases
j'ai une erreur incompatibilité de type à la ligne :
For Each Cell In Columns("C:C")

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 01/04/2008 par test '     Dim Cell As Range For Each Cell In Columns("C:C") If Cell <> "" And Cell <> "comments" Then ChDir "C:\MonRep\" & Cell End If Next   End Sub

---

Je viens de tester "ton" code et n'ai pas rencontré de problème.
Puisque tu en rencontres un, j'ajouterais tout de même avant la boucle

Code:

---

Worksheets("LeNomDeLaFeuille").activate

---

Tu dis
A+

Salut

Citation:

---

Envoyé par pppswing

...
j'ai une erreur incompatibilité de type à la ligne :
For Each Cell In Columns("C:C")
...

---

Il faut t'assurer que Cell contient une valeur qui permet de créer une chaine valide pour CHDIR.

Si Cell contient une valeur d'erreur, par exemple, tu vas planter...

De plus, vu que tu veux utiliser la valeur de Cell, je conseille, par précaution et même si .Value est la propriété par défaut, d'utiliser

Code:

---

1 2 3 4

For Each Cell In Columns("C:C") If Cell <> "" And Cell <> "comments" Then ChDir "C:\MonRep\" & Cell.Value End If

---

Ok?