Bien le bonjour !

Je possède un bout de code qui fonctionne et qui me permet de me connecter à une base de donnée odbc :

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
 
 
Tiers = Range("B2").Value
 
' Active la requête
With Selection.QueryTable
    .Connection = Array(Array( _
    "ODBC;DSN=crkp.world;UID=user;PWD=motdepasse;DBQ=CRKP.WORLD;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessf" _
    ), Array("ul;NUM=NLS;DPM=F;MTS=F;MDI=F;CSR=F;FWC=F;FBS=60000;TLO=0;"))
    .CommandText = Array( _
    "SELECT PAR.INT_KEY,PAR.NAME,PAR.VORNAME,PAR.STRASSE,PAR.ORT FROM KO.PAR PAR WHERE PAR.INT_KEY=" & "'" & Tiers & "'")
    .SavePassword = True
End With
 
ActiveWorkbook.RefreshAll
Malheureusement je suis trop novice en requête SQL pour comprendre comment je pourrais avoir le/les résultat(s) de cette commande dans une variable.

Un petit coup de main ?

Merci d'avance !