erreur '429' le composant ActiveX ne peut pas créer l'objet.

**sidisadmir** · 24/04/2013, 08h18

Bonjour
S.V.P je cherche votre aide ,voila mon problème
j'ai crée un programme vb6 utilisant ADO et une base access 2003 .
par un bouton "Button Imprimer" je veux lancer l'impression d'un état access en utilisant cette procedure:

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
32
33
34
35
36
37
 
Private Sub CmdImprimer_Click()
Dim appaccess As Access.Application
Dim strdb As String
On Error GoTo gerr
'position de la base de donneés
strdb = App.Path & "\MaBase.mdb"
statef = "MonEtatAccess"
Set appaccess = New Access.Application
'ouvrir la base de données sous microsoft access
appaccess.OpenCurrentDatabase strdb
  appaccess.Visible = false
 appaccess.DoCmd.OpenForm "MonFormulaireRecevantLesParametres", acPreview, , , , acHidden
 appaccess.Forms![MonFormulaireRecevantLesParametres]![Txtannee] = txtAnnescol.Text
 appaccess.Forms![MonFormulaireRecevantLesParametres] = CmbCodeNive.Text
 appaccess.Forms![MonFormulaireRecevantLesParametres]![txtLaSerie] = CmbCodeSeri.Text
 appaccess.DoCmd.OpenReport "MonEtatAccess" 
appaccess.DoCmd.OpenForm "MonFormulaireRecevantLesParametres", acLayout, , , , acHidden
 
 MsgBox "Clickez sur ok quand l'impression sera términée !!", vbInformation, "Impression"
 
 
 End If
 appaccess.CloseCurrentDatabase
 Set appaccess = Nothing
 Exit Sub
gerr:
 Select Case Err.Number
 Case 0
 Case 2501
 Resume Next
 Case Else
 MsgBox "erreur non gérée' " & vbCrLf & Err.Number & "'" & Err.Description, vbCritical, "Impression"
 End Select
 appaccess.CloseCurrentDatabase
 Set appaccess = Nothing
End Sub

quand je débug mon programme , tout marche bien
mais quand j'utilise MonProgramme.exe je reçois le message suivant

erreur'429' le composant activex ne peut pas créer l'objet.
je click sur "ok"
un deuxième message :"variable bloc with non definée.

Quand je regarde l'observateur d'evenements je vois que le problème vient de: DCOM le message que je lis est :

"Le serveur {73A4C9C1-D68D-11D0-98BF-00A0C90DC8D9} ne s'est pas enregistré sur DCOM avant la fin du temps imparti"

alors si qlq un veut bien m'aider!!

**ProgElecT** · 24/04/2013, 12h49

Salut

Essais une liaison tardive plutôt qu'une liaison précoce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim appaccess As Object
Set appaccess = CreateObject("Access.Application")

Mieux ?

**sidisadmir** · 24/04/2013, 18h03

Bonjour
merçi pour votre conseil
j'ai utilisé la liason tardive comme vous l'aver conseillé mais toujours le meme message .
(je porte à votre connaissance que j'ai office 2010.)
quand j'ouvre la base access je remarque que quand je cherche à executer l'état accesse dans l'aperçu avant impression ,je remarque qu'il est impossible de l'afficher. alors je ne comprend plus rien.
merçi de me donner une idée.