Discussion :

[volganne]

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.

[shadypierre]

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

[volganne]

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...

[Jean-Philippe André]

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

[jj4822]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[volganne]

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

[jj4822]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pour fermer la session excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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