Copier un onglet vers un fichier existant

Bonjour la communauté,

Je cherche à copier un onglet vers un fichier existant dans le même répertoire on le renommant à la date du jour.

Merci de votre aide.

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonjour Gmb,

Lorsque j'indique le nom de mon fichier dans le code, la macro tourne mais rien ne se passe.

Ci joint le fichier "Concours interneDM.xlsm" exporter l'onglet classement vers le dossier "Classement.xlsx

Mon code :

Option Explicit

Dim chemin$, f As Worksheet

Sub ExporterUnOnglet()

    Set f = Sheets(1)
    f.Name = Format(Date, "yyyy-mm-dd")
    chemin = ThisWorkbook.Path
    Workbooks.Open Filename:=chemin & "\Classement.xlsx"
    f.Copy before:=Workbooks("Classement.xlsx").Sheets(1)
    ActiveWorkbook.Close True
End Sub

Bonjour la communauté,

C'est bon j'ai réussi ;)