[VBA-E]Combiné SaveCopyAs avec

Bonjour,

j'ai une feuille au format .xls dont je souhaiterais faire une copie au format .csv

Je souhaiterais en plus que cette copie prenne un nom que j'aurais défini auparavant grâce à une variable et qu'elle soit enregistré dans un répertoire précis.

J'ai pensé à la commande SaveCopyAs

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

'Définition du nom d'enregistrement   Dim Date2, Heure2 As String   Date2 = Format(Now, "ddmmyy") Heure2 = Format(Now, "HhNn")   FichierSauvegarde2 = ("Cours_" & Date2 & "-" & Heure2)   'Enregistrement   ChDrive ("W") ChDir ("\Test\Archives\")   ActiveWorkbook.SaveCopyAs Filename:=FichierSauvegarde2

---

Le fichier est bien copié où je veux avec le nom que je désire mais n'est pas au format .csv

Que puis-je faire ? :)

utilise plutôt SaveAs voir :f1:

Sauf erreur de ma part, le SaveAs modifie ma feuille active, ce que je ne souhaite pas...d'où l'idée du SaveCopyAs.

ok il faut donc faire cela en 2 bandes ... tu copie la feuille ... puis tu la sauve..en csv...

C'est à dire ? :oops:

du genre :

Code:

---

1 2 3 4

ThisWorkbook.Sheets("Feuil1").Copy ActiveSheet.SaveAs "toto.csv", xlCSV ActiveSheet.Parent.Close False

---