VBA et sybase

Hi,

I'm starting with vba and I need some help. I try to make a request from excel VBA to get datas from sybase tables.

That's the begining of the code :

Private Sub CommandButton1_Click()

Dim extractfixed As Range

Dim extractvar As Range

Dim extractoffre As Range

Dim req1 As String

Set extractfixed = Range("b7:b110")

Set extractvar = Range("c7:c110")

Set extractoffre = Range("d7:d110")

Range("b6") = "Activ contracts fixed rate"

Range("c6") = "Activ contracts variable rate"

Range("d6") = "Contracts Approved"

Set commandstring = ("select top 100 k_contrat from dossiers")

Me.QueryTables(1).Connection = "ODBC;DSN=TESTXL;UID=sa;PWD=xxx;NA=db-ppd-si,5000;DB=OMEGA"

Me.QueryTables(1).CommandText = commandstring

and many different problems occures

Thanks very much for help

Bonjour,

Comme ce forum est un forum francophone, je réponds en français

ne disposant pas d'une db sybase ni d'un driver odbc pour sybase, je ne peux pas tester la proposition suivante.

pour que ceci fonctionne il faut

avoir installé un driver odbc pour sybase

avoir défini le dsn : TESTXL

et espérer que la syntaxe de connexion et de query est valable pour sybase.

Private Sub CommandButton1_Click()

Set extractfixed = Range("b7:b110")
Set extractvar = Range("c7:c110")
Set extractoffre = Range("d7:d110")
Range("b6") = "Activ contracts fixed rate"
Range("c6") = "Activ contracts variable rate"
Range("d6") = "Contracts Approved"
sqlstring = ("select top 100 k_contrat from dossiers")

connstring= "ODBC;DSN=TESTXL;UID=sa;PWD=xxx;NA=db-ppd-si,5000;DB=OMEGA"
With ActiveSheet.QueryTables.Add(Connection:=connstring, _ 
        Destination:=Range("B7"), Sql:=sqlstring) 
    .Refresh 
End With
end sub

edit: ajout des balises code

bonsoir

Pardon je ne savais pas que ce forum etait en francais, je n'ai pas de probleme sur la connexion sybase, je veux simplement recuperer des donnees des tables ou de la table dossiers dans une base sybase. Avec par exemple un select all from dossiers

Pardon reponse un peu trop rapide, cela marche. Merci beaucoup pour ce coup de main.