Discussion :

[darkspoilt]

Bonjour je réussi a importer en VBA un fichier texte sous Excel mais il ne veux pas que je l'instancie dans une variable

voila mon code

Code :

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

1
2
3
4
5
6
7
       Workbooks.OpenText Filename:="c:\fichier.txt", _
        Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
        , Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo _
        :=Array(Array(1, 1), Array(2, 2), 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)), TrailingMinusNumbers:=True

et voila ce que j'aimerais faire

Code :

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

1
2
3
4
5
6
7
8
9
 
wbfile as workbook
set wbfile =  Workbooks.OpenText Filename:="c:\fichier.txt", _
        Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
        , Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo _
        :=Array(Array(1, 1), Array(2, 2), 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)), TrailingMinusNumbers:=True

il me surligne Filename et met en rouge tout le code

Si quelqu'un peut m'expliquer pourquoi merci d'avance

[pgz]

Bonjour.

A vérifier, mais je te propose :

Code :

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

1
2
Workbooks.OpenText Filename:="c:\fichier.txt", ....
Set wbfile = Application.ActiveWorkbook

Bon courage,

PGZ