Discussion :

[pkrvz]

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 :

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

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

[marot_r]

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

Code :

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

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

[pkrvz]

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

Merci

Cela ne fonctionne pas..

[Invité]

Bonjour

Essayes de mettre l'instruction

Code :

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

DoEvents

avant de killer ton fichier.

Starec

[pkrvz]

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

Code :

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

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

[Invité]

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

Starec