Discussion :

[pppswing]

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 !

[ouskel'n'or]

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 :

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

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 :

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

ChDrive "d" 'pour passer sur D:\

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

Code :

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

Workbooks.open Rep & "\" & Filename

Pour parcourir une colonne, c'est

Code :

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

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+

[tomy7]

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

Code :

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

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).

[ouskel'n'or]

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

Code :

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

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 :

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

ChDir NomRep

A+

[pppswing]

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 :

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

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

[ouskel'n'or]

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 :

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

Worksheets("LeNomDeLaFeuille").activate

Tu dis
A+

[Pierre Fauconnier]

Salut

...
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 :

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

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?