Conversion CSV XLS

Bonjour,

Je vous explique mon problème:

J'ai un fichier excel vierge nommé final.xls

(mais qui comporte des boutons avec des macros qui y sont associé)

je cherche à crée un bouton qui ouvre un fichier signalements.jjmmaaaa.csv dans ce document même et de l'enregistrer au format signalements.jjmmaaaa.xls

pour faire simple je veux que lorsque j'enregistre le fichier en xls il puisse garder les macro ainsi que le nom du fichier

Cordialement.

Jean

j'ai trouvé ce code malheureusement il ne fonctionne pas:

    Sub Macro1()
    Workbooks.Open Filename:= _
    ChDir _
    ActiveWorkbook.SaveAs Filename:= _
    "signalisation." & Format(Now(), "DDMMYYYY") & ".xls" _
    , FileFormat:=xlCSV, CreateBackup:=False
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    End Sub

Merci de bien vouloir m'aider.