Discussion :

[pipo159]

Bonjour à tous,

j'ai un petit problème d'ordre technique,

J'ai crée un fichier où j'ai crée une macro. elle permet de faire:
1- créer un fichier pdf (avec acrobat distiller) avec un nom générique (ex : Devis) dans un dossier 1
2- déplacer le fichier vers un dossier 2 que je souhaite
3- efface le fichier du dossier 1

Mon problème est que le fichier pdf peut mettre du temps avant d'apparaitre (20-30sec). Comment pourrait on faire pour mettre une condition entre l'étape 1 et 2 qui empecherait de déplacer le fichier tant le dossier 2 tant qu'il n'est pas apparu dans le dossier 1
Peut être en faisant quelque chose du genre :
- des que le fichier apparait, déplacer le fichier


Merci de votre aide

bye

Pipo

[ucfoutu]

Bonjour,

tu peux peux-être vérifier périodiquement son existence (utilisation de la fonction Dir), voire sa taille (utilisation de la fonction FileLen) et prendre tes décisions en connaissance de cause.

[pipo159]

re bonsoir,

Je suis encore novice en vba, Pourrais tu m'expliquer un peu plus en me montrant un exemple de ces fonctions stp?

merci de ta réponse

Pipo

[ucfoutu]

Bonsoir,

Mais...

Ces deux fonctions sont assorties d'exemples on ne peut plus clairs dans ton aide en ligne ( ... sur TA machine....) ...

Je ne saurais donner (sauf par plagiat !!!) un meilleur exemple !!!

[pipo159]

Re bonsoir,

Voila j'ai écris ça mais j'ai fait un quelque chose qui marche pas^^
En fait j'ai fait une récursivité comme en C mais ça doit pas marcher ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub verfierSiFichierExiste_V02()
    While Dir("C:\Documents and Settings\...\pipo.txt") = ""
        verfierSiFichierExiste_V02
    Wend
        MsgBox "OK"
End Sub

Je souhaiterai que tant que le fichier n'existe pas (vérifier toute les 5 secondes peut etre) ne rien faire et des qu'il existe qu'il déplace mon fichier (pour l'instant j'ai mis un MsgBox pour les tests.

Merci de votre aide

Pipo

[ucfoutu]

Pas besoin d'une fonction pour celà !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
While Dir("C:\Documents and Settings\...\pipo.txt") = ""
        DoEvents
Wend

Mais je n'aime pas cette solution qui va beaucoup solliciter le processeur

Il convient plutôt de se servir d'un timer et de vérifier toutes les x secondes.

Comme VBA ne dispose pas de timer, tu peux utiliser l'Api de Windows pour en créer un.
Tu as pour celà un exemple dans la FAQ.

[pipo159]

je vais me plonger la dedans alors car je connais pas du tout

pipo

[pipo159]

bonsoir,

voila j'ai un peu cherché sur ce dont tu m'as parlé (les api de windows) mais bon j'y connais vraiment rien

Pourrait tu m'expliquer un petit peu plus stp?

Je récapitule ce que je souhaiterai: Une macro qui recherche si un fichier existe.
Si le fichier existe c tout bon
Si le fichier n'existe pas, attendre x secondes avant de retester la macro

merci

pipo