[VB][VBA] Savoir si une application est installée

Bonjour,

Pour les besoins de mion application, je souhaiterais savoir si une application (Word, Excel etc..) est installé sur la machine.

de ce fait, je peut ouvrir le fichier avec l'application et ainsi ne pas provoquer d'erreur...

Merci

Bonjour,

Outre le fait que nous citons la même expression d'Einstein dans notre signature :king: ,

je crainds de ne pas avoir très ien compris ce que tu entends par "installé"...
Pourrais-tu préciser s'il te plait ?
D'avance merci

Cordialement




~~ La Praline ~~
... un choco "on comprend rien..."

en fait,

J'ai une application dans laquelle je crée des liens sur des fichiers de toutes sortes et dans ma société, tout les utilisateurs n'ont pas forcément la même installation.

Exemple:

Un utilisateur A peut avoir MS Project alors qu'un utilisateur B ne l'aura pas.

De ce fait, si l'utilisateur B double click sur le lien d'un fichier MS Project il y a ura plantage !

Voilà

C'est depuis ton appli VB que l'utilisteur clique sur les liens ?
Si oui, il suffit d'intercepter l'erreur que va te retourner VB je pense.

Bonjour,

En effet je comprend mieux maintenant. Merci de ta précision.

Concernant ton problème, je me demandais de quelle manière les poste de ton entreprise sont organisés...

j'entends par là que si tous ont eu le même type d'installation(par exemple qu'un programme se trouve forcément dans "c:\Program Files\...") tu pourrait te servir d'une variable vérifiant si tel ou tel chemin existe ou pas, te donnant ainsi le programme installé ou pas...


Peut être existe-il des astuces plus "jolies", moins "bourrins"... Mon idée n'est pas à prendre comme argent comptant(ni à prendre avec des pincettes d'ailleurs...)...
En espérant t'avoir aidé...


Cordialement



~~ La Praline ~~
... un choco bourrinus crétinus ???

Bonjour

Voici un exemple trouvé sur la FAQ Access,

http://access.developpez.com/faq/?pa...l#ExcelInstall

Je te conseille la premiére en faisant un appel automation, en fait il s'agit d'une gestion d'erreur comme l'a écrit OhMonBato.

A la place d'Excle, tu peux mettre Word, ...

Devrais fonctionner en VB6

Starec

J'ai trouvé !!

En utilisant cette API on peut retrouver le chemin de l'application correspondante à un fichier.

Code:

---

Public Declare Function FindExecutableA Lib "shell32.dll" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long

---

La fonction qui va bien:

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Function FindExecutable(s As String) As String Dim i As Integer, s2 As String s2 = String(256, 32) & Chr$(0) i = FindExecutableA(s & Chr$(0), vbNullString, s2) If i > 32 Then FindExecutable = VBA.Left$(s2, VBA.InStr(s2, VBA.Chr$(0)) - 1) Else FindExecutable = "NotFound" End If End Function

---

Voilà, si NotFound application pas installée....

Merci pour votre aide

Mon idée n'était pas si bourin que ça finalement...

Content que cela fonctionne.

Bonne continuation.


Cordialement



~~ La Praline ~~
... un choco pas si bourinus crétinus...