Export onglet en CSV

[cety64]

Bonjour à tous,

Dans un classeur, je génère une feuille XXXX à partir de données d'autres feuilles.
La feuille XXXX générée est cachée et je souhaite l'exporter en CSV.

Je n'ai pas trouvé de meillleur moyen que de procéder comme suivant :
- affichage de la feuille XXXX à exporter
- copie de cette feuille XXXX dans un nouveau classeur (pour que le classeur d' origine change de nom à l'enregistrement)
- enregistrement du nouveau classeur en csv
- fermeture du classeur csv (je dois cliquer sur 'non' à l'invite excel pour ne pas enregistrer une nouvelle fois le fichier)
- masquage de la feuille XXXX dans le classeur source


Sub CSV()

Sheets("XXXX").Visible = True
Sheets("XXXX").Select
Sheets("XXXX").Copy
ChDir "D:\Mes documents"

ActiveWorkbook.SaveAs Filename:="D:\Mes documents\test.csv", FileFormat _
:=xlCSV, CreateBackup:=False, Local:=True

ActiveWindow.Close
Sheets("XXXX").Visible = False

End Sub


Y'a t-il un moyen plus simple de générer ce fichier CSV sans risquer de renommer le fichier source à l'enregistrement.
(excel 2003)

Merci d'avance pour votre aide

 

[Sylvain]

Re : Export onglet en CSV

Bonjour,

en ce qui me concerne, je changerais pour ceci :

Sheets("XXXX").Visible = True
Sheets("XXXX").Copy

Application.DisplayAlerts = False 'travaille sans afficher les messages d'alerte
ActiveWorkbook.SaveAs Filename:="D:\Mes documents\test.csv", FileFormat _
:=xlCSV, CreateBackup:=False
ActiveWindow.Close
Application.DisplayAlerts = True
Sheets("XXXX").Visible = False

Et si tu veux que ça ne se voie pas pour l'utilisateur, tu peux rajouter en première instruction :
application.screenupdating=false

A+

 

[cety64]

Re : Export onglet en CSV

Merci pour cette excellente réponse.

cety64