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
Partager