Enregistrement feuilles

[GILLOU]

Bonjour le forum

J'ai un Classeur1 avec en tout 10 feuilles.

Sur la Feuil3 j'ai un bouton1 'enregistrer'
Je voudrais que lorsque j'appuie sur ce bouton, un nouveau classeur contenant seulement les feuilles 3 et 10 soit enregistrer sous le nom de Sheets('Feuil3').Range('B3').Text

Comment faire ?

Est ce possible ???

Merci d'avance a ceux qui se pencheront sur mon probleme....

A+

 

[Sylvain]

bonsoir,

je dirai ça :

Sub copie()
' copie 2 feuilles dans un nouveau
    Sheets(Array('Feuil3', 'Feuil10')).Copy
    ActiveWorkbook.SaveAs Filename:=Sheets('feuil3').Range('b2').Value
End Sub

 

[Franz63]

bonsoir Gillou,

j'ai fait un test par génération de macro

ci joint le résultat

Sub Macro3()

Dim NomFic As String
NomFic = Range('B3').Value

Sheets(Array('Feuil3', 'Feuil10')).Select
Sheets(Array('Feuil3', 'Feuil10')).Copy
ActiveWorkbook.SaveAs Filename:='D:\\EXCEL\\' & NomFic & '.xls', FileFormat:=xlNormal, _
Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub


j'espère que cela pourra vous aider

François

 

[GILLOU]

Merci tous les 2 je vais tester vos reponses

encore merci

A+

 

[GILLOU]

Re, j'ai testé vos formules, mais il y a une chose que je voudrais en plus si c'est possible...

Dans ma feuil1 j'ai plein de bouton affecté a des macros et lors de la copie je n'en ai plus besoin (cela me bouffe de la place et me rend le fichier bcp plus lourd). Est-il possible de ne pas tenir compte de tt ca pendant l'enregistrement ????

Merci encore à vous Sylvain et Franz63 !!!

 

[Sylvain]

bonjour,

je pense que ça doit marcher :

Sub copie()
  'copie 2 feuilles dans un nouveau
    Sheets(Array('Feuil3', 'Feuil10')).Copy
'effacer formes
    ActiveSheet.Shapes.SelectAll
    Selection.Delete
    ActiveWorkbook.SaveAs Filename:=Sheets('feuil3').Range('b2').Value
End Sub