Error 70 Permission Denied
Bonjour,
A partir de MS Access, je crée un fichier Excel. En VBA (Access) j'ouvre un objet Excel, je modifie le fichier Excel puis je ferme Excel.
En phase de développement, je tatonne, je teste et frequement je suis contraint à interrompre mon code avant la fin c'est-à-dire avant d'avoir refermé mon objet Excel. Si je relance mon code avec de nouveau l'ouverture de Excel, je reçois le message d'erreur "error 70 Permission Denied". Ce n'est pas une surprise mais la seule manière que je connaisse pour me libérer de ce message d'erreur c'est de faire un reboot complet du PC. Y-at-il une autre manière plus facile, plus rapide pour supprimer le lock sur le fichier Excel ? Je désirerais detruire ce fichier Excel incomplet mais je n'y parviens pas.
Merci.
environnements :
Windows XP avec Office 2003 et Windows 7(64 bits) avec Office 2007
Je n'ai pas les droits d'administrateur sur la machine.
Pour info, voici mon code :
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
| Function TestError70Excel()
Dim objXL As Excel.Application
Dim objWkbk As Workbook
Dim objSht As Worksheet
Set objXL = CreateObject("Excel.Application")
Set objWkbk = objXL.Workbooks.Open("C:\Temp\Test.xls")
Set objSht = objWkbk.Worksheets(2)
objXL.Visible = False
'Make this sheet the active one when the user opens the Spreadsheet
objSht.Activate
Worksheets("Form").Activate
Cells(3, 1).Activate
'...... encore du code que je developpe et teste
'durant ces tests je peux avoir une erreur ou un Exit Function impromptu.
'en fin de programme, je ferme mes objets et connections
objWkbk.Close True
DoEvents
objXL.Quit
Set objSht = Nothing
Set objWkbk = Nothing
Set objXL = Nothing
End Function |
