Bonjour à tous,
j'essaye de créer une macro sous VBA Word utilisant une base de données sous sql server.
voici mon code:
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
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
faut-il que je déclare quelque chose?
pour info, je suis sous office 2003 et win 2000 sp4
merci d'avance
Partager