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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?