probleme importation fichier .txt sous Excel

Question

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
       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




 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

darkspoilt · Answer

ah oui
wbfile as workbook

darkspoilt · Answer

ah oui
wbfile as workbook

fred0381 · Answer

Salut,

Tu devrais eesayer : 
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)

darkspoilt · Answer

ca ne fonctionne pas il veut meme pas que je le tape mon bloc est rouge quand je fais cela

cs_MPi · Answer

Utilise Open pour mettre ton fichier dans une variable.

ex: Open MonFichier For Input As #1
Tu peux ensuite utiliser LOF pour transférer le fichier dans une variable d'un seul coup.

Il y a beaucoup d'exemples sur le site.

MPi²

Probleme importation fichier .txt sous Excel

5 réponses

Votre réponse

Discussions similaires