XL 2013 Fusion de feuilles et nouveau classeur

[REMAFARO]

Bonjour à tous,
j ai récupéré cette macro qui fonctionne ma foi très bien...sous excel 2013
En effet les données de tous les onglets sont copiés dans la feuille fusion. Ensuite, je dois copier la feuille (formats inutiles) et coller dans un nouveau classeur et enregistrer en csv pour pouvoir faire un import de ce classeur en csv sur un site...
Est il possible, plutôt que dans la feuille "fusion", de transférer ces données vers un nouveau classeur "liste licenciés"(si besoin de nommer ce classeur, mais classeur1 me convient), et que ce classeur soit en CSV (point-virgule). C 'est le copier coller dans nouveau classeur qui m 'intéresse pour automatiser un max.
Et ça je sais pas faire, merci pour l'aide...

Sub test2()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "recap" Then
Application.ScreenUpdating = False
ws.Activate
Range("I12:" & [a1].SpecialCells(xlCellTypeLastCell).Address).Copy
Sheets("Fusion").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next ws
End Sub

 

[job75]

Bonjour REMAFARO, bienvenue sur XLD (depuis 2005 !!! mais mieux vaut tard que jamais),

Essayez cette macro :

Sub CreerFichierCSV()
Dim chemin$, fichier$, w As Worksheet, wb As Workbook
chemin = ThisWorkbook.Path & "\" 'à adapter
fichier = "MonCSV.csv" 'à adapter
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si le fichier est déjà créé
Set wb = Workbooks.Add(xlWBATWorksheet) 'nouveau document
For Each w In ThisWorkbook.Worksheets
    If w.Name <> "recap" Then _
        w.Range("I12:" & w.Cells.SpecialCells(xlCellTypeLastCell).Address).Copy wb.Sheets(1).Range("A65536").End(xlUp)(2)
Next
On Error Resume Next
Workbooks(fichier).Close 'ferme le fichier s'il est ouvert
wb.SaveAs chemin & fichier, xlCSV
wb.Close 'ferme le fichier
End Sub

A+