Ouvrir un fichier à mettre en forme au nom variable Résolu/Fermé

Question

Bonjour,
Je dois ouvrir un fichier *.ascii avec un nom différent suivent l'utilisateur.
Voici le code que j'ai écrit :

'Parcourir pour sélectionner le fichier défaut
    Application.GetOpenFilename
'Ouvrir et convertir le fichier ascii
    Workbooks.OpenText Filename:= _
        "????????????????????????????_DEF.ascii", Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
        , 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
        Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array( _
        28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), _
        Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), Array(40, 1), Array( _
        41, 1), Array(42, 1), Array(43, 1), Array(44, 1), Array(45, 1)), TrailingMinusNumbers _
        :=True

"????????????????????????????_DEF" étant le nom du fichier, mais je n'arrive pas à imposer le nom du fichier à Excel.
Je souhaite imposer aux utilisateurs de mettre "_DEF" à la fin du fichier. Mais le début, le nombre de caractères, et le libellé, et libre de choix.
Lorsque la fenêtre "Parcourir" s'ouvre j'ai bout sélectionner un autre fichier, le seul qu'Excel accepte d'ouvrir c'est le premier.

Merci d'avance.

f894009 · Answer

Bonjour,

    Dim wbName As String        wbName = Application.GetOpenFilename(FileFilter:="Fichier *.ASCII (*.ASCII),*.ASCII", Title:=" Selectionnez le fichier ")    If wbName = "Faux" Then        Exit Sub    End If    Workbooks.OpenText Filename:=IFwbName, Origin:= _        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _        , 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _        Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array( _        28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), _        Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), Array(40, 1), Array( _        41, 1), Array(42, 1), Array(43, 1), Array(44, 1), Array(45, 1)), TrailingMinusNumbers _        :=True

painghou · Answer

Merci c'est exactement cela.
Merci beaucoup

Ouvrir un fichier à mettre en forme au nom variable

2 réponses

Discussions similaires