Petite boucle en vba...

Résolu
cib Messages postés 17 Date d'inscription   Statut Membre Dernière intervention   -  
cib Messages postés 17 Date d'inscription   Statut Membre Dernière intervention   -
hello,

je débute dans vba...
une application crée en fin d'exécution un fichier texte dans un répertoire déterminé.
Je souhaite ouvrir ce fichier dès qu'il apparait...
en somme une boucle qui regarde periodiquement dans un répertoire et ouvre le fichier dès que celui-ci est présent.
Je pense que ça doit être possible....

thanks ; )

Cib

4 réponses

choubaka Messages postés 39442 Date d'inscription   Statut Modérateur Dernière intervention   2 105
 
salut


pas besoin de faire une boucle pour faire ça ..

Il suffit simplement de mettre la procédure d'ouverture du fichier juste après la procédure de création et d'enregistrement de celui-ci..
0
blux Messages postés 27109 Date d'inscription   Statut Modérateur Dernière intervention   3 359
 
Salut,

oui, mais si l'appli de création n'est pas ACCESS ? (comme je le comprends, sinon, ce serait trop simple)

Il boucler sur un évènement timer de vba avec la commande DIR...
0
Chemchoum
 
Il faut utiliser la commade DIR comme une instruction dans ton code, elle te renverras si le fichier existe ou pas

voici un exemple que tu peux trouver au niveau du Help VBA

Dim MyFile, MyPath, MyName
' Renvoie "WIN.INI" si ce fichier existe.
MyFile = Dir("C:\WINDOWS\WIN.INI")
0
alezan1 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   3
 
Je dirais même plus: Le fichier n'est que la représentation physique de ton objet en mémoire (workbook) . Donc tant que ton object existe tu peux en disposer comme bon te semble sans même le réouvrir.

Dans un language imagé, c'est un peu comme si tu avais une pomme en main et tu en fait un photo puis pour la réutiliser tu recrée ta pomme à partir de la photo alors que ta pomme est toujours dans ta main....comprendo?
0
cib Messages postés 17 Date d'inscription   Statut Membre Dernière intervention  
 
merci pour toutes ces infos...en fait j'ai été obligée de boucler car je ne sais pas quand le fichier en question va être créé, c'est une autre appli qui le génère.

je me suis débrouillée tout simplement avec ça :

Do While Dir("C:\xxx\xxx.xls") = ""

Loop

a++
Cib
0