Bonjour,

Ce problème est souvent débattu sur internet mais je n'ai pas trouvé de solution et arrive au bout de mes compétences... Je m'en remets aux vôtres pour débloquer la situation svp

J'ai développé sur mon PC, un fichier Excel qui vient importer des informations d'une base de données Oracle. Jusque là tout va bien. ça se corse quand j'essaie de faire fonctionner ce fichier sur d'autres PC ! Ce fichier fonctionne sur mon poste mais sur aucun des postes des utilisateurs. Une erreur 430 est générée avec le message "la classe ne gère pas automation ou l'interface attendue".

Je vais essayer de détailler mon code ci-dessous :

Pour me connecter à la base de données, j'utilise la fonction suivante

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Option Explicit
Public cnx As ADODB.Connection
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub ConnecterBaseOracle()
 
'ouverture connexion
If cnx Is Nothing Then
    If strConnectionString = "" Then
        strConnectionString = "Driver={Oracle dans OraClient10g_home1};Dbq=BNE_PROD;UID=test;PWD=test;Server=test;Database=BNE_PROD;"
    End If
    Set cnx = New ADODB.Connection
    cnx.ConnectionString = strConnectionString
    cnx.Open
End If
 
End Sub
Comme je le disais, sur mon PC, pas de problème, tout s’exécute normalement mais sur celui des utilisateurs, le code plante sur la ligne suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set cnx = New ADODB.Connection
et le message d'erreur suivant apparait : Erreur d'éxécution '430', la classe ne génère pas Automation ou l'interface attendue.

Auriez-vous une idée svp ?
Merci beaucoup pour votre aide