Sauver au format csv

Bonsoir Pierre,


Grâce à l'enregistreur de macro j'ai obtenu le code suivant que j'ai à peine rectifié manuellement :

Sub SauvePlageCSV()
   Range("zone").Copy
   Workbooks.Add
   ActiveSheet.Paste
   Application.CutCopyMode = False
   Application.DisplayAlerts = False
   ActiveWorkbook.SaveAs Filename:="C:\MesDonnees.csv", FileFormat:=xlCSV
   ActiveWorkbook.Close
   Application.DisplayAlerts = True
End Sub


Cordialement.

Didier_mDF

Bonjour myDearFriend,

Je viens de me remettre sur mon problème à l'instant c'est pour
celà que j'ai lu ta réponse il y a quelques minutes.
Suite à un essai, la conclusion est OK
Merci beaucoup pour ta réponse.
Je te souhaites une bonne journée