Discussion :

[zephirsoul]

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 =)

[Invité]

Bonjour

Essaye de mettre DoEvents avant

Code :

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

sEmplacementInitial = "C:\PDF CAMPAGNE\Campagne.pdf"

où aprés le moment ou tu génére ton PDF.
Starec

[zephirsoul]

Malheuresement, j'ai encore exactement le meme probleme meme avec un doevents.