Discussion :

[fabdirt]

Bonjour
j'ai créé une macro qui m'ouvre un fichier (solidworks en l’occurrence), ça marche parfaitement sur différent logiciel type excel, pdf.
Mais quand je lui demande de m'ouvrir un fichier solidworks, il me relance systématiquement solidworks (ce qui est tres long) au lieu de m'ouvrir le fichier toute suite.

j'ouvre mes fichiers par la commande:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.FollowHyperlink cible2 ' cible2 etant le chemin complet

quelqu'un a til une solution svp.

[Invité]

Bonjour,
Ça va sens dire mais ca va toujours mieux en le disant, tu as solidworks installé sur ta machine?

Si tu as déjà une instance solidworks ouverte regardes du côté de getobject

[patricktoulon]

bonsoir
un peu comme workbooks.open pour excel

pour cela il faudrait que tu te renseigne si l'application fourni les api

ou si il y a la possibilité de lancer en ligne de commande(bath/cmd)
auquel cas en vba la commande shell sur cmd avec les commandes en arguments

[Invité]

Bonjour, et Bonjour Patrick,
solidworks est un logiciel de Cao, mais c'est une usine à gaz comme Catia!

Ça démarre au starter alors quand le moteur est chaud plus question de l'éteindre.

Mais ça ce manipule avec creatovject mais surtout getobject.

[fabdirt]

merci de vos réponses ça fait plaisir. oui j'ai bien solidworks et effectivement il est tres long a ouvrir.
je n'ai jamais utiliser "getobject " comme cela peut il marcher?
si solidworks n'est pas ouvert va til me l'ouvrir avant ? si il est deja ouvert va til ouvrir simplement le fichier demander?
dois faire un "si soliworks ouvert" alors .... sinon ....?

[Invité]

On peut considérer solidworks comme déjà ouvert et si il ne l'est pas l'ouvrir!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function Opensolidworks() as Object
On error resume Next
Set Opensolidworks=getobject(,"solidworks.application")
If err<>0 then
Err.clear
Set Opensolidworks=creatobject("solidworks.application")
End if
On error toto 0
Opensolidworks.visible=True
End function
Sub test
Set slk=Opensolidworks
Set doc=slk.documents.open(mydoc)
End sub