Un code VBA qui récupère un montant dans un fichier txt

Bonjour à tous,

J'ai un code VBA qui se trouve dans une diapo qui récupère un motant dans un fichier "txt" et qui la l'affiche dans une zone de text dans le diapo lorsque j'active la macro du diapo

Le code est :

Function Lire_JK() As String

Dim TextLine

Open "c:\jackpot.txt" For Input As #1

Do While Not EOF(1)

Line Input #1, TextLine

Loop

Close #1

Lire_JK = TextLine

End Function

Je souhaiterai faire le meme principe mais avec Excel mais cette fois ci dans une cellule qui se mettrais à jour automatiquement toutes les secondes car le fichier "c:\jackpot.txt" et mis a jout toutes les secondes

Merci d'avance

Salut,

Le code est simple, j'ai ajouté 2 boutons (GO et STOP), juste pour ne pas avoir a killer le process Excel.exe

Dis moi si cela te convient.

++

Bigdams

c'est Magnifique! c'est le début du projet. encore Merci.

J'aurai surement besoin de toi encore pour convertir toute la diapo sur Excel car il y a d'autre code VBA que je comprend pas trop

Merci

Bonjour,

je deterre ce poste car lorsque je lance le fichier sous windows 10 et excel 2013, j'ai un message d'erreur lorsque je lance le code vba

J'ai un debug sur la ligne >> Open "c:\jackpot.txt" For Input As #1

Merci d'avance pour votre aide

Je rappel que sous XP et Excel 2003 tous fonctionne corectement

Kemel