Bonjour à tous,
Mon objectif est à partir d'un classeur Excel de générer plusieurs .csv grâce à une macro Excel.
Je suis arrivée à faire des exports individuel pour chaque onglet que je veux exporter mais je n'arrive pas à faire un export total.
J'ai cherché sur internet des informations mais je n'ai rien trouvé qui réponde à ma problèmatique.
Voilà ma tentative :
Sub export()
Dim curSheet As Worksheet
For Each curSheet In ThisWorkbook.Worksheets(Array("LA", "PORTEE", "SUPPORT", "CHAINE", "FONDATION", "PJ"))
ActiveWorkbook.CopieAs Filename:=cheminenregistrement & "\" & curSheet.Name, FileFormat:=xlCSV, Local:=True
Next curSheet
End Sub
Il n'aime pas mon ActiveWorkbook...
Je vous envoie aussi mon Excel avec les macros.
Merci par avance pour votre aide,
Eva