Comment assosier 2 macro en 1 seul

Hello tous le monde

Voila j'aimerai pouvoir assosier 2 macro en 1 seul afin qu'au clic sur le bouton la macro imprime ma feuille facture et me l'enregistre ensuite.

est ce que c'est possible?

Car j'ai essayer de cette facon et cela ne fonctionne pas

Private Button_Click()
If Range('A1').Value = Date Then
Imprimer
Else
Sauvegarder
End If
End Sub

Sub Imprimer()
'Macro par Dan pour Belette -  XL pratique le 02/04/08
With ActiveSheet
    .PageSetup.PrintArea = .UsedRange
    .PrintOut
End With
End Sub
Sub Sauvegarder()
'Macro Dan le 18/09/10 pour millopas
Dim nomfichier As String, chemin As String
With ThisWorkbook
    chemin = .Path & "\"
    nomfichier = "Fact" & .Sheets("Facture").Range("c2")
    .Sheets("Facture").Copy
End With
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier & ".xls"
.Close
End With
End Sub

Par avance merci.

Cordialement

Bonjour

Modifies juste ta macro

Private Button_Click()
  Imprimer
  Sauvegarder
End Sub

Yessss j'ai enfin reussi il suffisait

Sub ToutesLesMacros()

Call Imprimer
Call Sauvegarder

End Sub

Cordialement

Merci bcp banzai

je vient de voir que nous avaons repondu en meme temps sur le meme sujet et j'ai resolu mon prob avec l'autre fonction.

Cordialement