sauvegarder 1 seule feuille du classeur

[bertgrav]

bonjour,

je voudrais sauvegarder une seule feuille "F01" d'un classeur qui en contient 5

j'ai utilisé le code suivant pour sauvegarder tout le classeur avec un nouveau nom, mais comment insérer le nom de la feuille "F01" dans ce code pour ne sauvegarder que cette feuille.

merci

chantal

Sub sauvegarde()
Dim Fichier As String
Fichier = Format(Date, "yy mm dd") & " Essais" & ".xls"
ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & Fichier
End Sub

 

[PascalXLD]

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

 

[bertgrav]

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

 

[PascalXLD]

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

 

[bertgrav]

Re : sauvegarder 1 seule feuille du classeur

SUPER !


c'est exactement ça qu'il me faut

bonne journée

chantal

 

[PascalXLD]

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