savefeuille

Bonjour,

Sub Toto()
ActiveSheet.Copy
ActiveWorkbook.SaveAs FileName:="C:TEMPtoto.xls",
FileFormat:=xlNormal
End Sub

Camille

-----Message d'origine-----
bonjour
comment sauvegarder ne qu'une seule feuille d'un
classeur (qui en contient

plusieurs)
vers un nouveau classeur qui ne contiendrait que cette
feuille.

En bref, le code VB pour réaliser ActiveWorksBook.sheets
("feuil1") ..( à

plusieurs feuilles) en save as....toto.xls (classeur à
feuille unique)

merci.


.

Bonjour

Sub SauverFeuille(NomFeuille As String, Optional NomNouveauClasseur As
String)
' Copie la feuille NomFeuille dans un nouveau classeur
' Si le nom du nouveau classeur est omis, il sera enregistré
' avec le nom de la feuille copiée
' Après l'opération, Excel retourne au classeur initial
' SANS FERMER le classeur créé

Dim NomClasseurActif As String
If NomNouveauClasseur = "" Then NomNouveauClasseur = NomFeuille
NomClasseurActif = ActiveWorkbook.Name
Sheets(NomFeuille).Copy
ActiveWorkbook.SaveAs NomNouveauClasseur
Workbooks(NomClasseurActif).Activate
End Sub



--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)


---

gaston.py wrote:

bonjour
comment sauvegarder ne qu'une seule feuille d'un classeur (qui en
contient plusieurs)
vers un nouveau classeur qui ne contiendrait que cette feuille.
En bref, le code VB pour réaliser ActiveWorksBook.sheets("feuil1")
..( à plusieurs feuilles) en save as....toto.xls (classeur à feuille
unique) merci.