Fusionner plusieurs fichiers Excel dans une feuille Résolu

Question

Bonjour, 
Je dois mensuellement regrouper 30 à 31 fichiers Excel dans une seule feuille d'un nouveau fichier. Tous les fichiers ont la même structure au niveau des colonnes mais le nombre de lignes peut varier. Les fichiers à regrouper sont bien sûr situés dans le même répertoire.
J'ai consulté les discussions précédentes à ce sujet mais malheureusement je n'arrive pas à accéder aux fichiers où les macros sont enregistrées pour pouvoir les visualiser (les discussions datent de plus de 2 ans pour la majorité d'entre elles).
Toute aide est vraiment la bienvenue et je vous serai vraiment très reconnaissante du maximum d'explications que vous pouvez fournir, je suis vraiment novice dans l'utilisation des macros.
Je vous souhaite une très bonne journée à tous


Configuration: Windows 7 / Chrome 43.0.2357.132

Frenchie83 · Accepted Answer

Bonjour
Voici le fichier. Il est constitué de 2 feuilles.
Feuille "Liste" à remplir par vos soins.
 en A2 le nom du lecteur où se trouve les fichiers
 en B2 l'emplacement du répertoire des fichiers contenant les infos à rapatrier
 de C2 à C32 les noms des fichiers avec leur extension
Feuille"RecupDesDonnees" avec 2 boutons, 1 bouton pour récupérer les données et un autre pour tout effacer (avant de tout effacer, il demande confirmation)
La première fois, vous devrez mettre les entêtes de colonne.
https://www.cjoint.com/c/EGndtctuE2w
Bonne journée
Cdlt

Frenchie83 · Answer

Bonjour
Tous les fichiers ont la même structure au niveau des colonnes  
Combien de colonnes?
Quelles colonnes faut-il récupérer?  
Quelles dispositions à adopter pour chaque import, à la suite l'un de l'autre ou bien sur les colonnes voisines? 
Faut-il laisser une colonne vide entre chaque import?
Les noms des fichiers changent-ils tous les mois ou bien est-ce toujours les mêmes?
Trop d'inconnues pour pouvoir vous aider . Donnez nous plus d'éléments.
Quant à la solution: La récupération de données peut être obtenue soit par formule, soit par VBA. 
Cdlt

oumhiba1979 · Answer

bonsoir Frenchie
les boites de dialogue s'ouvre à chaque fois qu'un fichier doit être ouvert; manuellement je veux dire. la première boîte est relative à la question d fiabilité et il faut cliquer sur oui, la deuxième délivre un message comme quoi la feuille non valide a été renommée et il faut la fermer pour accéder au fichier ouvert.
le programme que vous avez conçu s'arrête sur la ligne Workbooks.Open Chemin & FichierAOuvrir(i) et une boite de dialogue avc message erreur d'exécution 1004 apparaît
encore une fois mille merci pour votre disponibilité

Frenchie83 · Answer

Bonjour
Le problème venait du fait que je travaille avec excel 2007 et je tablais sur un nombre de lignes supérieur à ce que peut supporter les versions antérieures d'excel.
correction faite
https://www.cjoint.com/c/EGpeDZ0SR0w
Cdlt

oumhiba1979 · Answer

bonjour Frenchie
le problème persiste toujours
l'erreur 1004 empêche l'exécution complète de la macro
cordialement

Frenchie83 · Answer

Bonjour
Le fait que vous m'ayez envoyé un des fichiers m'a permit de corriger quelques petits détails qui avaient leur importance 
ex: 
la première ligne est la 13 alors que j'avais pris la 2
la première colonne est la 2 alors que j'avais pris la 1
Question: doit on récupérer la ligne des totaux de chaque feuille?
 Maintenant le problème qui nous intéresse: Le fichier que vous m'avez envoyé a t-il été modifié par vos soins? car lorsque j'essaie de l'ouvrir il me met le message suivant
"Excel à rencontré un contenu illisible dans etc.................." en demandant la réparation du fichier, il me renvoie l'information comme quoi une feuille non valide à été renommée, et en y regardant de plus près, je vois bien que le nom de la feuille "Situation- Encaissements etc..." à été tronqué. Est-ce vous qui l'avez modifiée ou bien la recevez-vous comme ça? dans tous les  cas, vous devez aussi avoir la même erreur à l'ouverture du fichier. Si c'est  vous qui l'avez renommée, il ne doit pas y avoir de tiret (-) dans le nom de la feuille, le souligné (_) est accepté. Puis la longueur du nom est limité à 31 caractères.
Je vous retourne le fichier avec les petites modifications 
https://www.cjoint.com/c/EGqcyszW5Qw
Pour le problème qui nous concerne, j'attends vos réponses.
Cdlt

Frenchie83 · Answer

Bonjour
est ce qu'il n'y a pas moyen d'automatiser les réparation?
J'ai apporté une petite modification qui devrait permettre d'ouvrir ce type de fichier corrompu
https://www.cjoint.com/c/EGrdvUfodbw

vous dites que vous avez relancé la macro et que cela a marché, pourquoi cela ne marche pas pour moi? j'utilise l'Office 2007  Atttention, les noms des fichiers dans la liste est différent des noms des fichiers reçus, il y a un tiret entre chaque mot
Le nom du fichier dans la liste: 
Situation Encaissements ONEE par Centre 01-05-2015.xls
et bien différent du nom du fichier reçu: 
Situation-Encaissements-ONEE-par-Centre-01-05-2015.xls
Assurez vous de l'équivalence des noms.
Bonne journée
Cdlt

Frenchie83 · Answer

Bonsoir
https://www.cjoint.com/c/EGrqMrq8Isw
Essayez, je n'ai pas pu vérifier
Bonne soirée
Cdlt

Frenchie83 · Answer

Bonjour Oumhiba1979
Sur la fichier actuel, je récupère la date sur la cellule F13 que j'appelle DateJour  ---->  DateDuJour = [F13]
Dans la macro, remplacez F13 par la cellule Bx dans le nouveau fichier., ce qui donne
 DateDuJour = [B13] (si les données commencent toujours à la ligne 13)
Ensuite, sur l'avant dernière ligne toujours dans le fichier actuel, je remplace le colonne E (la cinquième) par la date du jour convertie, ce qui donne
        Range(Cells(PremLigne, 5), Cells([E65535].End(xlUp).Row, 5)).Value = DateDuJour
Sur votre nouveau fichier, la colonne n'étant plus la E mais la A, donc la première, il suffit de remplacer la valeur 5 par 1, ce qui donne
        Range(Cells(PremLigne, 1), Cells([E65535].End(xlUp).Row, 1)).Value = DateDuJour.
En espérant avoir été clair, je vous laisse le soin d'effectuer ces 2 modifications, si vous avez un souci, n'hésitez pas.
cdlt

Frenchie83 · Answer

Bonjour oumhiba1979
Voilà, ça ne pouvait pas marcher, parce que les dates de la colonnes B sont presque toutes différentes alors que celles de la colonne G sont toutes identiques. J'ai donc modifier la macro en conséquence.
https://www.cjoint.com/c/EGuq51wUVpw

pourrai je vous poster un lien vers le fichier que j'ai développé avec votre aide pour avoir votre avis? certaines macros sont anormalement lentes à s'exécuter et je ne sais pas à quoi cela est dû,  Oui, postez le ici, je regarderai ça
Bonne soirée
Cdlt

Frenchie83 · Answer

Bonjour oumhiba1979
 les dates sont stockées en format dd-mm-yyyy sur le fichier d'origine dans quels fichiers?, de quelle date?  quelle ligne?
Donnez-moi plus de précisions car de mon côté je n'ai pas trouver de date avec ce format.

La macro DonneesCentre qui récupère les encaissements par centre est anormalement lente Le problème vient des effacements successifs de chaque feuille. Pour toutes données enregistrées, puis effacées, excel mémorise l'emplacement de ces dernières, côté utilisateur, on ne voit rien, mais pour excel les lignes qui ont été précédemment remplies (et effacées) se cumulent. Donc, au lieu d'effacer le contenu, il vaut mieux supprimer les lignes vidées.J'ai donc supprimer toutes les feuilles et les ai recréer dans la foulée, maintenant l'exécution est très rapide.
De plus le fichier est passé de 6000 Ko à seulement 50 Ko soit 120 fois plus petit.
Autre chose, éviter au maximum, si possible, d'utiliser la commande "SELECT" , ceci à pour effet de ralentir le processus
J'ai modifier les macros suivantes:
ToutEffacer module 1
DonneesCentre module 2
DonneesEchéance  module 3
https://www.cjoint.com/c/EGveMBWkgtw
Bonne journée
cdlt

Frenchie83 · Answer

bonjour
pour la commande Select, par quoi pourrai je la remplacer?  il ne s'agit pas de la remplacer par autre chose, mais simplement de prendre des raccourcis (dans la mesure du  possible) 
Exemple simple:
Range("B1").select
Selection.value=10
peut-être remplacé par range("B1").value =10

Le problème vient des effacements successifs de chaque feuille: est ce que cela veut dire que le problème se posera à l'avenir avec l'utilisation mensuelle du fichier?  Normalement, j'ai modifié la macro "Effacer" pour que le problème ne se produise plus.

Quant au problème des dates, les fichiers que vous réceptionnez contiennent des dates au format texte, ce qui ne facilite pas la tâche. mais c'est résolu.
https://www.cjoint.com/c/EGvk4YWdKIw

je n'ai pas regardé vos autres macros.
Bonne journée
Cdlt

Fusionner plusieurs fichiers Excel dans une feuille

12 réponses

Votre réponse

Discussions similaires

Newsletters