Probléme VBA Word et SQL server
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:
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
