traitement de fichier csv

Bonjour à tous,

voici mon projet de macro

dans un 1er temps:
je voudrais rappatrier des fichiers au format csv avec possibilité de faire une selection multiple et generer une feuille par fichier

Ensuite

je souhaiterai concatener toutes ces données pour les remettre dans un seul fichier csv et avoir une boite de dialogue qui me demande le nom du fichier a enregistrer.

Merci d'avance pour votre aide

et tu en est ou ?

bonsoir,

j'ai fais le code pour mettre les fichiers dans chaque feuille excel et est ajouté un compteur pour savoir combien de ligne était occupé sur chaque feuille

Et le point qui te bloque ?

je ne sais pas comment faire pour concatener les données de toutes les feuilles en une seule ou dans un nouveau classeur et créer un fichier csv. Mon idée de depart était de concatener les donnees dans une autre feuille et lire chaque ligne pour les mettre dans un fichier texte vierge que la macro aurait generer avec le nom que j'aurai choisi mais je sais pas si c'est realisable

pour la sélection du nom de fichier utilise Application.GetSaveAsFilename un exemple ici dans la :faq:

ensuite tu peu parcourir tes feuilles pour générer ton csv:

Code:

---

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

Sub Boucle() Dim sh As Worksheet Dim r As Range For Each sh In ThisWorkbook.Sheets 'Parcours les feuilles de calcul 'Parcours les lignes For Each r In sh.Range("A1").CurrentRegion.Rows Debug.Print Joindre(r, ";") Next Next   End Sub     Function Joindre(rLigne As Range, stDelimiteur As String) As String Dim st As String Dim c As Range For Each c In rLigne.Cells st = st & c & ";" Next Joindre = st End Function

---

Debug.print affiche le résultat dans le fenêtre exécution il te reste à rajouter le code de gestion du fichier...

Merci je vais voir ce que je peux faire avec ce joli code :ccool:

Salut, pour la concaténation de n feuilles en 1 seule voir http://www.developpez.net/forums/d11...uille-feuille/
pour la sauvegarde CSV http://www.developpez.net/forums/d11...tomatique-csv/
Le tout à adapter à ton contexte

A voir également http://excel.developpez.com/faq/?pag...Superieur65536 si à adapter sur des versions < 2007