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 ![;)](https://www.developpez.net/forums/images/smilies/icon_wink.gif)
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
1 2
| Option Explicit
Public cnx As ADODB.Connection |
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 :
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
Partager