creation d'un organigramme via OrgCWiz à partir d'une table access en VBA

[yoddin]

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

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 ")