[CLoS] [VBA] - Utilisation .dqy sur base Oracle [Résolu]

jordane45 20565 Messages postés mercredi 22 octobre 2003Date d'inscriptionContributeurStatut 20 avril 2018 Dernière intervention - 13 janv. 2014 à 11:43 - Dernière réponse : jordane45 20565 Messages postés mercredi 22 octobre 2003Date d'inscriptionContributeurStatut 20 avril 2018 Dernière intervention
- 30 janv. 2014 à 14:47
Bonjour,

J'essaie de résoudre un souci rencontré par des collègues...

Auparavant sur des Postes en XP (avec un office 2003 je crois), ils sont désormais passés sous Seven et Office 2010.

Le souci c'est que maintenant, une de leur macro, utilisant un fichier .dqy pour établir une connexion à une BDD Oracle ne fonctionne plus.

Le fichier .dqy contient la chaine de connexion :

XLODBC" & vbCrLf & _
"1" & vbCrLf & _
"DRIVER=Oracle dans OraClient10g_home1;DATABASE=laBDD;UID=leuserid;PWD=lepassword"

Ainsi que la requête à exécuter.

Le souci se produit dans le bloc witdh :
   cnx = "FINDER;" & ActiveWorkbook.Path & "\requete.dqy"
    Debug.Print cnx
    Worksheets(Feuille_Export).Activate
    With ActiveSheet.QueryTables.Add(Connection:= _
       cnx, _
        Destination:=Worksheets(Feuille_Export).Range("A2"))
        .Name = "requete"
        .FieldNames = False
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With


=> La macro plantant sur la ligne du .Refresh ( j'ai testé sans le BackgroundQuery:=False sans résultat )

Message d'erreur :
Erreur d'execution '1004'
Erreur générale ODBC



Auriez-vous une idée de la cause du problème ?

Savez-vous, si pour utiliser une connexion de ce type (via un fichier .dqy) il est nécéssaire de paramétrer un driver ODBC ?

Par avance, merci de votre aide.



Avant de poser une question, merci de lire la charte du site.
Cordialement,
Jordane
Afficher la suite 

1 réponse

Répondre au sujet
jordane45 20565 Messages postés mercredi 22 octobre 2003Date d'inscriptionContributeurStatut 20 avril 2018 Dernière intervention - 30 janv. 2014 à 14:47
0
Utile
Cloture de la discussion.

A défaut d'obtenir une réponse à cette question je suis passé sans le .dqy via un recordset.
Commenter la réponse de jordane45

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.