Erreur en OLE sur macro Excel

[ti_wi_com]

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:\Appli\Access\suivi_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:\Appli\Access\suivi_depenses_ipaq.mdb"

.Refresh BackgroundQuery:=False

End With

[scuny]

je pense pas que le pb se situe au niveau de ta macro.

 

je regarderais plutôt ce qui se passe au niveau du pc.