Creer un bouton enregistrer sous

Version imprimable

Bonjour
J'ai crée une macro qui permet d'ouvrir un fichier txt sous excel. (voir ci dessous)
Ca fonctionne
Je souhaiterais rajouter un code qui permet de faire un enregistrer sous de ce fichier après ouverture sous excel en conservant le nom actuel du fichier sélectionné (qui est en .txt lors de l'ouverture) et de mettre l'extension .xlsm
Comment faire ?
merci par avance
Code:

1 2 3 4 5 6 7 8 9 10 Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt") If Fichier = "Faux" Then Beep MsgBox "Aucun fichier n'a été sélectionné" Exit Sub Else Workbooks.OpenText Filename:=Fichier, Origin:=xlWindows, _ StartRow:=1, DataType:=xlDelimited, Semicolon:=True, Space:=True, Other:=True, OtherChar:="=", DecimalSeparator:="." ActiveSheet.Name = "DonneesBrutes"
End If

Code:

1
2
3
4
5
Set Wb=Workbooks.Open(Text Filename:=Fichier, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Semicolon:=True, Space:=True, Other:=True, OtherChar:="=", DecimalSeparator:="."
        ActiveSheet.Name = "DonneesBrutes")
 
Wb.SaveAs Filename:=replace(Fichier,".txt",".xlsm"), FileFormat:=xlOpenXMLWorkbookMacroEnabled

bonjour
j'ai bien intégré le code indiqué mais il m'indique erreur de syntaxe. Pouvez vous m'expliquer à quoi correspond la fonction "set" et corriger le code svp ?
merci par avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
 
    If Fichier = "Faux" Then
        Beep
        MsgBox "Aucun fichier n'a été sélectionné"
        Exit Sub
    Else
        Workbooks.OpenText Filename:=Fichier, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Semicolon:=True, Space:=True, Other:=True, OtherChar:="=", DecimalSeparator:="."
        ActiveSheet.Name = "DonneesBrutes"
 
     End If