j'ai r=E9ussi =E0 trouver sur le forum une m=E9thode qui permette de
fusionner plusieurs fichiers (100aine) en 1 seul.
J aimerai qu'=E0 chaque fois qu'il y a copie, le nom du fichier source
soit aussi r=E9cuper=E9 dans une colonne du fichier de synth=E8se.
En gros, savoir d'o=F9 proviennent les valeurs du fichier de synth=E8se.
C'est la ligne qui écrit le nom de fichier dans la colonne à droite de la BD(sans l'extension.xls) (cf exemple)
JB
Merci mais que veut dire cette ligne? 'ActiveCell.End(xlToRight).Offset(0, 1).Resize(n, 1) = Left(nf, Len(n f) - 4)
-Le nom du sous-répertoire (qui doit exister ) des fichiers à consolider est paramétré en J2 (+souple) -Sur mon poste,je n'ai pas de pb: Il faudrait ajouter un MsgBox nf avant la boucle Do (on doit avoir le nom du premier fichier du sous-répertoire) -ActiveCell.End(xlToRight).Resize(n, 1).Interior.ColorIndex = coule ur n'est pas indispensable.
JB
Bonjour, déjà merci pour ton aide. j ai 2 questions: -l interet de la consolidation est que le choix du chemin est plus dynamique, c est ca? -ca bloque à ces lignes: 'ActiveCell.End(xlToRight).Offset(0, 1).Resize(n, 1) = Left(nf, L en(nf) - 4) 'ActiveCell.End(xlToRight).Resize(n, 1).Interior.ColorIndex = cou leur quel est leur interet? merci d avance Y
Bonjour,
Consolide les BD d'un sous-Répertoire :
Sub syntèseClasseursBD() sousRépertoire = [J2] [A2].CurrentRegion.Offset(1, 0).Resize().Clear [A2].Select fenetre = ActiveWorkbook.Name ChDir ActiveWorkbook.Path nf = Dir(sousRépertoire & "*.xls") ' premier fichi er Do While nf <> "" Workbooks.Open Filename:=sousRépertoire & "" & nf n = [A1].CurrentRegion.Rows.Count - 1 couleur = [A2].Interior.ColorIndex Windows(fenetre).Activate Workbooks(nf).ActiveSheet.[A1].CurrentRegion.Offset(1, 0).Resize().Copy ActiveCell Workbooks(nf).Close False ActiveCell.End(xlToRight).Offset(0, 1).Resize(n, 1) = Left( nf, Len(nf) - 4) ActiveCell.End(xlToRight).Resize(n, 1).Interior.ColorIndex = couleur [A1].End(xlDown).Offset(1, 0).Select nf = Dir ' fichier suivant Loop End Sub
j'ai réussi à trouver sur le forum une méthode qui permet te de fusionner plusieurs fichiers (100aine) en 1 seul.
J aimerai qu'à chaque fois qu'il y a copie, le nom du fichier source soit aussi récuperé dans une colonne du fichier de synthè se. En gros, savoir d'où proviennent les valeurs du fichier de sy nthèse.
Merci d'avance
y
Ok, merci bcp.
C'est la ligne qui écrit le nom de fichier dans la colonne à droite
de la BD(sans l'extension.xls) (cf exemple)
JB
Merci mais que veut dire cette ligne?
'ActiveCell.End(xlToRight).Offset(0, 1).Resize(n, 1) = Left(nf, Len(n f)
- 4)
-Le nom du sous-répertoire (qui doit exister ) des fichiers à
consolider est paramétré en J2 (+souple)
-Sur mon poste,je n'ai pas de pb:
Il faudrait ajouter un MsgBox nf avant la boucle Do (on doit avoir
le nom du premier fichier du sous-répertoire)
-ActiveCell.End(xlToRight).Resize(n, 1).Interior.ColorIndex = coule ur
n'est pas indispensable.
JB
Bonjour,
déjà merci pour ton aide.
j ai 2 questions:
-l interet de la consolidation est que le choix du chemin est plus
dynamique, c est ca?
-ca bloque à ces lignes:
'ActiveCell.End(xlToRight).Offset(0, 1).Resize(n, 1) = Left(nf, L en(nf)
- 4)
'ActiveCell.End(xlToRight).Resize(n, 1).Interior.ColorIndex = cou leur
quel est leur interet?
merci d avance
Y
Bonjour,
Consolide les BD d'un sous-Répertoire :
Sub syntèseClasseursBD()
sousRépertoire = [J2]
[A2].CurrentRegion.Offset(1, 0).Resize().Clear
[A2].Select
fenetre = ActiveWorkbook.Name
ChDir ActiveWorkbook.Path
nf = Dir(sousRépertoire & "*.xls") ' premier fichi er
Do While nf <> ""
Workbooks.Open Filename:=sousRépertoire & "" & nf
n = [A1].CurrentRegion.Rows.Count - 1
couleur = [A2].Interior.ColorIndex
Windows(fenetre).Activate
Workbooks(nf).ActiveSheet.[A1].CurrentRegion.Offset(1,
0).Resize().Copy ActiveCell
Workbooks(nf).Close False
ActiveCell.End(xlToRight).Offset(0, 1).Resize(n, 1) = Left( nf,
Len(nf) - 4)
ActiveCell.End(xlToRight).Resize(n, 1).Interior.ColorIndex =
couleur
[A1].End(xlDown).Offset(1, 0).Select
nf = Dir ' fichier suivant
Loop
End Sub
j'ai réussi à trouver sur le forum une méthode qui permet te de
fusionner plusieurs fichiers (100aine) en 1 seul.
J aimerai qu'à chaque fois qu'il y a copie, le nom du fichier source
soit aussi récuperé dans une colonne du fichier de synthè se.
En gros, savoir d'où proviennent les valeurs du fichier de sy nthèse.
C'est la ligne qui écrit le nom de fichier dans la colonne à droite de la BD(sans l'extension.xls) (cf exemple)
JB
Merci mais que veut dire cette ligne? 'ActiveCell.End(xlToRight).Offset(0, 1).Resize(n, 1) = Left(nf, Len(n f) - 4)
-Le nom du sous-répertoire (qui doit exister ) des fichiers à consolider est paramétré en J2 (+souple) -Sur mon poste,je n'ai pas de pb: Il faudrait ajouter un MsgBox nf avant la boucle Do (on doit avoir le nom du premier fichier du sous-répertoire) -ActiveCell.End(xlToRight).Resize(n, 1).Interior.ColorIndex = coule ur n'est pas indispensable.
JB
Bonjour, déjà merci pour ton aide. j ai 2 questions: -l interet de la consolidation est que le choix du chemin est plus dynamique, c est ca? -ca bloque à ces lignes: 'ActiveCell.End(xlToRight).Offset(0, 1).Resize(n, 1) = Left(nf, L en(nf) - 4) 'ActiveCell.End(xlToRight).Resize(n, 1).Interior.ColorIndex = cou leur quel est leur interet? merci d avance Y
Bonjour,
Consolide les BD d'un sous-Répertoire :
Sub syntèseClasseursBD() sousRépertoire = [J2] [A2].CurrentRegion.Offset(1, 0).Resize().Clear [A2].Select fenetre = ActiveWorkbook.Name ChDir ActiveWorkbook.Path nf = Dir(sousRépertoire & "*.xls") ' premier fichi er Do While nf <> "" Workbooks.Open Filename:=sousRépertoire & "" & nf n = [A1].CurrentRegion.Rows.Count - 1 couleur = [A2].Interior.ColorIndex Windows(fenetre).Activate Workbooks(nf).ActiveSheet.[A1].CurrentRegion.Offset(1, 0).Resize().Copy ActiveCell Workbooks(nf).Close False ActiveCell.End(xlToRight).Offset(0, 1).Resize(n, 1) = Left( nf, Len(nf) - 4) ActiveCell.End(xlToRight).Resize(n, 1).Interior.ColorIndex = couleur [A1].End(xlDown).Offset(1, 0).Select nf = Dir ' fichier suivant Loop End Sub
j'ai réussi à trouver sur le forum une méthode qui permet te de fusionner plusieurs fichiers (100aine) en 1 seul.
J aimerai qu'à chaque fois qu'il y a copie, le nom du fichier source soit aussi récuperé dans une colonne du fichier de synthè se. En gros, savoir d'où proviennent les valeurs du fichier de sy nthèse.
