Macro pour copier une feuille

Bonjour a tous,

Je recherche une macro pour copier une feuille ( et seulement la feuille ) de mon classeur a l'aide d'un bouton

Cette feuille s'apelle "facture"

J'aimerai qu'elle se copie dans le même répertoire racine que mon classeur de base

Qu"elle se copie avec la date et l'heure puis avec le nom client de trouvant en " G8 " sur ma feuille

J'ai beau chercher , je n'a pas a trouver et a adapter le bon macro

Merci pour vos futurs réponses

C'est bon je viens de trouver la solution :

Public Sub copie()

Dim fpath, filename, datee As String

fpath = ActiveWorkbook.path

Sheets("Facture").Copy

datee = Now

datee = Format(datee, "dd-mm-yy hh-mm-ss")

filename = fpath & "\" & datee & "-" & Sheets("Facture").Range("g8").Value & ".xls"

ActiveWorkbook.SaveAs filename

ActiveWorkbook.Close

End Sub

Merci quand même