FileCopy trop lent pour l'execution du code
Bonjour a tous !
Encore un petit probleme bien enervant...
Code:
1
2
3
4
5
6
7
8
9
10
11
12
|
DoCmd.OpenReport ("Etat_Fiche_Campagne")
Dim sEmplacementInitial As String
Dim sEmplacementFinal As String
sEmplacementInitial = "C:\PDF CAMPAGNE\Campagne.pdf"
sEmplacementFinal = oFld2 & "\" & "Campagne.pdf"
FileCopy sEmplacementInitial, sEmplacementFinal
Kill sEmplacementInitial |
OFld2 etant un chemin qui change...
Bref, cela marche trés bien, sauf que quand je lance mon code , un message d'erreur apparait sur la ligne sEmplacementInitial : Fichier introuvable sur l'emplacement.
En fait, le fichier vient juste d'etre crée par l'ordi et ne se trouve pas encore sur "sEmplacementInitial"...Il faut attendre 1sec,relancer le code et cela marche parfaitemnet
Existe t'il une commande pour freezer quelque seconde le code et le relancer?
Style :
Wait 2seconde
Merci d'avance =)
