bon je reviens car suite =E0 vos reponses j'ai pu faire un super fichier
que j'ai reproduit pour chaque de mes domaines (10).
Bref maintenant je voudrais faire un fichier synth=E8se g=E9n=E9ric et
j'ai donc besoin d'importer les informations des mes diff=E9rents
fichiers (uniquement une dizaine de cellule par fichier)
En plus de l'importation, il faut absolument respecter le nom auquel il
est associ=E9 dans les autres fichiers.
qui dans le fichier synth=E8tique sont tri=E9s par ordre alphabetique, ce
qui n'est pas le cas dans les autres fichiers.
Exemple de consolidation:http://cjoint.com/?fvufozaP5B
-Consolide des classeurs fiche1.xls,fiche2.xls,fiche3.xls...dans une base de données. -Ces classeurs doivent être dans le même répertoire que celui-ci.
Sub Transfert() ChDir ActiveWorkbook.Path ' Répertoire application Range("A2:J1000").ClearContents Range("b2").Select nf = Dir("fiche*.xls") ' Première fiche Do While nf <> "" Workbooks.Open Filename:=nf Range("C3:C11").Select Selection.Copy Windows("Consolide_fiches.xls").Activate Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Windows(nf).Activate ActiveWorkbook.Close savechanges:úlse ActiveCell.Offset(0, -1) = nf ActiveCell.Offset(1, 0).Select nf = Dir() ' Fiche suivante Loop End Sub
JB
Bonjour,
Exemple de consolidation:http://cjoint.com/?fvufozaP5B
-Consolide des classeurs fiche1.xls,fiche2.xls,fiche3.xls...dans une
base de données.
-Ces classeurs doivent être dans le même répertoire que celui-ci.
Sub Transfert()
ChDir ActiveWorkbook.Path ' Répertoire application
Range("A2:J1000").ClearContents
Range("b2").Select
nf = Dir("fiche*.xls") ' Première fiche
Do While nf <> ""
Workbooks.Open Filename:=nf
Range("C3:C11").Select
Selection.Copy
Windows("Consolide_fiches.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Windows(nf).Activate
ActiveWorkbook.Close savechanges:=False
ActiveCell.Offset(0, -1) = nf
ActiveCell.Offset(1, 0).Select
nf = Dir() ' Fiche suivante
Loop
End Sub
Exemple de consolidation:http://cjoint.com/?fvufozaP5B
-Consolide des classeurs fiche1.xls,fiche2.xls,fiche3.xls...dans une base de données. -Ces classeurs doivent être dans le même répertoire que celui-ci.
Sub Transfert() ChDir ActiveWorkbook.Path ' Répertoire application Range("A2:J1000").ClearContents Range("b2").Select nf = Dir("fiche*.xls") ' Première fiche Do While nf <> "" Workbooks.Open Filename:=nf Range("C3:C11").Select Selection.Copy Windows("Consolide_fiches.xls").Activate Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Windows(nf).Activate ActiveWorkbook.Close savechanges:úlse ActiveCell.Offset(0, -1) = nf ActiveCell.Offset(1, 0).Select nf = Dir() ' Fiche suivante Loop End Sub
JB
Winnie
merci pour ta reponse. ca marche a la condition que je renomme le fichier
merci pour ta reponse.
ca marche a la condition que je renomme le fichier
