Dim swApp as Object On local Error Resume Next Set swApp = GetObject(, "SldWorks.Application") On local Error Goto 0 If Nothing Is swApp Then '# Aucune instance trouvée... '# Effectuer un lancement classique Else '# Manipuler ton instance swApp pour charger ton fichier End If