Priorité d'exécution dans le code

Version imprimable

Bonjour, j'ai un pb dans la priorite de mon code. Je m'explique:

J'ai un formulaire contenant un webbrowser qui pointe vers un fichier pdf pour l'afficher.

Ensuite je veux avec mon code effacer le fichier en question. Comme le webbrowser pointe vers ce même fichier la permission d'effacer n'est pas autorisée.

même en faisant pointer le webbrowser ailleurs juste avant, il ne libére pas assez vite l'acces au fichier afin de pouvoir l'effacer.

Voici le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub Bt_QualifDoc_Click() Dim strPathfin As String Dim strPathInit As String Me.WebBrowser6.Navigate "c:\test\commande.pdf" strPathInit = [Forms]![F-QualifScan]!Chemin + [Forms]![F-QualifScan]!ListeFichier strPathfin = [Forms]![F-QualifScan]!RepFichier + [Forms]![F-QualifScan]!NomFichier ' MsgBox "fichier de départ: " & strPathInit ' MsgBox "fichier de destination: " & strPathfin 'Copie du fichier et renommage FileCopy strPathInit, strPathfin 'effacement du fichier initial Kill strPathInit Call LitRepertoireErreur End Sub
Avez-vous des suggestions?

Cordialement
Patrick

Avec une gestion d'erreur toute bête tu devrais pouvoir t'en sortir.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Private Sub Bt_QualifDoc_Click()
 
on error goto Err_Bt_QualifDoc_Click
 
Dim strPathfin As String
Dim strPathInit As String
Me.WebBrowser6.Navigate "c:\test\commande.pdf"
strPathInit = [Forms]![F-QualifScan]!Chemin + [Forms]![F-QualifScan]!ListeFichier
strPathfin = [Forms]![F-QualifScan]!RepFichier + [Forms]![F-QualifScan]!NomFichier
 
' MsgBox "fichier de départ: " & strPathInit
' MsgBox "fichier de destination: " & strPathfin
 
'Copie du fichier et renommage
        FileCopy strPathInit, strPathfin
        'effacement du fichier initial
 
RepriseSurErreurSuppression:
        Kill strPathInit
 
Call LitRepertoireErreur
 
Exit_Bt_QualifDoc_Click
   exit sub
 
Err_Bt_QualifDoc_Click
   select case err.number
      case NoErreurSuppressionImpossible
         'Ajouter éventuellement ici une pause d'une seconde avec l'API sleep.
         resume RepriseSurErreurSuppression:
 
      case else
         msgbox err.description
         resume Exit_Bt_QualifDoc_Click
 
    end select
 
End Sub

28/03/2008, 22h42
pkrvz

peux tu m'indiquer la syntaxe pour la pause de l'API sleep

Merci

Cela ne fonctionne pas..
29/03/2008, 04h37
Invité

Bonjour

Essayes de mettre l'instruction

Code:

DoEvents

avant de killer ton fichier.

Starec

l'instruction doevents ne fonctionne pas non plus. même en mettant une boucle avant pour temporiser.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
       Dim I, OpenForms
For I = 1 To 150000    ' Lance la boucle.
    If I Mod 1000 = 0 Then     ' Lorsque la boucle s'est
                                    ' répétée 1000 fois.
        OpenForms = DoEvents    ' Cède le contrôle au
                                    ' système d'exploitation.
    End If
Next I    ' Incrémente le compteur de boucle.
 
 
        Kill strPathInit

29/03/2008, 07h59
Invité

:nono:

DoEvents ce met tou seul sur une ligne tout seul, avant ton kill, réessaye.

Starec
29/03/2008, 08h12
pkrvz

J'ai essayer dovents seul avant le kill. Rien à faire

Je viens de m'en sortir en faisant charger par le webbrowser une page htm vide juste avant le kill.

Merci pour ton aide