Detecter fin de fichier sous VBA WORD

Messages postés
8
Date d'inscription
mardi 24 février 2004
Statut
Membre
Dernière intervention
2 mars 2004
- - Dernière réponse : stdredd
Messages postés
8
Date d'inscription
mardi 24 février 2004
Statut
Membre
Dernière intervention
2 mars 2004
- 26 févr. 2004 à 08:08
Bonjour,

Je viens de passer (!) de word basic à VBA word, et je ne trouve pas l'instruction VBA pour detecter la fin d'un fichier word :
Je veux une boucle qui s'execute pour toutes les ligne du doc word :
while (pas en fin de doc)
... instructions
loop

J'ai essayé not eof (1), sans trop savoir comment ça marche. Moralité : ça marche pas !

Je sais que ça doit être basic (ha, ha, ha !!!) mais je sèche... merci de votre aide.
Afficher la suite 

2 réponses

Messages postés
30
Date d'inscription
lundi 21 juillet 2003
Statut
Membre
Dernière intervention
19 avril 2007
0
Merci
Voici un exemple qui pourra peut-être t'aider :

Sub ouverture_lecture_fichier()

Dim buffer
Dim fileToOpen

'choix du fichier dans une dialogbox
fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")

Open fileToOpen For Input As #1 ' ouverture du fichier
Do While Not EOF(1) ' lecture ligne par ligne jusqu'à la fin du fichier.
Line Input #1, buffer ' - stockage de la ligne dans la variable buffer
ActiveCell.FormulaR1C1 = buffer ' - depot de la ligne dans la cellule courante
ActiveCell.Offset(1, 0).Select ' - passage à la cellule du dessous
Loop ' fin de la boucle
Close #1 ' fermeture le fichier.
End Sub
Messages postés
8
Date d'inscription
mardi 24 février 2004
Statut
Membre
Dernière intervention
2 mars 2004
0
Merci
Bonjour Beroca,

Merci pour la reponse, mais je ne suis pas sur de comprendre le fonctionnement de eof (1) : j'ai déja essayé sous VBA word, sans succès. Qu'est ce que c'est que ce 1 ? dans ton script, j'ai l'impression que c'est un alias pour identifier le fichier ouvert. Sous VBA WORD, est ce que je peux utiliser "this.document" pour identifier mon document courant ouvert ? (parce que ma routine est censée s'appliquer à des documents differents).

De même, le début de ta routine n'est pas clair pour moi (je débute !). J'ai l'impression que ça va m'ouvrir 1 par 1 tous les fichiers d'extention .txt. Si c'est ça, c'est super, sauf qu'il faut que je remplace . txt par . doc (ca je peux faire tout seul ;) ).

Merci