Erreur sur accès OLE dans macro Excel 2003

[tiwicom]

Bonjour,

J'ai récemment développé une macro sous Excel 2003, pour réaliser un lien
OLE avec une table d'une base Access 2003.
Cette macro a marché parfaitement durant plusieurs mois, mais m'envoie
maintenant le message d'erreur "Erreur automation L'objet invoqué s'est
déconnecté de ses clients" sur la ligne ".RefreshBackgroundQuery" du code
ci-dessous...

Ce problème est quasiment permanent (sur une quinzaine d'essais, j'ai réussi
une fois à établir la liaison ce matin, alors qu'avant cela marchait toujours)

Quelqu'un aurait il une idée de la provenance de ce problème?

D'avance merci

Code de la macro concernée:

Columns("A:B").Select
Selection.ClearContents
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User
ID=Admin;Data Source=D:AppliAccesssuivi_depenses_ipaq.mdb;Mode=Share Deny
Write;Ext" _
, _
"ended Properties="""";Jet OLEDB:System database="""";Jet
OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine
Type" _
, _
"=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk
Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Data" _
, _
"base Password="""";Jet OLEDB:Create System Database=False;Jet
OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=" _
, "False;Jet OLEDB:Compact Without Replica Repair=False;Jet
OLEDB:SFP=False"), _
Destination:=Range("A1"))
.CommandType = xlCmdTable
.CommandText = Array("depenses")
.Name = "suivi_depenses_ipaq"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = "D:AppliAccesssuivi_depenses_ipaq.mdb"
.Refresh BackgroundQuery:=False
End With