ThisWorkBook.Save mais pour une seule feuille...

[Scoy]

Bonjour le forum,
Voilà mon problème, j'ai un classeur asser volumineux et quand l'utilisateur passe d'une feuille a l'autre je fais un ThisWorkBook.Save.... ça prend du temps! Je voudrais donc savoir si c'était possible de faire juste "cette feuille.Save"?
Toutes les solutions pour alleger mon classeur ont été utilisée...

Merci !

 

[Temjeh]

Bonjour j'avais ceci que je me servais déjà et qui sauvegarde la feuil seule:

Sub Macro1()

Dim Nom_Fichier
Debut:
Nom_Fichier = Application.InputBox(prompt:="*Entrez le Nom du nouveaux classeur*")
If Nom_Fichier = "Faux" Then Exit Sub
If Nom_Fichier = "" Then
MsgBox "Entrer un nom"
GoTo Debut


Else
'ici le nom de ta feuill a sauvegardée
Sheets("Feuil1").Select
Sheets("Feuil1").Copy

ActiveWorkbook.SaveAs Filename:= _
'ici ton chemin
"C:\...ton chemin\" & Nom_Fichier & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End If

End Sub

A++

Temjeh