Méthode SaveAs csv

Bonjour, j'exporte une de mes feuilles en .csv via la méthode SaveAs.
Tout se déroule parfaitement bien.

MAIS

Existe-t-il un moyen qu'une fois cette sauvegarde accomplie, le fichier en cours (donc d'où on vient de lancer la macro) ne soit pas remplacé par le fichier que l'on vient de créer ?

Mon utilisateur passe d'un .xls à un .csv, qui ne correpond même pas à ce qu'il veut, puisque l'on a toujours l'affichage des autres sheets.

D'avance merci.

Bonsoir,

Dans ton cas, si tu veux seulement enregistrer une feuille avec l'extension csv, alors il te faut d'abord copier ta feuille dans un nouveau claseeur puis proéder à ton enregistrement.

Code:

---

1 2	Thisworkbook.Sheets("lafeuille").Copy ActiveworkbooK.Saveas........

---

Ok. Je comprends le principe, mais je me déplace comment dans les Workbooks ensuite, pour être sur de copier dans celui que je viens de créer ?

Il n'y a pas possibilité de donner un nom directement à la création ?

Si je passe par l'enregistreur de macro, j'ai un truc de ce style :

Code:

---

1 2 3 4 5

Workbooks.Add Windows("xx.xls").Activate Sheets("xx").Select Sheets("xx").Copy Before:=Workbooks("Classeur2").Sheets(1)

---

qui ne me plais pas : Workbooks("Classeur2"), c'est dégueulasse. Si l'utilisateur a déjà d'autres fichiers créés, c'est foutu, et je suppose que le problème est le même si j'utilise Workbooks(index).

EDIT :

Code:

---

1 2 3 4

Set truc= Workbooks.Add Windows("xx.xls").Activate Sheets("xx").Select Sheets("xx").Copy Before:=truc.Sheets(1)

---

Du coup, autre question : Comment définir grâce à un set le workbook de départ, depuis lequel est lancé la macro ?

Bonjour Qwerty111, Bonjour le Forum,

Pour gérer plusieurs classeurs, tu peux leur affecter des variables. Comme au sens d'Excel, ce sont des objets, cette affectation sera précédée de la méthode

Code:

---

Set

---

En 3 temps

1 - Déclaration des variables

Code:

---

Dim wk_orig as Workbook, wk_dest as Workbook

---

2 - Affectation des variables

Code:

---

1 2 3 4 5

Set wk_orig = ThisWorkbook   'Après la copie   Set wk_dest = ActiveWorkbook

---

3 - En fin de procédure, on vide les variables

Code:

---

1 2	Set wk_orig = Nothing Set wk_dest = Nothing

---

Ensuite, tu peux utiliser tes variables avec leur propriétés de classeur.

Exemple

Code:

---

wk_orig.Sheets("lafeuille")

---

Parfait ! Je devrais pouvoir me débrouiller avec ça.

Merci :ccool: