Macro qui génère un CSV à partir de plusieurs feuilles

Fermé
hajars Messages postés 32 Date d'inscription mardi 26 juillet 2016 Statut Membre Dernière intervention 20 septembre 2016 - 12 août 2016 à 16:27
Bonjour,
Je veux créer une Macro qui crée un fichier Csv avec 15 colonnes dont 9 obligatoires et les autres vont rester vide.
Le souci est que chaque information des 9 que je dois génerer sur le CSv est sur un classeur différent.
Je sais pas comment je pourrai faire pour importer tout ça en CSV.
Je viens de commencer mais je n'ai que ce code qui m'importe en csv les données d'un tableau quelconque

Sub ExportRangetoFile()

Dim Rng As Range
Dim WorkRng As Range
Dim xFile As Variant
Dim xFileString As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.Copy
Application.ActiveSheet.Cells.Clear
WorkRng.Copy Application.ActiveSheet.Range("A1")
Set xFile = CreateObject("Scripting.FileSystemObject")
xFileString = Application.GetSaveAsFilename("", filefilter:="Comma Separated Text (*.CSV), *.CSV")
Application.ActiveWorkbook.SaveAs FileName:=xFileString, FileFormat:=xlCSV, CreateBackup:=False
End Sub


Est ce que vous auriez pas des idées comment faire ça?

Merciii beaucoup