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