Discussion :

[Helios07]

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 ?

[SfJ5Rpw8]

utilise plutôt SaveAs voir

[Helios07]

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

[SfJ5Rpw8]

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

[Helios07]

C'est à dire ?

[SfJ5Rpw8]

du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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