Discussion :

[aldapal]

Bonjour!

J'essaie de faire une requête de mise-à-jour dans une BD Oracle avec une macro Excel VBA, mais à chaque fois ça me demande le mot de passe. Pour contrer ce problème, j'ai essayer de faire ce qui suit :

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
 
    Dim objConn As DAO.Database
    Dim objRS As DAO.Recordset
 
    Dim ConnectStr As String
    ConnectStr = "Driver={Microsoft ODBC for Oracle};& Source=maBD.WORLD;& UID=information;& Password=information"
 
    Set objConn = OpenDatabase(ConnectStr)
 
    Set wbkClasseur = Workbooks.Add
 
[traitement...]
 
    Set objRS = Nothing
    objConn.Close
    Set objConn = Nothing

mais ça me donne un message d'erreur que le fichier Driver={Microsoft ODBC for Oracle};& Source=maBD.WORLD;& UID=information;& Password=information est introuvable...

Quel est alors le meilleur moyen de procéder pour accéder à ma BD sans avoir à entrer le mot de passe à chaque fois?

Merci!!

aldapal

[jfontaine]

as tu essayé de créer la connexion ODBC lanuellement et d'utiliser cette connexion dans Excel

Code :

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

1
2
 
ConnectStr ="DSN=NomOdbc; UID=User; PWD=MotdePasse""

[aldapal]

Même erreur.... "Erreur d'exécution '3024': Fichier introuvable"

Si ça peut aider, ma BD est en Oracle 73 Ver 2.5...

[aldapal]

En fait, ce que je veux exactement, c'est de faire un rafraichissement des données externes qui sont sur mon Excel via une macro VBA, sans que ça demande le mot de passe, puisque la macro s'exécutera automatiquement...

Je veux donc pouvoir me connecter à la BD en y forçant le user/mdp et ensuite faire un Selection.QueryTable.Refresh BackgroundQuery:=False.

Mais pour l'instant, ça demande toujours un mot de passe...

Merci d'avance!!

[kiki29]

Soir Bon, jeter un oeil sur http://www.carlprothman.net/Default.aspx?tabid=81

[begsym]

Voilà ce que je fais avec SQL Server

je charge en VB, la string de connexion avant de rafraichir l'onglet, les données de connexion sont dans une feuille du classeur qui peut être protégée si nécessaire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'Preparation de la string de connection "connect"
server = Range("Base").Cells(2, 2)
base = Range("Base").Cells(3, 2)
login = Range("Base").Cells(4, 2)
password = Range("Base").Cells(5, 2)
connect = "ODBC;DRIVER=SQL Server;SERVER=" & server & _
";UID=" & login & _
";PWD=" & password & _
";APP=Microsoft® Query;;DATABASE=" & base
Worksheets("Brut").QueryTables(1).Connection = connect
 
' Refresh
Selection.QueryTable.Refresh BackgroundQuery:=False

[aldapal]

Bonjour à tous,

kiki29, j'ai regardé le site, trouvé comment me connecter avec un ODBC DSN, mais j'ai toujours des erreurs. Je n'y comprends plus rien...

En mettant

Code :

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

1
2
3
    ConnectStr = "DSN=DSNsysteme;" & _
           "Uid=information;" & _
           "Pwd=information"

j'ai encore une fois une erreur de fichier introuvable.

En mettant le code de Begsym, c'est mon refresh qui ne fonctionne plus, erreur générale ODBC.


D'autres idées??

[fstrobel]

voila ce que fais

Code :

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

1
2
3
4
With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DRIVER={Microsoft ODBC for Oracle};UID=iid;PWD=pwd;SERVER=toto;", _
        Destination:=Range("A1"))
        .CommandText = Array( marequette )

[aldapal]

Bonjour,

1) c'est quoi "marequette"?

2) et ensuite, en faisant un refresh, ça devrait fonctionner?

Merci, je sens que ça débloque!!

[fstrobel]

marequette c'est la requette a exécuter
tu peux juste établir la connection .
et la fermer à la fermeture du classeur mais je te le déconseille pour des probleme de sécurité.

[aldapal]

Ok, j'arrive à passer les étapes de connexion sans erreur, mais j'ai une erreur générale ODBC au refresh dns le code suivant :

Code :

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

1
2
3
4
5
6
    With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DRIVER={Microsoft ODBC for Oracle};UID=information;PWD=information;SERVER=mon_serveur;", _
        Destination:=Range("A2"))
        .CommandText = Array("Connection.Open")
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Connection.Close

Des idées pourquoi il y a une erreur?

Merci!

[fstrobel]

essaye comme ça

Code :

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

1
2
3
4
5
6
7
    With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DRIVER={Microsoft ODBC for Oracle};UID=information;PWD=information;SERVER=mon_serveur;", _
        Destination:=Range("A2"))
        .CommandText = Array("Connection.Open")
         .RefreshOnFileOpen = True
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Connection.Close

moi je la met a faulse par defaut mais vois avec un peut de chance ...
RefreshOnFileOpen

[aldapal]

Bon là, je commence à être désepéré.

On dirait bien que la connexion se fait, mais je ne suis pas capable de faire de

Code :

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

Selection.QueryTable.Refresh BackgroundQuery:=False

j'ai une erreur générale ODBC à cette ligne...

Des explications?

Merci!

[aldapal]

Ok, maintenant on dirait que mon poste n'aime pas faire de refresh... Voici un autre exemple :

Code :

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

1
2
3
    Sheets("Donnees Bain").QueryTables.Add "ODBC;DRIVER={Microsoft ODBC for Oracle};UID=id;PWD=pw;SERVER=serv;", Sheets("Donnees Bain").Range("A" & 102 - nDays), strSQL
    Sheets("Donnees Bain").QueryTables(1).FieldNames = False
    Sheets("Donnees Bain").QueryTables(1).Refresh BackgroundQuery:=False

où strSQL est ma requête à la BD.
Je tombe avec une erreur Générale ODBC à la ligne

Code :

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

Sheets("Donnees Bain").QueryTables(1).Refresh BackgroundQuery:=False

Au secours!!

[ruzakruzak]

C'est probablement ta requête qui comporte une erreur. Oracle est beaucoup plus sensible à la syntaxe qu'Access par exemple...

[aldapal]

en effet c'était ça. tout est beau maintenant, merci.