Fusionner plusieurs fichier excel en un unique

[bob69740]

Bonjour à tous;

Voila mon problème 🙂

J'aimerais fusionner plusieurs fichier excel (chaque fichier n'a qu'un seul onglet) en un seul fichier excel avec plusieurs onglets...
En gros, je veut créer un fichier excel composé ''des autres'' en onglets.

Tous les fichiers a fusionner sont dans le même dossier.

Je pense que cela est faisable par macro... mais personnellement je ne sait pas faire....

Si une âme charitable passe par là 🙂

Je vous remercie d'avance 😉

bob69740

 

[jp14]

Re : Fusionner plusieurs fichier excel en un unique

Bonjour

Une procédure sur ce fil
https://www.excel-downloads.com/thr...r-plusieurs-documents-excel-en-un-seul.98695/

JP

 

[bob69740]

Re : Fusionner plusieurs fichier excel en un unique

Merci JP

Mais j'ai un message d'erreur qui apparait :

Erreur d'execution '9'
L'indice n'appartient pas à la selection

Il faut modifier la macro ???
Parce que je n'y connait rein du tous 🙂

 

[jp14]

Re : Fusionner plusieurs fichier excel en un unique

Bonjour

Il faut toujours adapter une macro à l'environnement, nom des onglets, nom des fichiers, .....

JP

 

[bob69740]

Re : Fusionner plusieurs fichier excel en un unique

en fait pour que sa marche il faut que je prenne le fichier de base a chaque fois....

Par contre est-ce possible qu'il renomme les onglet avec le nom de mes fichiers excel ??? au lieu de Mapage1 Mapage2 Mapage....

 

[jp14]

Re : Fusionner plusieurs fichier excel en un unique

Bonjour (re)


En modifiant le code

classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = nf

JP

 

[bob69740]

Re : Fusionner plusieurs fichier excel en un unique

Et bien je te remercie JP, sa marche nickel 😉

Si j'ai d'autre petite question, je repasse par là 😉 ton aide m'a été très précieuse 😉

 

[bob69740]

Re : Fusionner plusieurs fichier excel en un unique

Déja une autre question...

Est-il possible que lorsque je lance la macro de ''fusion'' cela ne supprime pas me onglets actuels, mais rajoute d'autre onglets, quitte a ce que se soit les mêmes...

Je détaille, lorsque je veut fusionner mes quatres premiers fichier.... cela va tres bien , il me crée 4 nouveaux onglets, nickel. Par contre si je supprimme ces quatres fichiers, et que je reclique sur ''fusion'' il me vire mes onglets... moi je voudrait qu'ils restent dans le nouveau fichier.... cela me permet de rajouter des onglet au fur et a mesure avec la macro, sans avoir a perdre les anciens.
Je peut le faire, en gardant les anciens fichiers dans le même dossier, mais si je fait des modification sur le nouveaux ficher, elles seront ecrasées par les plus anciens...

 

[jp14]

Re : Fusionner plusieurs fichier excel en un unique

Bonjour (re)

Il faut supprimer la ligne sup.

JP

 

[bob69740]

Re : Fusionner plusieurs fichier excel en un unique

Merci chef 😉

 

[degap05]

Re : Fusionner plusieurs fichier excel en un unique

Bonjour,

Cette solution est très pratique.
Serait-il possible que n'apparaisse pas dans le nom des onglets créés ".xls"

Merci

 

[jp14]

Re : Fusionner plusieurs fichier excel en un unique

Bonjour (re)

A tester

classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = replace(nf,".xls","")

JP

 

[bob69740]

Re : Fusionner plusieurs fichier excel en un unique

Haa oui bien, c'est encore mieux comme ça 😉

Merci

 

[degap05]

Re : Fusionner plusieurs fichier excel en un unique

Bonjour à tous,

En exécutant la macro, avec les fichiers dans le même dossier, j'ai un résultat bizarre. La macro va chercher un fichier qui ne se trouve pas dans le dossier !!
Aussi, serait-il possible d'indiquer le chemin dans la macro, exemple:

C:\Mes documents\Mes fichiers\......

Merci.

 

[jp14]

Re : Fusionner plusieurs fichier excel en un unique

Bonjour

La procédure utilise le chemin du fichier actif.

ChDir ActiveWorkbook.Path

A tester

chdir "C:\Mes documents\Mes fichiers"

Chdir correspond à une commande utilisée avec DOS.

JP