Il y a actuellement 218 visiteurs
Jeudi 28 Mars 2024
accueilactualitésdossierscomparer les prixtélécharger gratuitement vos logicielsoffres d'emploiforum informatique
Connexion
Créer un compte

Erreur sur accès OLE dans macro Excel 2003

Besoin d'aide pour configurer un serveur ? Vous souhaitez obtenir des conseils pour référencer votre site ? Un petit souci pour accéder à votre FTP ? Des soucis de programmation en PHP / ASP / HTML / XHTML / XML / XSLT / CSS / ReactJS / AngularJS / VueJS / CGI / PERL / C / MySQL / PostgreSQL ??? Nous avons peut-être la solution dans ce forum ...

Erreur sur accès OLE dans macro Excel 2003

Message le 31 Aoû 2009 15:34

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
tiwicom
Visiteur Confirmé
Visiteur Confirmé
 
Messages: 16
Inscription: 07 Juil 2008 17:50
 



Sujets similaires

Message [Réglé] Impossible d'ouvrir les droits d'accès...
Bonsoir, voila mon soucis actuellement, c'est que je ne peux plus rien faire sur mon pc, j'ai voulu modifier les droits d'accès à un jeu sur mon pc aujourd'hui et sans rien comprendre, ça m'a retiré les droits d'accès au disque C: et E: qui sont respectivement un SSD et un HDD, et je ne sais plus qu ...
Réponses: 24

Message [Réglé] erreur 0x000428
Bonjour j'ai acheté un écran (ASUS TUF Gaming VG279Q1A - Ecran PC Gamer eSport 27" FHD - Dalle IPS - 165Hz - 1ms - 1920x1080) pour le pc de mon fiston (Ryzen 5 3600 / RTX 2070 Super / alim corsair 650 Watts / 16 Go de ram) sous Windows 10 pro et au bout d'une demie heure le pc a planté et au re ...
Réponses: 18

Message Accès au bios impossible après mise à jour.
Bonjour ou Bonsoir (selon),Merci de m'aider car je suis complétement perdu. Mon HP Omen 15 (Windows 10 pro) ne me donne plus d'accès au bios, pour pouvoir démarrer sur une clé USB par exemple. J'ai tenté les touches "ESC", F8, F10 et rien n'y fait. La seule qui réponde à l'allumage est la ...
Réponses: 3

Message Accéder aux fichiers de l’onglet « accès rapide »
Bonjour,J?ai une question sur l?onglet « accès rapides », sur le côté gauche là où il y a marqué bureau, mes documents, ect..Est-il possible de voir où de récupérer quelque part sur windows des données (qui était sur un disque dur externe et donc qui n?est plus branché) qui s?affiche sur l?onglet ac ...
Réponses: 3

Message Vos Pires Messages d'erreur du PC
ICI mettez Vos pires messages d'erreur que votre pc a generé. Voila moi je commence. juste il y a 10 minutes en démarrent mon pc: Rundll32 ne fonctionne plus en plus avant j'en ai eu d'autre mais que j'ai fermé: Les Voila: Microsoft Visual++ était aussi de la partie et Kapersky a aussi foiré ...
Réponses: 355

Message Formule EXCEL Sumif + liste déroulante + plusieures pages
Bonjour à tous.Je ne suis pas certain d'être sur la bonne partie du forum, mais c'est ce qui m'a semblé le plus adéquat ^^"Alors, je vous explique ce dont j'ai besoin.Pour faire la compta de mon asso, j'ai un Excel sur 13 pages. 1 par mois +1 qui me ressort sur un tableau les recettes, dépenses ...
Réponses: 0

Message Problème d'autorisations d'accès...
Bonjour,Je rencontre un nouveau problème, qui je précise sort de nul part puisque je n'ai rien changé... Maintenant je ne sais plus ouvrir mes images, j'ai ce message d'erreur: "la visionneuse de photos windows ne peut pas ouvrir cette image car vous ne disposez pas des autorisations d'accès ...
Réponses: 31


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 7 invités


.: Nous contacter :: Flux RSS :: Données personnelles :.