Discussion :

[malabarbe]

Bonjour à tous,

Comment par Macro, enregistrer le fichier sous
un autre nom mais sans les Macros ?

Ceci fonctionne mais garde les Macros :

Code :

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

1
2
3
4
 
ActiveWorkbook.SaveAs Filename:=fcourse, FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False

Merci pour vos conseils.

[Didier Gonard]

Bonjour,

Le sujet a été maintes fois traité sur le forum et a des dans la FAQ et les Tutos.

Une recherche à ce niveau sera fructueuse.

cordialement,

Didier

[Godzestla]

Bonjour,

si tu as juste des feuilles (pas de Userform, ...) dans ton classeur, tu peux sélectionner les feuilles, les copier, sauver le nouveau classeur créé par le copy et le tour est joué.

Exemple avec une seule feuille nommée Pivot :

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
16
17
18
19
20
21
Sub Export_Pivot()
 
 
On Error Resume Next
 
    Dim Filename As String
 
    Filename = "C:\DATA\Export\export.xls"
    Kill Filename
 
    Sheets("Pivot").Select
    Sheets("Pivot").Copy
    ChDir "C:\DATA\Export"
    ActiveWorkbook.SaveAs Filename:= _
        Filename, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWorkbook.Close
 
 
End Sub

[patricktoulon]

bonjour
pour compléter la reponse de ormonth

http://excel.developpez.com/faq/inde...BA#SuppModules

au plaisir

[Didier Gonard]

Bonjour,

voir :

http://www.developpez.net/forums/d99...r-macro-macro/
dernière partie
et donc :

http://silkyroad.developpez.com/VBA/...cEditor/#LIV-D

Patrick : attention, ton lien fait référence à : Comment supprimer tous les modules vides dans le classeur actif !

cordialement,

Didier

[malabarbe]

Merci à tous pour vos bons conseils.

J'ai trouvé mon bonheur, mais je vais
tester les autres codes.

Encore Merci

@ +

[patricktoulon]

bonjour ormonth

j'ai mi cet exemple parce que d'après ça demande il veux sauver une feuille dans un nouveau classeur

en passant par copyafter blablabla la feuille est affichée dans un nouveau classeur et devient donc le classeur actif


au plaisir

edit :Oupss!!! pardon c'est moi qui suis parti sur la copie d'un seul sheets

néanmoins après la sauvegarde il me semble que le nouveau nom deviens le classeur actif


au plaisir