Bonjour à tous,

j'essaye de créer une macro sous VBA Word utilisant une base de données sous sql server.

voici mon code:
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
16
17
18
19
 
 
Private Sub CommandButton1_Click()
 
    Dim appOffice As OfficeDataSourceObject
    Dim intCount As Integer
 
    Set appOffice = Application.OfficeDataSourceObject
    appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=SQLSRV;" & _
        "UID=juridique;PWD=XXX;DATABASE=GestionJur", bstrTable:="Produit"
 
    With appOffice.Columns
        For intCount = 1 To .Count
            MsgBox "Column Name: " & .Item(intCount).Name
        Next
    End With
 
 
End Sub
lors de l'execution, j'aobtiens une erreur "Méthode ou membre de données introuvable (erreur 461)" sur le .OfficeDataSourceObject de Set appOffice = Application.OfficeDataSourceObject

faut-il que je déclare quelque chose?

pour info, je suis sous office 2003 et win 2000 sp4

merci d'avance