Requête Oracle sous Excel

Version imprimable

Bonjour à tous,
L'accès à la base de donnée par Excel fonctionne.
j'utilise la macro suivante pour extraire des données Oracle, elle bloque à la ligne .Refresh BackgroundQuery:=False
Si quelqu'un peut m'aiguiller. Merci d'avance

Code:

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
Sub Lecture_base()
 
   base_de_donnees = "ODBC;DSN=TOP;UID=TOPERP;PWD=TOPERP;SERVER=TOP"
    '-------------------------------------------------------------------------
    ' lecture des parametres
    '-------------------------------------------------------------------------
 
 
    Sheets("resultat cycle").Select
    '------------------------------------------------------------------------------
    ' constitution du sql
    '-------------------------------------------------------------------------------
 
    'critere_1 = Cells(3, 2)
    'critere_2 = Cells(4, 2)
    'critere_3 = Cells(5, 2)
 
    texte_sql = " "
    For i = 1 To 50
      If Sheets("sql").Cells(i, 1) <> "" Then
         texte_sql = texte_sql & Sheets("sql").Cells(i, 1) & Chr(13) & Chr(10)
      End If
    Next i
 
    'texte_sql = Replace(texte_sql, "CRITERE_1", critere_1)
    'texte_sql = Replace(texte_sql, "CRITERE_2", critere_2)
    'texte_sql = Replace(texte_sql, "CRITERE_3", critere_3)
 
    Sheets("debug").Cells(1, 1) = texte_sql
 
    Range("A8:I2500").Select
'    Selection.QueryTable.Delete
    Selection.ClearContents
    Range("A8").Select
    'Cells(8, 1).Select
    'Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    'Selection.ClearContents
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        base_de_donnees, Destination:=Range("A8"))
        .CommandText = texte_sql
        .Name = "Commandes fournisseurs"
        .FieldNames = False
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = False 'xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
    Range("A6").Select
    Cells.Select
    Selection.Columns.AutoFit
    Range("A1").Select
End Sub

22/09/2020, 11h33
cavo789

Bonjour

Qu'est-ce qui bloque ? As-tu un message d'erreur ? Que contient texte_sql ? As-tu copié/collé la valeur de texte_sql dans une fenêtre New SQL query dans ton interface Oracle pour voir si ton query est correct et retourne des données ?

As-tu vérifié si tu as bien les bons droits pour exécuter ton query (ton user a le droit d'accéder à la DB, aux tables, ...) ?
22/09/2020, 11h47
alexis trotta

Citation:

Envoyé par cavo789

Bonjour

Bonjour CAVO789
Mes réponses ci-dessous

Qu'est-ce qui bloque ? La macro
As-tu un message d'erreur ? Oui de visual basic: Erreur d'exécution 1004 Erreur de syntaxe SQL
Que contient texte_sql ? J'ai fait un essai avec un SQL très simple
As-tu copié/collé la valeur de texte_sql dans une fenêtre New SQL query dans ton interface Oracle pour voir si ton query est correct et retourne des données ? Oui
As-tu vérifié si tu as bien les bons droits pour exécuter ton query (ton user a le droit d'accéder à la DB, aux tables, ...) ?

Oui j'ai accès à tous les objet de la base de donnée
22/09/2020, 11h54
cavo789

Citation:

Envoyé par alexis trotta

As-tu un message d'erreur ? Oui de visual basic: Erreur d'exécution 1004 Erreur de syntaxe SQL

Donc, ton SQL semble incorrect... Soit il est incorrect (erreur de syntaxe) soit ton utilisateur n'a pas les droits pour l'exécuter.
Dans Oracle, tu t'es connecté avec un username/password ? As-tu utilisé les mêmes pour Excel VBA ?

Cherche dans cette direction.

Bonne journée.
22/09/2020, 11h59
alexis trotta

Citation:

Envoyé par cavo789

Donc, ton SQL semble incorrect... Soit il est incorrect (erreur de syntaxe) soit ton utilisateur n'a pas les droits pour l'exécuter.
Dans Oracle, tu t'es connecté avec un username/password ? As-tu utilisé les mêmes pour Excel VBA ?

Cherche dans cette direction.

Bonne journée.

LE SQL d'essai: SELECT *
FROM T_FAMILLE;

Dans la deuxième ligne de la macro (base_de_donnees = "ODBC;DSN=TOP;UID=TOPERP;PWD=TOPERP;SERVER=TOP") il y a les mêmes identifiants de connexion dont je me sers pour accéder aux objets de la base de donnée.
22/09/2020, 12h14
cavo789

Ok

Tu es sûr pour ton DSN ? Il existe différente syntaxe : https://www.connectionstrings.com/oracle/

Cela fait des années que je n'ai plus utilisé de connexion ODBC (je préfère écrire directement la connexion sous forme de chaîne dans mes fichiers de config). Dans ton cas, tu précises "ODBC" et tu donnes pourtant toutes les données de connexions; cela m'interpelle un peu mais peut-être est-ce correct.

Vois les autres types de connexion, peut-être que cela vient de là.
22/09/2020, 12h21
alexis trotta

Citation:

Envoyé par cavo789

Ok

Tu es sûr pour ton DSN ? Il existe différente syntaxe : https://www.connectionstrings.com/oracle/

Cela fait des années que je n'ai plus utilisé de connexion ODBC (je préfère écrire directement la connexion sous forme de chaîne dans mes fichiers de config). Dans ton cas, tu précises "ODBC" et tu donnes pourtant toutes les données de connexions; cela m'interpelle un peu mais peut-être est-ce correct.

Vois les autres types de connexion, peut-être que cela vient de là.

Cette macro fonctionnait très bien avec une autre base de donnée Oracle dans une autre entreprise. Du coup on élimine une erreur potentielle dans le code VBA.
Le problème vient peut-être comme tu l'as dit du DSN.
Je cherche.
17/01/2022, 16h50
alexis trotta

1 pièce(s) jointe(s)

Le code fonctionne très bien, le problème se situait au niveau de la connexion entre Excel et la base de donnée Oracle.
J'ai joint un fichier modèle.