Bonjour à tous,
Merci de m'accueillir sur votre forum.
Avant toute chose, je souhaitais vous remercier pour les nombreuses solutions que j'ai pu trouver sur le forum avant mon inscription.
Je souhaite aujourd'hui créer une macro que me permet d'exporter tous les onglets d'un classeur en fichiers csv (avec séparateur tabulation) du m^me nom que l'onglet.
J'ai un début de solution qui fonctionne très bien mais qui me génère des fichier "xls" (macro ci-dessous)
Merci par avance à la personne qui pourra prendre un peu de son temps pour m'aider!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub export()
 
Dim ws
Dim newWk As Workbook
 
    For Each ws In Worksheets
        Set newWk = Workbooks.Add(xlWBATWorksheet)
        ws.Copy newWk.Sheets(1)
        newWk.SaveAs (ws.Name & ".xls")
        newWk.Close
        Set newWk = Nothing
    Next ws
 
End Sub