Pour sauver une "aréa" page A4 sur un fichier

salut Jean,

1 bouton qui lance les 2 macros

Private Sub CommandButton1_Click()
imprimer
sauve
End Sub

Sub imprimer()
Sheets("Facture").Range("A1:D10").PrintOut Copies:=1, Preview:=True,
Collate:=True
End Sub

Sub sauve()
Dim fe, plg
Dim wk

Set plg = Sheets("Facture").Range("A1:D10")
Set fe = Sheets("Facture")
Workbooks.Open "C:Classeur2.xls"
Set wk = ActiveWorkbook
'pour avoir la mis en page
fe.Copy after:=wk.Sheets(Sheets.Count)
' nettoyage
Cells.Cells.Clear
' copie de la plage
Range("A1:D10") = plg.Value
' renommer la nlle feuille
ActiveSheet.Name = fe.Name & "_" & fe.Range("A1")
' ôter le bouton
ActiveSheet.Shapes("CommandButton1").Delete
' fermer et sauver
wk.Close True
Set fe = Nothing
Set wk = Nothing
set plg=nothing
End Sub



--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"jeanbelier1" <jeanbelier1@discussions.microsoft.com> a écrit dans le
message de news: 5FBC97B3-6347-428C-BF47-65D795942827@microsoft.com...

sur une feuille Excel on crée une page A4, exemple (page de facture) pour
l'imprimé on passe par "set print Aréa" et on l'imprime juste cette
feuille
et cela indéfiniment.
J'aimerais également sauver cette même feuille (A4, voir la même que "set
print aréa" dans un autre fichier.
Surtout ne pas passé par tracé les cellules à chaque fois que je veux
sauvé
cette feuille, elle devrais être la même pour chaque fois que j'ouvre
cette
feuille.
Même par une formule, cela m'aiderais bien.
Merci d'avance
Jean