Discussion :

[DotNET74]

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

[La Praline]

Bonjour,

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

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

[DotNET74]

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à

[OhMonBato]

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.

[La Praline]

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 ???

[Invité]

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

[DotNET74]

J'ai trouvé !!

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

Code :

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

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 :

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

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

[La Praline]

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...