Faire disparaitre les macros

Salut,
Tu pourrais essayer ça :
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste

Bonne soirée,
IdAL

Bonjour à tous,

Voilà, dans 1 classeur j'ai 1 Userform, macros ...
Quand tout est rempli je sauve le classeur sous 1 autre nom.
Mais, j'aimerais sauver la feuille seule, remplie sans le userform et les
macros.
Est-ce possible ?

Merci d'avance pour vos réponses.

sub test
activesheet.copy
activeworkbook.SaveAs "test.xls"
end sub

Cela crée un nouveau classeur, sauvé sous le nom "test.xls"

Cordialement
--
AP

"capkurk" <nospam-patrick.chretien9@wanadoo.fr> a écrit dans le message de
news: OQ2c9BenGHA.4636@TK2MSFTNGP05.phx.gbl...

Bonjour à tous,

Voilà, dans 1 classeur j'ai 1 Userform, macros ...
Quand tout est rempli je sauve le classeur sous 1 autre nom.
Mais, j'aimerais sauver la feuille seule, remplie sans le userform et les
macros.
Est-ce possible ?

Merci d'avance pour vos réponses.

activeworkbook.SaveAs "test.xls"
Cela crée un nouveau classeur, sauvé sous le nom "test.xls"

Ce qui ne répond pas à la question de Capkurk... Il veut avoir une copie
d'une feuille "SANS" le code qui peut y être associé...

--
@+
HD

Impecable RGI !!! Je viens de tester et ça roule.

Il n'y aurait qu'une seule erreur... ;-)
MsgBox "Le fichier Ma Copy.xls vient d' être sauvarder sans code"
Une faute de frappe... Le clavier a dû déraper...

--
@+
HD

Pour me faire pardonner

Avec cette chaleur difficile de ne pas déraper

Sub SauveFeuilleSansCode()
Dim Rg As Range
Set Rg = ActiveSheet.UsedRange
nomfich = InputBox("Nommez le fichier pas d'extension SVP", "Nom du
Fichier", "MaCopy")
With Application
.ScreenUpdating = False
Workbooks.Add (xlWBATWorksheet)
Range(Rg.Address) = Rg
ActiveWorkbook.Close True, CurDir & .PathSeparator & nomfich &
".xls"
.ScreenUpdating = True
End With
Set Rg = Nothing

MsgBox "Le fichier " & nomfich & ".xls vient d' être sauvardé sans code"
End Sub


:-) ;-) 8-) :-X

RGI

Impecable RGI !!! Je viens de tester et ça roule.

Il n'y aurait qu'une seule erreur... ;-)
MsgBox "Le fichier Ma Copy.xls vient d' être sauvarder sans code"
Une faute de frappe... Le clavier a dû déraper...

--
@+
HD

Pour info :

impeccable :-)

RGI

Impecable RGI !!! Je viens de tester et ça roule.

Il n'y aurait qu'une seule erreur... ;-)
MsgBox "Le fichier Ma Copy.xls vient d' être sauvarder sans code"
Une faute de frappe... Le clavier a dû déraper...

--
@+
HD

Impecable RGI !!! Je viens de tester et ça roule.

C'est Alain CROS qui va être content....

http://groups.google.com/group/microsoft.public.fr.excel/browse_frm/thread/827ee2cbfa7ca820/76ebaabf98ee3090?q=SauveFeuilleSansCode&rnum=1#76ebaabf98ee3090

AV

Merci à tous.
Vous êtes formidable.


"capkurk" <nospam-patrick.chretien9@wanadoo.fr> a écrit dans le message de
news: OQ2c9BenGHA.4636@TK2MSFTNGP05.phx.gbl...

Bonjour à tous,

Voilà, dans 1 classeur j'ai 1 Userform, macros ...
Quand tout est rempli je sauve le classeur sous 1 autre nom.
Mais, j'aimerais sauver la feuille seule, remplie sans le userform et les
macros.
Est-ce possible ?

Merci d'avance pour vos réponses.