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

[Didier Gonard]

patricktoulon

j'ai mis ce message par rapport au titre explicite du lien FAQ vers lequel ton lien pointait.. :

Comment supprimer tous les modules vides dans le classeur actif ?

cordialement,

Didier

[patricktoulon]

bonjour ormonth

oui tu a raison je n'avais pas bien regardé

c'est tout simplement parce que j'avais utilisé celui la en enlevant des lignes
celles correspondantes au conditions

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub supprimer_Toute_ les_macros()
    Dim vbComp As VBComponent
    Dim i As Integer, j As Integer
 
    For Each vbComp In ActiveWorkbook.VBProject.VBComponents
         ActiveWorkbook.VBProject.VBComponents.Remove vbComp
        End If
    Next
End Sub

bien entendu je rappelle que cette macro dois être placée après la macro qui sauve le classeur sous un autre nom ou les lignes de cette macro après les ligne de la sauvegarde dans la même macro


au plaisir