bonjour

je souhaite générer automatiquement un organigramme visio (2007) à partir d'une table sous access 2007. La manip fonctionne très bien avec l'assistant mais ça ne fonctionne pas du tout en vba en utilisant la macro OrgCWiz. J'ai lu plusieurs poste sur le net. J'utilise le script ci-dessous mais j'obtiens le message : cannot connect to the data source. je ne comprends pas. Quelqu'un a t'il une idée?


merci d'avance

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
20
21
22
strCommand = "/DATASOURCE=" & strDS & ",TABLE=" & strTable & ",DBQUALIFIER= " & strFile _
& " /NAME-FIELD=" & strID _
& " /UNIQUEID-FIELD=" & strID _
& " /MANAGER-FIELD=" & strMG _
& " /FIRSTNAME-FIELD=" & strFID _
& " /DISPLAY-FIELDS=" & strDisplayFields _
& " /CUSTOM-PROPERTY-FIELDS=" & strPropertyFields _
& " /SYNC-ACROSS-PAGES " _
& " /HYPERLINK-ACROSS-PAGES " _
& " /SHAPE-FIELD=" & strSFD _
& " /LINK-TO-DB"
 
objAddOn.Run ("/S-INIT")
 
Dim cmdArray, i
cmdArray = Split(strCommand, "/")
For i = LBound(cmdArray) To UBound(cmdArray)
'MsgBox ("champ n°" & i & " : " & cmdArray(i))
objAddOn.Run ("/S-ARGSTR /" + cmdArray(i))
Next
 
objAddOn.Run ("/S-RUN ")