Bonjour a tous !
Encore un petit probleme bien enervant...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 =)