Bonjour,

Je cherche à connecter mon application Excel vers une base de données Oracle.

Pour cela j'ai un nom de serveur ou est le base oracle, j'ai le nom d'une instance oracle, et un couple login / mot de passe

Après recherche et tests je ne peux me connecter à ma base. J'aimerais savoir comment faire avec ce que j'ai sachant que je ne peux pas me servir de DNS vu que l'application sera installée sur plusieurs postes différents.

Voici mes tests :
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
 
Public ConnectOracle As DAO.Database
 
Sub Connect_Oracle()
   '************************
   ' Erreur renvoyée : ORA-12170 : TNS: Connect timeout occured
   '************************    
 
    Dim Srv_Oracle As String
    Dim Itc_Oracle As String
    Dim User As String
    Dim PassWord As String
 
    Srv_Oracle = "serveur_oracle"
    Itc_Oracle = "instance_oracle"
    User = "user_oracle"
    PassWord = "pwd_oracle"
 
 
   Dim connexion As ADODB.Connection
   Set connexion = New ADODB.Connection
   connexion.Provider = "MSDAORA.1"
   connexion.Properties("Data Source").value = Itc_Oracle
   connexion.Properties("User Id").value = User
   connexion.Properties("Password").value = Password
   connexion.Open
 
End sub
 
Sub Connect_Oracle2()
   '************************
   ' Erreur renvoyée : [Microsoft][Gestionnaire de pilotes ODBC] Source de données introuvable et nom de pilote non spécifié
   '************************
 
    Dim Srv_Oracle As String
    Dim Itc_Oracle As String
    Dim User As String
    Dim PassWord As String
 
    Srv_Oracle = "serveur_oracle"
    Itc_Oracle = "instance_oracle"
    User = "user_oracle"
    PassWord = "pwd_oracle"
 
 
    'Déclaration de la variable de connexion
    Dim cnx As ADODB.Connection
    Set cnx = New ADODB.Connection
 
 
    'Définition de la chaîne de connexion
    cnx.ConnectionString = "UID=" + User & ";PWD=" & Password & ";" & "DRIVER=OraOLEDB.Oracle;Server=" & Srv_Oracle & "." & Itc_Oracle & ";"
 
 
    'Ouverture de la base de données
    cnx.Open
 
end sub
 
sub Connect_Oracle3()
   '************************
   ' Erreur renvoyée : Variable ou bloc with non déclaré   
   '************************
 
    Dim Srv_Oracle As String
    Dim Itc_Oracle As String
    Dim User As String
    Dim PassWord As String
 
    Srv_Oracle = "serveur_oracle"
    Itc_Oracle = "instance_oracle"
    User = "user_oracle"
    PassWord = "pwd_oracle"
 
 
    'Defining variables
    Dim cnOra As ADODB.Connection
    Dim rsOra As ADODB.Recordset
 
    'Making an ODBC connection according TO ADO
    cnOra.Open "DRIVER={Oracle ODBC Driver}; DSN=" & Itc_Oracle & "; UID=" & User & ";PWD=" & PassWord & ";"
 
end sub
Merci pour l'aide que vous pourrez m'apporter.