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