Save en CSV

[domi]

Bonjour à tous

J'ai un programme externe à excel qui me rempli une feuille de données
et j'ai dans la cellule (A1) : TOTO

j'aimerai sauver cette feuille en C:\temp\TOTO.csv
Puis fermer excel automatiquement sans sauver en TOTO.xls

Merci d'avance

 

[Pascal76]

Salut Domi

Essaies avec un code du style

MonFichier=Range("A1")
ChDir "C:\Temp"
ActiveWorkbook.SaveAs Filename:="C:\Temp\" & MonFichier & ".csv", FileFormat:=xlCSV, _
CreateBackup:=False
ActiveWorkbook.Close

Je regarde la suite pour qu'il ne propose pas l'enregistrement

Bon couorage

Pascal