Discussion :

[antfo]

Bonjour, je viens de créer une macro de création de fichier, en cliquant sur une coche la macro se lance et crée un fichier dans un répertoire (fichier dont le nom est celui d'une case dans la ligne contenant la coche.

Code :

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

1
2
3
4
5
Private Sub CheckBox1_Click()
Dim NomRep As String
NomRep = "c:\" & Cells(96, "p").Value
MkDir NomRep
End Sub

Or, je ne sais pas comment créer une macro qui me fasse cela pour chaque ligne de mon tableau Excel.

Et vous comprendrez qu'ayant des centaines de lignes (et autant à venir) je veuille trouver un moyen de ne pas avoir à créer une macro pour chaque ligne.

Merci de votre aide

Cordialement

[JPierreM]

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub sc()
Dim NomRep As String
Dim I
    For I = 1 To Range("P65536").End(xlUp).Row
        NomRep = "c:\" & Cells(I, "p").Value
        MkDir NomRep
    Next I
End Sub

Le nom des dossiers est supposé être dans la colonne P à partir de la cellule P1. "P65536" est la dernière cellule de la colonne P si tu as une version antérieure à Excel 2007, sinon il faudra adapter

A+

[antfo]

merci pour ta réponse malheureusement, ce que je veux est un peu plus compliqué, je veux que ma macro puisse me creer un dossier et pas tous en meme temps,

je te donne un exemple, je suis utilisateur du fichier et je cré une nhouvelle entrée, je vais donc cliquez sur un bouton afin de creer le fichier en rapport avec cete nouvelle entrée.

une idée??

merci

[Invité]

Bonjour,

Peut-être quelque chose de ce genre (à adapter).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub worksheet_change(ByVal target As Range)
'N° de la 1ère ligne de données
pl = 8
'N° de la colonne contenant le nom du chemin
clentr = 16
dl = Range("P65536").End(xlUp).Row
 
    If target.Column = clentr And target.Row >= pl And  target.Row <= dl Then
    lgn = target.Row
NomRep = "c:\" & Cells(lgn, 16).Value
MkDir NomRep
        End if
 
End sub

Il y a quand même une incohérence dans votre demande :

1er message :
je viens de créer une macro de création de fichier, en cliquant sur une coche la macro se lance et crée un fichier dans un répertoire (fichier dont le nom est celui d'une case dans la ligne contenant la coche.
A ma connaissance, MKDIR ne crée pas un fichier mais un répertoire.

2e message :
ce que je veux est un peu plus compliqué, je veux que ma macro puisse me créer un dossier et pas tous en même temps,