Discussion :

[cpassimal]

Bien l'bonjour !

Je viens à vous car je n'arrive pas, après de nombreuses recherches et tentatives à aboutir à ce que je veux.

Où j'en suis actuellement: J'ai 2 programmes qui vont ouvrir des fichiers xslm, copies des tableaux dans ces fichiers, les concatene et les rassemble sur un seul fichier. Puis l'enregistre au format voulu. Le premier crée un fichier .csv et l'autre un .xlsx.

Ca fonctionne en gros comme ceci: dans mon fichier "fusion" qui contient la macro, j'ai 3 feuilles, la première avec les deux boutons pour lancer les deux différents type de fusion (ou concatenation), la seconde qui receptionne les tableaux de la macro 1 et la 3 eme les tableaux de la macro 2.

A la fin des programmes 1 et 2, je supprime les 2 onglets non concernés et enregistre au format voulu. Donc en deux temps ça marche au poil.

J'aimerais ajouter un bouton "fusionner les deux d'un coup" pour que en un seul programme il se passe comme si j'exécutais les deux progrmame d'un coup, et que mes deux fichiers se créent et s'enregistrent aux bons formats. Faire tout ça en un seul clic quoi.

Et là c'est le drame, ça marche pas :p

J'ai réussi evidemment à mettre les infos que je souhaite dans les deux onglets en même, du coup, le problème est réduit à ceci:

Comment enregistrer le contenu de deux onglets différents, sous deux formats différents ?

[cpassimal]

Trouvé ! Je partage au cas où un jour ça puisse servir à autrui

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
' **ici code pour remplir la feuille 2**
 
Application.DisplayAlerts = False
 
Sheets("1").Delete
Sheets("3").Delete
ActiveWorkbook.SaveAs Filename:=chemin & "\Checklist_fusion.xslx", FileFormat:=51
 
Workbooks.Add
 
' **ici code qui était utilisé pour remplir la feuille 3**
 
ActiveWorkbook.SaveAs Filename:=chemin & "\CSV_fusion.CSV", FileFormat:=xlCSV