Discussion :

[jimbololo]

bonjour à tous !

j'aimerais ouvrir un fichier .txt à partir d'excel...
j'ai parcouru les sujets de forum, la faq et les tutos, j'ai trouvé sa :

Code :

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

1
2
 
Shell ("Y:\ABATTAGE\testlecture.txt")

mais sa me dit que la procédure est incorrecte !, j'ai vu qu'il y avait aussi la fonction Open mais je ne trouve pas d'aide pour celle ci dans EXCEL, est-ce que s'est une fonction VB ? utilisable sous VBA ?

j'ai essayé sa :

Code :

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

1
2
3
4
5
dim test as ...


Open "Y:\ABATTAGE\testlecture.txt" For Random As test

mais sa ne marche pas non plus! sa mefait nom ou numéro de fichier incorrect
je ne sais pas quel type de déclaration je dois faire pour test

pouvez vous m'aider ??? svp

[illight]

Pourquoi n'utilise tu pas simplement un :

Code :

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

workbooks.Open "C:\fichiertxt.txt"

Regarde dans l'aide pour plus d'informations

[jimbololo]

nan en fait c'est bon j'ai regardé dans des anciens sujets du forums, et j'ai cherché la méthode pour lire un fichier .txt, en fait j'ai eu les 2 réponses en même temps :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
    fichier = "Y:\ABATTAGE\porc.txt"
    Open fichier For Input As #texte
    While Not EOF(texte)
        Line Input #texte, ligne1
        taille = Len(ligne1)
        date1 = Mid(ligne1, 1, 8)
        numab = Mid(ligne1, 9, 2)
        numordre = Mid(ligne1, 11, 5)
        frappe = Mid(ligne1, 16, 5)
        numop = Mid(ligne1, 21, 3)
        tvm = Mid(ligne1, 24, 4)
        type1 = Mid(ligne1, 28, 1)
        poids1 = Mid(ligne1, 29, 4)
        reflectance = Mid(ligne1, 33, 3)
        forcage = Mid(ligne1, 36, 1)
 
 
    Wend
    Close #texte

merci a toi illight !