Open path for ...Résolu

Question

Je suis à la recherchede commande que je peux effectuer lorsque je j'o9uvre un txt de cette facon:

open pathname for input/binary/.....as #1

je sais : get, put, input, print...

je suis à la recher d'une fonction qui me permettrais de faire une recherche dans le contenue d'un fichier txt. Mon probleme c'est que je DOIS ouvrir un .xls de cette facon afin d'avoir accès à de l'information. Cette info n'est pas disponible si je l'ouvre avec createobject(excel.application).Si je lit ligne par ligne, apres la premiere cellule, il détecte un eof.

djief

cs_rene38 · Accepted Answer

Bonjour

Dim Texte As String 'Dimensionnement 
Open "C:\Chemin\Fichier.xls" For Input As #1 ' Ouverture
Texte = Space$(LOF(1)) ' Création d'un tampon
Texte = Input(LOF(1), 1)
Close 1

La variable Texte contient la totalité du fichier ;
tu peux donc faire ta recherche dans Texte.

Open path for ...

1 réponse

Discussions similaires