Concatenation de fichiers XLS en VBA Access

Bonjour,

Je cherche a effectuer une concat de 5 fichiers Excel en 1.
Les 5 fichiers ont le même format.

Je sais que je pourai passer par des export CSV avec fichier1+fichier2+fichi..., mais j'espère éviter encore un changement de format supplémentaire.

Merci à vous.
:mrgreen:

Je sais pas si c'est la meilleur solution masi tu peux récupérer le contenu de chaque fichier dans un tableau puis recopier le tableau dans un nouveau fichier .xls

En fait, j'aimerai bien ce format la

Nom du fichier 1
Données du fichier 1

Nom du fichier 2
Données du fichier 2

Etc...

salut,
tu souhaites avoir un fichier avec plusieurs feuilles ou tout dans une seule feuille ?

Bonjour.

Tout d'abord lister dans une table Access les noms de fichiers excel contenant les donnees a copier

Dans VBA :

1) connection a Excel

Pour chaque enregistrement de la table Access contenant les noms de fichier :

1) Mettre en memoire le nom du fichier a traiter selectionne dans la table Access

2) Ouverture du fichier excel correspondant au nom fichier en memoire

3) dans le fichier conso, coller les donnees du fichier excel d'origine, puis copier dans la colonne appropriee le nom de fichier en memoire sur toutes les lignes qui viennent d'etre rajoutees

Puis passer a l'enregistrement suivant de la table Access.

Avec des boucles, on ne programme qu'une seule fois les operations, le programme se debrouille pour relancer la copie des donnees tant qu'il n'a pas traite le dernier enregistrement.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

dim nomfichier as string Set tb=currentdb.openrecordset("nomtablelistantfichiers",dbopendynaset) if tb.eof=true then else 'ouverture session Excel 'ouverture du fichier conso tb.movefirst do while tb.eof=false nomfichier=tb!nomchamp 'ouverture du fichier excel avec, au lieu du nom fichier en dure la 'valeur nomfichier ex .........."C:\" & nomfichier 'copie des donnees dans le fichier conso 'copie du nom de fichier dans la colonne concernee selection.value = nomfichier 'fermeture fichier excel contenant les donnees d'origine tb.movenext loop end if tb.close

---

Ca devrait fonctionner.

Peut etre y a t il plus simple.

Cdlt

Citation:

---

Envoyé par jpcheck

salut,
tu souhaites avoir un fichier avec plusieurs feuilles ou tout dans une seule feuille ?

---

jpcheck bonjour,

Tous les fichiers sur la même page ce serait déjà très bien... Merci


Heu...jj4822 ...
Manque pas des ligne dans ton code ?
Ou alors je comprend pas tout ...?

Merci par avance

Bonjour.

Je n'ai pas mis toutes les lignes concernant la connection a une session excel, l'ouverture d'un fichier excel et la copie de donnees d'un fichier excel a un autre fichier excel.

Pour ouvrir une session excel on peut utiliser :

Code:

---

1 2	Set Xl = CreateObject("excel.application")

---

Pour fermer la session excel :

Code:

---

1 2

Xl.Quit

---

Pour ouvrir un fichier, faire des copies de donnees il suffit de lancer un enregistrement de macro dans excel et de faire les operations (ouverture fichier, selection de champs, copie et collage etc ) manuellement.
On copie ensuite l'ensemble des operations dans le module VBA Access dans la boucle.
Ensuite, dans chaque ligne copiees du VBA Excel au VBA Access, il faut rajouter XL. sur chaque ligne.

Exemple :

Code:

---

1 2 3 4 5 6 7

'ouverture d'un fichier Xl.Workbooks.Open "......xls" 'enregistrement fichier excel Xl.ActiveWorkbook.Save 'selection d'une cellule xl.activecell.select

---

Il ne faut pas oublier tout ce qui est selection de feuille, selection de la 1ere ligne vide dans la feuille de destination des donnees si l'on veut copier toutes les donnees dans une seule feuille etc.

Il ne faut pas oublier de rajouter les references a :
Microsoft DAO .....
Microsoft Excel ...Library

Sur le site, il existe surement des totoriels pour aller plus loin dans la gestion des fichiers excel et autres besoins.

Il y a peut etre plus simple que ce que je propose.

Cdlt

Bon ba pour faire au plus rapide, j'ai "bidouiller" une soulution...
J'exporte mes 5 tables en format txt delimité Tab, je concatene les fichier dans un Batch avec des petits fichiers d'entete pour que ca soit plus jolie, j'importe le fichier texte dans un table Access temporaire, et enfin, j'esporte le tout en fichier Xls en supprimant la premiere ligne qui me garde si non les en-tetes de ma table tempon...

Le cheminement est assez Hard, mais le résultat est bien là ... :mouarf:

Merci a tous...

Bonjour.

Pourquoi ne pas faire un import des 5 fichiers Excel dans Access (5 tables dans Access donc), de faire un rajout des donnees de chaque table contenant les donnees des fichiers excel dans une seule table par 5 requetes ajout, et, enfin, export dans excel des donnees de la table regroupant toutes les donnees ?

Ca evite de passer par des fichiers batch etc.

Si les fichiers excel ont toujours le meme nom, le meme emplacement et le fichier de conso est toujours le meme, peut etre, dans le fichier conso, des liens vers les fichiers source ? Du coup, plus de programme VBA.

Cdlt.

....mummmm je vais voir ça a la refonte, (connexion ODBC bientôt valide pour éliminer quelques fichiers source en Excel, mais j'ai toujours pas mes comptes...:calim2:).

Merci pour l'idée :ccool: