Par Macro, enregistrer le fichier sans les Macros

Bonjour à tous,

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

Ceci fonctionne mais garde les Macros :

Code:

---

1 2 3 4

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

---

Merci pour vos conseils.

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

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:

---

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

---

bonjour
pour compléter la reponse de ormonth

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

au plaisir :)

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

Merci à tous pour vos bons conseils.

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

Encore Merci

@ +

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

patricktoulon

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

Citation:

---

Comment supprimer tous les modules vides dans le classeur actif ?

---

cordialement,

Didier

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:

---

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