Enregistrement feuilles

GILLOU · 9 Mai 2005

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 · 9 Mai 2005

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 · 9 Mai 2005

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 · 10 Mai 2005

Merci tous les 2 je vais tester vos reponses

encore merci

A+

GILLOU · 10 Mai 2005

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 · 10 Mai 2005

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

Enregistrement feuilles

GILLOU

Guest

Sylvain

XLDnaute Occasionnel

Franz63

XLDnaute Junior

GILLOU

Guest

GILLOU

Guest

Sylvain

XLDnaute Occasionnel

Discussions similaires