Discussion :

[Qwerty111]

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.

[MarcelG]

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 :

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

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

[Qwerty111]

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 :

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

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 :

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

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 ?

[MarcelG]

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 :

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

Set

En 3 temps

1 - Déclaration des variables

Code :

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

Dim wk_orig as Workbook, wk_dest as Workbook

2 - Affectation des variables

Code :

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

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 :

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

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 :

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

wk_orig.Sheets("lafeuille")

[Qwerty111]

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

Merci