Macro pour fusion de plusieurs fichier dans 1 [Résolu/Fermé]

J'ai recuperé votre marcro mais j'ai une erreur à l'execution
Erreur execution 9 , l'indice n'appartient à la plage des données.
pouvez m'aider à avancer?

bonjour,

je débute en VBA et macro et j'aimerais compiler une vingtaine de fichiers excel en 1 seul (lignes à la suite les unes les autres)
j'ai copié votre macro mais rien ne se passe, je crois que je n'ai pas modifié où il faudrait...

Merci d'avance pour votrre aide !

CB

Bonjour,

Il n'y a aucune raison que cette macro ne fonctionne pas... Testé...

As-tu nommé les plages dans tes fichiers ?

Si le nombre de lignes changent régulièrement, ce qui me paraît normal, il suffit de mettre des noms avec la formule DECALER. Ainsi peu importe le nbre de lignes, la plage sera toujours OK.

m@rina

salut,

alors j'avais sali ton code, j'ai remi en place ton code et il fonctionne très bien, je t'en remercie
Pourquoi veux tu supprimer ces lignes ? car j'ai seulement besoin des données sans les entêtes

j'ai une interrogations je ne comprend pas l'utilité de =DECALER avec ce code les données des différents fichiers se mettent automatiquement à la suite (je crois!!!) , et si j'en ai besoin il faut la mettre ou dans quelle cellule?

merci beaucoup marina tu m'as très bien assisté dans mes galère.

Range("A1").Select 'sélectionner la cellule de début
Chemin = "K:\1- EPC\BUDGETS\BUDGET 2008\Retours marges\07 NS\" 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "*") ' Premier fichier
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Rows("1:25").Select
Selection.Delete Shift:=xlUp
Range("Zone_d_impression").Copy
ThisWorkbook.Activate
ActiveSheet.Paste
Windows(Fichier).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
Fichier = Dir ' Fichier suivant
Loop
'nommer onglet
Sheets("Feuil1").Name = "retour marge DMEI"

'enregistrement du fichier
ChDir "K:\1- EPC\BUDGETS\BUDGET 2008\Retours marges\07 NS\marge DMEI"
ActiveWorkbook.SaveAs Filename:= _
"K:\1- EPC\BUDGETS\BUDGET 2008\Retours marges\07 NS\marge DMEI\marge DMEI.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

salut marina,

tu as résolu mon problème de fusion mais j'ai un autre souci, je voudrai une ligne de code qui me permet de coller une données tant que la cellule (colonne C) d'après n'est pas vide.

voici le code

Sub recup()
Range("A26").Select
Chemin = "K:\1- EPC\BUDGETS\BUDGET 2008\Retours marges\07 NS\copie fichier retour marge\" 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "*.xls") ' Premier fichier
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Range("IV1").Select
Selection.ClearContents
Columns("B:B").Select
Selection.Insert Shift:=xlToRight

'trouver boucle pour pouvoir le faire tant qu'il n'y a pas de cellule vide
Range("C1").Select
Selection.Copy
Range("B26").Select '
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Rows("1:25").Select
Selection.Delete Shift:=xlUp
Range("Zone_d_impression").Copy
ThisWorkbook.Activate
ActiveSheet.Paste
Windows(Fichier).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
Fichier = Dir ' Fichier suivant
Loop

End Sub

bonjour,

peut être que l'erreur vient de l'extension de tes fichier (.csv)

il faudrai que tu modifis tes fichiers csv en fichier xls et ensuite tu pourra te servir du code ci-dessus et l'adapter à ta guise.

ou autrement comme extenssion csv il y a une solution pour les exporter avec la commande Dos je m'en souvien pas exactement mais j'avais vu sa sur un forum

A bientot