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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.