Fusionner plusieurs fichiers Excel dans une feuille

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é

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

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

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

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

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

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

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

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

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

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