Macro fusion plusieurs fichiers excel Résolu/Fermé

Question

Bonjour, 


Je souhaite fusionner 6 fichiers excel en un seul.

Mes fichiers à fusionner s'appellent "C1, C2, C3, C4, C5 et C6.xls".
Chaque fichier comporte plusieurs onglet mais dans un 1er temps, seule l'onglet "Feuil1" est à récupérer, sans prendre l'en-tête (à partir de A2).
Les 6 fichiers évoluent régulièrement et indépendamment, le nombre de lignes change (pas le nombre de colonnes) il faut donc regrouper toutes les lignes les unes derrière les autres.
Le contenu de chaque ligne doit rester intact lors de la fusion (même si certaines cellules sont vides sur une ligne) 

Le fichier final s'appelle "Global.xls".
Ces 7 fichiers se trouvent sous C:	est.

J'ai bien trouvé des posts à ce sujet mais je n'arrive pas à adapter les macros à ma demande.
N'ayant aucune connaissance en VBA, je perds beaucoup de temps..

Si quelqu'un pouvait m'envoyer un fichier excel avec une macro correspondante à mes noms de fichiers et emplacements, et le bouton qui l'exécute (en bonus!) ce serait génial !

Merci d'avance pour votre aide.

gbinforme · Answer

bonjour

Voici un fichier excel "Global.xls"

- avec une macro correspondante à tes noms de fichiers (et emplacements : aucune importance), 

- et le bouton qui l'exécute (en bonus!) : pas vraiment de bouton, car le regroupement s'effectue à l'ouverture.

https://www.cjoint.com/?BCzxn3oc359

sydney · Answer

Merci beaucoup gbinforme !!

çà a marché du 1er coup, incroyable !

Juste deux questions :
-Dans le fichier "Global", la macro récupère les 241 lignes de chacun des 6 fichiers.
Est-il possible de "coller" les données des 6 fichiers sans laisser de lignes vides entre 2 ? 
(NB : le nombre de lignes est différent entre les 6 fichiers, et évolue d'une semaine à l'autre)

-j'avais pensé au bouton pour exécution de la macro car ensuite j'effectue des tableaux croisés dynamiques dans le fichier "Global", donc j'ai des feuilles qui restent fixes. 
Je souhaite simplement actualiser la Feuil1 sans écraser les autres feuilles déjà existantes.
Est-ce possible ?

@+

gbinforme · Answer

bonjour,

Est-il possible de "coller" les données des 6 fichiers sans laisser de lignes vides

La macro ne laisse pas de lignes vides et si tu as des lignes vides c'est qu'elles sont dans tes fichiers (peut-être avec une mise en forme ou autre) : j'ai tout de même supprimé les lignes vides existantes.

Je souhaite simplement actualiser la Feuil1 sans écraser les autres feuilles déjà existantes. Est-ce possible ? 

La macro ne touche que la Feuil1 (qui doit exister) et les autres feuilles peuvent être présentes sans problème.

j'avais pensé au bouton pour exécution de la macro 

Si tu veux, mais quel est l'intérêt du bouton puisque la fonction est effectuée à l'ouverture ?
 
https://www.cjoint.com/?BCAxswLpCvy

youcefesa · Answer

Bonjour,
ça marche à merveille.
Merci beaucoup et bon courage gbinforme.

derobeames · Answer

Bonjour,

Je souhaiterais dans le même principe fusionner mes différents tableau et que du coup à l'ouverture de mon fichier global, les données ce mettent à jour.

Apparement ce qui est fait avant marcherai dans mon cas. Or, je n'arrive pas à l'ouverture du fichier télécharger a récupérer la macro créer.

Est-il possible de me faire une copie ici du code de la macro que je l'adapte à mon besoin

Adou · Answer

Bonjour,

Je suis désolé mais lorsque je récupère le fichier et que je vais dans macro, aucune ne s'affiche. 

Est-ce le fait que je sois sur Excel 2010? 

Je souhaite l'adapter à mon besoin qui est de faire le même regroupement avec tous les fichiers Excel du répertoire que je vais choisir moi-même.

Si quelqu'un arrive à ouvrir cette macro, au pire un copier-coller du texte m'irait parfaitement ! 

Merci d'avance.

boston2001 · Answer

Bonjour,

Ton fichier "BCAxswLpCvy" s'exécute très bien mais j'aurais quelques modifications à y intégrer et j'espère que tu pourras m'aider :
 - En mettant "C?.xls" et des fichiers commencant par C sa marche mais dés que j'essaye de mettre "*.xls" (car j'ai des noms différents pour tous) cela ne fonctionne pas.
 - Est ce possible de faire la même chose avec des fichiers .csv et d'y integrer un format de séparateur de champ (,) lors du transfert
 - Est ce possible de mettre à jour le fichier destination en fonction si des fichiers ont été rajouté dans le répertoire et dans ce cas les incrémenter au fichiers destination.

J'espère avoir été clair.

Merci d'avance

foufy59 · Answer

Bonjour gbinforme,

Ton fichier marche nikel mais j'aimerais bien le modifier un peu pour qu'il copie chaque fichier sur un onglet différent du fichier Global avec si possible comme nom d'onglet, le nom du fichier copié. Est ce que tu pourrais m'éclairer ? 

Merci

fabrob · Answer

slt,

merci d'abord pour ce travail car ça me parait pas super simple pour un novice comme moi ^^
j'ai donc essayé ta macro et j'ai un souci

j'ai dans le premier onglet le calcul qui ce fait bien avec la copie des noms de fichier avec le nombre de ligne
mes onglets données qui sont bien repris

donc ma question c'est :
est il possible d'avoir quand même l'onglet récap avec toute les données ?
car j'arrive pas à combiner tes 2 macros ^^ (oui je sais je suis nul)

Alex · Answer

Bonjour gbinforme,

Déjà merci pour ta précieuse aide avec la macro.
J'ai utilisé Ton fichier "BCAxswLpCvy". Cependant, impossible de changer "C?.xls" par "*.xls" .
J'ai pu, à l'aide d'une autre de tes macros, faire le changement voulu; comme ceci:

fic = Dir(rep & "*.xls") ' recherche fichiers
While fic <> ""
If fic <> ThisWorkbook.Name Then
chemin = rep & fic ' chemin fichiers
Workbooks.Open chemin, 0 ' ouverture
Set Wl = ActiveWorkbook.Sheets("JU HEP BEJUNE - Médiathèque de ")
nbl = Wl.UsedRange.Rows.Count
c = Wl.UsedRange.Columns.Count
If ligne > 2 Then l = 2 Else l = 1 ' une seule fois le titre
Wl.Cells(l, 1).Resize(nbl, c).Copy Destination:=Wf.Cells(ligne, 1)
ligne = ligne + nbl - l + 1
nbf = nbf + 1
ActiveWorkbook.Close SaveChanges:=False ' Fermeture du classeur
nbc = nbc + 1
End If
fic = Dir

kikounet · Answer

bonjour, 

la macro en fichier joins ne marche, plus. 

serait il possible de l'avoir de nouveau. 

Je voudrais fusionner plusieurs fichier xlsx qui contienne 5 feuille chacun en un seul fichier. 

Merci

adri · Answer

Bonjour,

Est'il possible de fusionner les fichiers même si les feuilles ont des noms différents?

Macro fusion plusieurs fichiers excel

12 réponses

Discussions similaires