L’entrée dépasse la fin du fichier (Erreur 62)

Bonjour

J'ai fait un code VBA excel qui récupère le contenu d'un email et le met dans un fichier .txt

je fais ensuite ce traitement

Do
str_ligne = txtfile.ReadLine
Loop While (InStr(str_ligne, " Session Type Pr Date IS Name Description")) <> 1
Do
str_ligne = txtfile.ReadLine
ActiveCell.FormulaR1C1 = str_ligne
ActiveCell.Offset(1, 0).Range("A1").Select
Loop While (str_ligne <> "Data ")

Edit modo : merci de mettre le code entre balises SVP avec le bouton </>

Dès que j'arrive à la dernière ligne du mail il m'affiche ce message d'erreur (62) (voir titre)

une piste svp pour contourner le problème?

un grand merci d'avance

Bonjour

Merci de mettre cotre code entre balises SVP (déjà dit)

2023 02 21 15h18 47

La prochaine fois votre post part directe à la poubelle, marre de corriger

Merci de votre attention et votre compréhension

Bonjour

Désolé je ferai attention la prochaine fois

merci pour la correction

bonsoir,

une piste svp pour contourner le problème?

Utilise on error goto et fais une gestion de l'erreur.

Pour de l'aide supplémentaire, mettre ton classeur (anonymisé) avec tes macros et un exemple de fichier mail que tu essaies de lire.

Rechercher des sujets similaires à "entree depasse fin fichier erreur"