Discussion :

[fmris]

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fmris]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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