sauvegarder 1 seule feuille du classeur

PascalXLD

XLDnaute Barbatruc

• 17 Septembre 2006

• #2

Re : sauvegarder 1 seule feuille du classeur

Bonjour

essaies ainsi

Sheets("F01").Copy
Fichier = Format(Date, "yy mm dd") & " Essais" & ".xls"
ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & Fichier
End Sub

Bon WE

 

Vote positif 0 Vote négatif

B

bertgrav

XLDnaute Occasionnel

• 17 Septembre 2006

• #3

Re : sauvegarder 1 seule feuille du classeur

merci pascal, mais ça ne marche pas.

j'ai bien un nouveau fichier qui est créé avec uniquement cette feuille, mais il ne porte pas le nom voulu, c'est à dire qu'il s'appelle classeur1, et ne se ferme pas en fin de macro....


aurais tu d'autres idées, je cherche sur la RECHERCHE, mais je ne trouve pas exactement ce que je veux.....ou bien j'arrive pas à l'adapter


chantal

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 17 Septembre 2006

• #4

Re : sauvegarder 1 seule feuille du classeur

RE

ainsi

Sub toto()
Sheets("F01").Copy
Fichier = Format(Date, "yy mm dd") & " Essais" & ".xls"
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Fichier
ActiveWorkbook.Close
End Sub

 

Vote positif 0 Vote négatif

B

bertgrav

XLDnaute Occasionnel

• 17 Septembre 2006

• #5

Re : sauvegarder 1 seule feuille du classeur

SUPER !


c'est exactement ça qu'il me faut

bonne journée

chantal

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 17 Septembre 2006

• #6

Re : sauvegarder 1 seule feuille du classeur

Oups

pour être encore plus propre rajoutes

application.screenupdating = false en début et remets à true en fin

 

Vote positif 0 Vote négatif