Fusionner plusieurs fichiers Excel dans une feuille

Bonjour
les boites de dialogue s'ouvre à chaque fois qu'un fichier doit être ouvert; manuellement Est-ce que cela se reproduit pour n'importe quels fichiers excel autres que ce que vous devez traiter? si NON, quel est l'extension de chaque fichier "Xls", ""Xslx", "Xslm", "Xslb" autres?
Pour m'éclairer davantage, pourriez-vous mettre à disposition une copie de la feuille "liste" pour voir à quoi est dû l'erreur 1004 (remplacez les termes personnels par des noms bidon). Merci
cdlt

merci pour votre réponse
les fichiers contiennent chacun 18 colonnes dont les intitulés ne changent pas et qui doivent toutes être récupérées
les noms des fichiers contiennent une partie qui ne changent pas (mettons Recettes du) et une partie qui change de mois en mois et qui correspond à la date d'encaissement (exemple Recettes du 01_07_2015)
chaque import doit être inséré à la suite de l'import précédent, c'est à dire à la dernière ligne vide
il n'est pas nécessaire de laisser de vide (ligne vide entre chaque import)
si cela est possible, je souhaite copier à partir d'une ligne bien précise (qui ne change pas pour tous les fichiers) et ce pour éviter d'importer l'entête de chaque fichier, mais cela est vraiment optionnel vu que cela peut être fait lorsque les fichiers seront consolidés
je vous remercie encore pour votre disponibilité et j'espère avoir répondu clairement à vos questions.
bonne journée

Sur quelle ligne s'arrête-elle?
N' y a t-il pas de fautes dans le chemin? par exemple Deskop à la place de Desktop

Question à tout hasard: le lecteur sur le lequel se trouve ce fichier est-il différent du lecteur des autres fichiers

Bonjour Frenchie
le fichier n'a subi aucune modification; je le reçois dans cet état et c'est général pour tous les fichiers qui doivent être regroupés. ce sont les boîtes de dialogues auxquelles je faisais références.
l ligne total ne doit pas être récupérer mais seulement les lignes avec les détails
Excellente journée

l'erreur 1004 persiste toujours
la macro s'arrête à la ligne Workbooks.Open Chemin & FichierAOuvrir(i)
est ce que se sont les messages délivrés à l'ouverture des fichiers qui causent cela?

Bonsoir
est ce que se sont les messages délivrés à l'ouverture des fichiers qui causent cela? OUI
Nous sommes bien d'accord que le problème vient du nom de la feuille des fichiers reçus, elles ne sont pas acceptées par excel, puisqu'il demande à les réparer. Une fois la réparation faite, j'ai relancé la macro et il n'y avait plus de problèmes.
Il faudrait peut-être voir du côté d'où l'on vous envoie ces fichiers et si possible demander à ce qu'il y ait une modification du nom de la feuille (pas de tiret, pas plus de 31 caractères)
avec quelle version d'excel sont-ils enregistrer? une version trop récente peut accepter des choses qui ne passera pas dans une version antérieure, c'est une supposition.
Je reste à l'écoute et ne vous abandonne pas, mais pour le moment, je ne peux pas être d'un grand secours vu que le problème se situe ailleurs.
Bonne soirée
Cdlt

bonjour
Ca a marché
vous êtes mon sauveur
vraiment je ne sais pas comment vous exprimer ma gratitude, vous m'avez aidé à résoudre un vrai problème.
merci et mille merci (je doute que cela suffise!!)
je posterai une autre question pour le regroupement de fichiers TXT j'espère que cela va marché également
très bonne journée et encore merci

Bonsoir
Problème réglé à 90000%
en plus je me sens plus à l'aise avec les macros maintenant
je vous suis extrêmement reconnaissante pour votre aide
à bientôt j'espère

voici ce que j'ai fait pour arranger les dates de la colonne F et de la colonne B
les dates sont bel et bien converties pour les deux colonnes, le seul souci c'est que les dates de 2014 sur la colonne B n'apparaissent plus sur le fichier des données récupérées les données du 01/09/2014 et du 01/12/2014 sont changées en 01/01/2015
DateDuJour = [G13]
DateDuJour2 = [B13]
If Jour < 13 Then
DateDuJour = Format(DateDuJour, "m/d/yyyy")
DateDuJour2 = Format(DateDuJour2, "m/d/yyyy")
Else
DateDuJour = Format(DateDuJour, "d/m/yyyy")
DateDuJour2 = Format(DateDuJour2, "d/m/yyyy")
End If
Range(Cells(PremLigne, 6), Cells([F65535].End(xlUp).Row, 6)).Value = DateDuJour
Range(Cells(PremLigne, 1), Cells([A65535].End(xlUp).Row, 1)).Value = DateDuJour2

Curieux, je pencherai pour un mauvais format de date dans le fichier des données récupérées, Vérifiez le format de ces dates et si vous ne trouvez rien d'anormal, faites les suivre pour voir où ça cloche.

Cette fois ci ça a moyennement marché
en fait, pour certaines journées à récupérer, les dates sont stockées en format dd-mm-yyyy sur le fichier d'origine et non en format dd/mm/yyyy
elles ne sont donc pas reconnues comme dates
pour ce cas de figure, les données n'ont pas été traitées et le jour et le mois ont été inversés
je vous poste ci après le lien vers le fichier que j'ai développé avec votre aide ainsi que deux lien vers les dossiers sources des fichiers à récupérer
La macro DonneesCentre qui récupère les encaissements par centre est anormalement lente, je ne sais pas si cela est dû au PC que j'utilise ou à la macro elle même sachant qu'elle marchait à un rythme normal avant
merci de me donner votre avis sur les pistes d'amélioration possibles
Fichier de traitement des données
https://www.cjoint.com/c/EGuwBd8cpLK
Dossier source 1
https://www.cjoint.com/c/EGuxZhrbBnK
Dossier source 2
https://www.cjoint.com/c/EGux5RJO8NK
PS: croyez le ou pas, il m'a fallut plus d'une heure pour générer les lien des trois fichiers, la connexion est vraiment de mon côté lle et le PC
cordialement

bonjour
effectivement les fichiers que je vous ai envoyé necomportent pas ce genre d'anomalie
ci après des liens vers d'autres dossiers sources
https://www.cjoint.com/c/EGvgzhWmisK
https://www.cjoint.com/c/EGvgMXmHcaK
pour la commande Select, par quoi pourrai je la rempalcer?
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?
cordialement

bonjour Frenchie 83
Dsolée pour ce silence radio, mais j'ai été absente suite à une hospitalisation pour des soucis de santé
je reprends là où on a arr^été et je vais examiner cette dernière version du fichier
merci bcp pour ton aide et à bientôt j'espère

Frenchie
le dossier zippé ne contient pas le fichier des macros
merci de vérifier

Bonjour oumhiba1979
Tout d'abord je vous souhaite un bon rétablissement suite à vos soucis de santé.
Quand au fichier, il est toujours actif sur cjoint.com, je l'ai testé, il fonctionne correctement, les macros sont bien présentes.
Avez-vous fait la bonne manip? Travaillez-vous avec la bonne version d'Excel?

bonjour Frenchie
en fait c'est quand je fais l'extration du fichier compressé que cela ne fonctionne pas
je ne trouve pas le fichier Excel dans le dossier extrait

Je ne comprend pas, pour ma part, j'arrive très bien à l'ouvrir.
Je vous le renvoi
https://www.cjoint.com/c/EHzlqdBlHY0