requetes

Exemple (ne pas oublier d'ajouter les références ADO nécerssaires) :

Sub Test()

Dim CurCell As Range
Dim i As Integer
Dim line As Integer

Set c = New ADODB.Connection
Set r = New ADODB.Recordset

c.Open
"Provider=sqloledb;SERVER=MY_SQL_SERVERMY_SQL_INSTANCE;DATABASE=MY_DATABASS
E;User Id=My_User;Password=My_Password"
r.ActiveConnection = c

CurCell.Offset(0, 0).Value = "Fiscal Year"
CurCell.Offset(0, 1).Value = "Competence"

' Desactive la mise à jour de l'écran
Application.ScreenUpdating = False

' Récupération des données
r.Open "my_ProcedureStockee"
line = 1
Do
line = line + 1
ActiveSheet.Cells(line, 1).Select

CurCell.Offset(line, 0).Value = r("YEAR")
CurCell.Offset(line, 1).Value = r("COMPETENCE")

r.MoveNext
Loop Until r.EOF

r.Close
c.Close

' Reactive la mise à jour de l'écran
Application.ScreenUpdating = True
ActiveSheet.Cells(1, 1).Select

End Sub




"urgent" <urgent@discussions.microsoft.com> wrote in message
news:4017BE07-2953-46BF-9064-4C7C2DA67CB2@microsoft.com...

Bonjour,

Sur access, nous pouvons faire des requetes SQL pour récuperer des
informations de deux tables qui sont en relation.

mais avec exel peut on faire des choses équivalentes si oui comment?

Si tu veux continuer de recevoir des réponses, c'est urgent que tu
changes de nom. Et puis, moi, dans OE, je fais Message - Bloquer
l'expéditeur, et je ne saurai plus ce que tu as d'urgent.

Désolé, je croyais que tu voulais depuis Excel attaquer une base de données
SQL et non pas définir une base de données dans Excel !!!

Phil.

"Philippe [MS]" <ptrotin@online.microsoft.com> wrote in message
news:#vKHesMxEHA.3276@TK2MSFTNGP15.phx.gbl...

Exemple (ne pas oublier d'ajouter les références ADO nécerssaires) :

Sub Test()

Dim CurCell As Range
Dim i As Integer
Dim line As Integer

Set c = New ADODB.Connection
Set r = New ADODB.Recordset

c.Open

"Provider=sqloledb;SERVER=MY_SQL_SERVERMY_SQL_INSTANCE;DATABASE=MY_DATABASS

E;User Id=My_User;Password=My_Password"
r.ActiveConnection = c

CurCell.Offset(0, 0).Value = "Fiscal Year"
CurCell.Offset(0, 1).Value = "Competence"

' Desactive la mise à jour de l'écran
Application.ScreenUpdating = False

' Récupération des données
r.Open "my_ProcedureStockee"
line = 1
Do
line = line + 1
ActiveSheet.Cells(line, 1).Select

CurCell.Offset(line, 0).Value = r("YEAR")
CurCell.Offset(line, 1).Value = r("COMPETENCE")

r.MoveNext
Loop Until r.EOF

r.Close
c.Close

' Reactive la mise à jour de l'écran
Application.ScreenUpdating = True
ActiveSheet.Cells(1, 1).Select

End Sub




"urgent" <urgent@discussions.microsoft.com> wrote in message
news:4017BE07-2953-46BF-9064-4C7C2DA67CB2@microsoft.com...

Bonjour,

Sur access, nous pouvons faire des requetes SQL pour récuperer des
informations de deux tables qui sont en relation.

mais avec exel peut on faire des choses équivalentes si oui comment?