Discussion :

[francky62000]

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’appelle "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

[Franzz]

Bonjour francky

Voici une solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
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

[francky62000]

Merci Franzz

Ca fonctionne trés bien