Fichier en cours, enregistrement

Bonjour,

J’essaie de faire un tout petit programme 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. J'ai essayé la chose suivante :

Sub Macro6()
'
' Macro6 Macro
'

'
    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

Mais ça ne marche pas pourriez vous m'aider?? mmerci

J'ai trouvé la réponse j'ai fait

Sub Macro7()

    Dim Workyname As String
        Workyname = Split(ActiveWorkbook.Name, ".")(0)
            ChDir ActiveWorkbook.Path
            ActiveWorkbook.SaveAs Filename:= _
            ActiveWorkbook.Path & "/" & Workyname & ".xlsx", _
            FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
'
' Macro7 Macro
'
' Touche de raccourci du clavier: Ctrl+r
'
End Sub
Rechercher des sujets similaires à "fichier cours enregistrement"