ouvrir dwg avec access 97 vers TrueView2010

[pros2i]

Bonjour à tous,

 

J'ai un programme fonctionnant avec 'access 97' qui permet d'ouvrir des fichier Autocad.

 

Avec Autocad2010 je n'ai pas de problème, j'arrive à ouvrir des fichiers dwg en mode 'SDI=1' c'est à dire un fichier autocad à la fois.

 

Avec TrueView2010 : je n'y arrive pas, je suis obligé de quitter TrueView2010 et de relancer 'TrueView2010 avec un fichier dwg'

 

Voici mon code

      Case "VIEWR2010"
           NomFichier = Path_Fichier & Nom & ".Dwg"
           Path_VIEWR2010 = DLookup("PATH", "[bd Path]", "DESIGNATION = ""VIEWR2010""")
               
           'Ferme le précédent "DWG TrueView"
           Canal = DDEInitiate(DDEInit, "System")
           DDEExecute Canal, "_quit "
          
           DDETerminate Canal
           DDETerminateAll
          
           'Lance en direct "DWG TrueView" + le fichier
           Shell """" & Path_VIEWR2010 & """ " & NomFichier, vbMaximizedFocus
           AppActivate "DWG TrueView 2010"
           Exit Function

 

Merci

 

Pat

[pros2i]

Bonjour,

 

Aucune piste pour m'aider !

 

Peut-être sur un autre site ?

 

Merci

 

Pat