Discussion :

[Rémy.A]

Bonjour à tous!!

Je viens vers vous car je n'arrive pas à trouver de solution....
Lorsque le code ci-dessous s’exécute l’erreur 429: Un composant ActiviX ne pas pas créer d'objet apparaît.

Quand j’exécute le code sur mon pc du travail (Win7 pro 64bits et Microsoft pro plus 2013), il s'exécute correctement sans erreur. Quand je l'exécute sur mon pc perso (Win10 famille 64bits et Microsoft pro plus 2019) l'erreur apparaît.

Le code plante sur cette ligne:

Code :

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

Set MaDB = DBEngine.OpenDatabase(ActiveWorkbook.Path & "\EquipmentV4R3.mdb")

Les références sont toutes activées
Pièce jointe 447905

J'ai ré-installer Microsoft office et rien à changé....

En suivant l'aide de Microsoft en ligne, j'ai vérifier les clés CLSID et le reste...
https://support.microsoft.com/fr-fr/help/244264

Je ne pense pas que ce soit une erreur de code mais dites le mois si c'est le cas.

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
38
39
40
41
42
43
 
 
Public ChoixTABLE As String
 
Public Sub RemplirListeFabriquant()
    'Objet database - Ta BD Access
    Dim MaDB As DAO.Database
 
    'Objet recordset
    Dim MaRst As DAO.Recordset
 
    'La chaine SQL qui va aller chercher les infos dans la table
    Dim strSQL As String
 
    'J'efface les anciennes valeurs du combobox
    Sheets("Feuil1").cboFabriquant.Clear
 
    ChoixTABLE = Range("A2").Value
 
    'Sélectionne les valeurs de la colonne fabriquant de la table Module
    strSQL = "SELECT DISTINCT FABRICANT FROM [" & ChoixTABLE & "]"
 
    'Ouvre la BD
    Set MaDB = DBEngine.OpenDatabase(ActiveWorkbook.Path & "\EquipmentV4R3.mdb")
    'Rempli le recordset avec les valeurs obtenus par la chaine SQL
    Set MaRst = MaDB.OpenRecordset(strSQL, Type:=dbOpenSnapshot)
 
    'Boucle sur toutes les lignes du recordset
    Do While Not MaRst.EOF
 
        On Error Resume Next
 
        'Ajoute la valeur de la colonne Fabriquant dans le combobox
        Sheets("Feuil1").cboFabriquant.AddItem (MaRst("FABRICANT"))
        'Ligne suivante
        MaRst.MoveNext
    Loop
 
ImportQte_fin:
    Set rst = Nothing
    MaDB.Close
    Set MaDB = Nothing
End Sub

Merci par avance pour votre aide!!

[clementmarcotte]

Bonjour,

En principe, le moteur Jet n'est pas supporté depuis Office 2007 et dans le bas de l'article, ils parlent du moteur JET…

Et puis, cela reste à savoir si Office 2019 supporte toujours DAO. Je sais bien que Microsoft fait des efforts pour préserver la compatibilité, mais DAO c'est quand même une antiquité.

Et puis c'est bien beau de dire que tu as une erreur 429, mais où ?

Et puis déboguer avec des ligne On error actives, c'est l'enfer.

Et puis ta pièce jointe des références est illisible et impossible de l'afficher.

[Invité]

Bonsoir Rémy et Clément,

Oublis le moteur Jet et DAO et utilises ADO!

https://www.developpez.net/forums/d1...a/#post9998598

[Rémy.A]

Bonjour Dysorthographie,

Dsl pour la réponse tardive, j'ai un peux de mal à comprendre l'ADO...

Merci pour le lien!

Effectivement la DAO ne fonctionne plus sur MS OFFICE 2019.

J'ai donc repris le code ci-dessous en l'adaptant et en regardant le lien que tu m'as fourni.

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Public Sub RemplirListeFabriquant()
 
'Déclaration de la variable de connexion
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
 
Dim CheminAccess As String
Dim ChoixTABLE As String
 
'Chemin de la base de données
CheminAccess = ActiveWorkbook.Path & "\EquipmentV4R3.mdb"
 
'J'efface les anciennes valeurs du combobox
Sheets("Feuil1").cboFabriquant.Clear
 
ChoixTABLE = Range("A2").Value
 
'Instanciation des variables
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
 
'Définition du pilote de connexion
cnx.Provider = "Microsoft.ACE.OLEDB.16.0"
'Définition de la chaîne de connexion
cnx.ConnectionString = CheminAccess
'Ouverture de la base de données
cnx.Open
 
' Objet Recordset représente les enregistrements d'une table
rst.Open "SELECT DISTINCT FABRICANT FROM [" & ChoixTABLE & "]", cnx
 
Do While Not rst.EOF
 
        On Error Resume Next
 
        'Ajoute la valeur de la colonne Fabriquant dans le combobox
        Sheets("Feuil1").cboFabriquant.AddItem (rst("FABRICANT"))
        'Ligne suivante
        rst.MoveNext
Loop
 
 
' Fermeture recordset et connection
rst.Close
Set rst = Nothing
cnx.Close
Set cnx = Nothing
 
 
End Sub

Merci encore!!

[Arkham46]

Bonjour,

Effectivement la DAO ne fonctionne plus sur MS OFFICE 2019.

Un lien pour confirmer ?

Depuis 2007 c'est le moteur Ace qui remplace Jet.
Et Ado est complètement externe.

[Pierre Fauconnier]

[...]

Et puis déboguer avec des ligne On error actives, c'est l'enfer.[...]

Pas du tout! Il suffit de modifier l'option qui permet justement que ce ne soit pas l'enfer... En modifiant l'option d'arrêt sur les erreurs (Outils/Options/Général), on peut déboguer en laissant les lignes On Error... actives, le code s'arrêtant sur chaque erreur, même si un on error... est actif.



Cela ne veut pas dire que je cautionne l'utilisation du On Error..., notamment avec un Resume Next sans test de l'erreur après. (Mais c'est un autre sujet).

[Rémy.A]

Bonsoir Arkham46,

J'ai cherché a propos de la connexion DAO sur MS OFFICE 2019 est j'ai trouvé le lien ci-dessous.

Je suis désolé d'avoir dis une bêtise en ayant pas assez de connaissance...

https://support.office.com/fr-fr/art...6-1788e3276600

Mais je voudrais bien comprendre pourquoi le code avec la connexion DOA ne fonctionne pas sur mon PC avec MS OFFICE 2019 alors qu'il fonctionne avec 2016??

Merci par avance si vous avez une explication.

[Arkham46]

Bonjour,

La capture des références cochées n'est pas lisible.

Si c'est "Microsoft DAO 3.6 Object Library" alors :
replacez par "Microsoft Office 16.0 Access Database Engine Object Library"

DAO 3.6 est l'ancienne librairie DAO. Elle peut avoir été installée par une autre application et être en 32bits alors que Office est en 64bits par exemple.