Enregistrement et chaines de caractères.

Bonjour,
J'essaie de faire un tout petit code pour automatiser une fonction assez basique, mais voilà je bloque :

Je voudrais enregistrer un fichier .txt, que j'ai ouvert sous excel et modifié, en fichier .xlsx avec le même nom que l'original, dans le même dossier. J'ai essayé la chose suivante :

    Sub Macro6()
  Dim Workyname As String
  Workyname = Right(ActiveWorkbook, -4)
  ChDir ActiveWorkbook.Path
   ActiveWorkbook.SaveAs Filename:= _
   "V:\mes_documents\These\Projet_gocad\Data_out\S7\" & Workyname & ".xlsx", _
   FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

 End Sub
     

Qu'est ce qui ne va pas? Pourquoi ça ne marche pas?

Merci beaucoup.