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 : 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 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
Partager