enregistrer une feuille

[Jean-Paul]

Bonjour a vous tous
J'ai un classeur qui a plusieurs feuilles,mais je dois enregistrer une seule feuille une fois par mois
Quand j'enregistre c'est tout mon classeur qui s'enregistre.
Si quelqun pourrait m'aider j'apprécirais

Merci

 

[Olivier]

Bonjour Jean-Paul,

Et si tu faisais une copie de ta feuille dans un nouveau fichier, que tu enregistrerais ensuite, ça répondrait à ton problème...

@+
Olivier

 

[léa]

Bonjour Jean Paul,

En quoi cela peut-il être génant que toutes les feuilles s'enregistre
Quoi qu'il en soit quand tu enregistres, tu enregistres un fichier c'est à dire le classeur complet, je ne crois pas que l'on puisse scinder un enregistrement feuille par feuille
Si ce n'était pas le cas, je prends l'info ...
Léa

 

[Jean-Paul]

Le problèmme c'est queand toute les feuilles sont enregistrer
j'ai des probèmmes avec certain macro
merci

 

[Bricofire]

La structure de programmation orientée "objet" de VBA, fait qu'une feuille est un objet qui appartient à un objet "supérieur" qui le contient qui est le classeur pour simplifier. Excel est ainsi fait qu'une feuille n'existe que dans un classeur, la solution d'Olivier parait donc la bonne et peut-être automatisée dans une macro.
Sinon il faut identifier le problème exact qui se pose, pour trouver sa cause...

Bfr

 

[Temjeh]

Bonjour à tous

Voici un début qui sauvegarde 1 seul feuil(à adapter)

Sheets("Feuil1").Select
Sheets("Feuil1").Copy

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Claude\Bureau\Feuil1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

A++

Temjeh

 

[Temjeh]

Rebonjour
J'avais aussi ceci avec inputbox:

Sub Macro1()
Dim Nom_Fichier
Debut:
Nom_Fichier = Application.InputBox(prompt:="*Entrez le nom de la nouvelle feuille*")
If Nom_Fichier = "Faux" Then Exit Sub
If Nom_Fichier = "" Then
MsgBox "Entrer un nom"
GoTo Debut


Else
Sheets("Feuil1").Select
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Claude\Bureau\" & Nom_Fichier & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

MsgBox "Votre feuille sera sauvegarder dans le répertoire: C:\Documents and Settings\Claude\Bureau\"
End If

End Sub

A++

Temjeh