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 : Sélectionner tout - Visualiser dans une fenêtre à part
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