Discussion :

[boudoula]

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

[SfJ5Rpw8]

et tu en est ou ?

[boudoula]

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

[SfJ5Rpw8]

Et le point qui te bloque ?

[boudoula]

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

[SfJ5Rpw8]

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

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

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