comment detecter si word ou excel ou outlook est installé?

Version imprimable

11/08/2006, 00h27
minette

comment detecter si word ou excel ou outlook est installé?

Salut encore mes question de :aie: :oops: !

je souhaite savoir si on peut par code sachant que les racine change qq fois ( c:\ ou h:\ ou J:\) si word ou excel ou outlook sont installé par code vb6 ?

:( :? :cry:

Merci pour les idees aides et conseils !
11/08/2006, 01h24
zazaraignée

Salut

Une fois installé, un programme Microsoftien s'arrange pour être dans le Path... Heu, au fait, y'a toujours un Path sous WinXP? Car sinon, ce que j'allais proposer ne tient plus...

Tout de même: Essaie de le lancer avec Shell ou ShellExecute et s'il y a une erreur... Gestion d'erreur.

bonjour

tu peux tester

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command1_Click()
    Dim appWord As Object
    Dim Resultat As String
 
    On Error Resume Next
    Set appWord = CreateObject("Word.Application")
 
    If appWord Is Nothing Then
        MsgBox "Word n'est pas installé"
        Else
        Resultat = "Word est installé" & vbLf & _
        "Version: " & appWord.Version & vbLf & _
        "Build: " & appWord.Build & vbLf & "Code produit: " & _
        appWord.ProductCode()
 
        MsgBox Resultat
    End If
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command2_Click()
    Dim appOut As Object
    Dim Resultat As String
 
    On Error Resume Next
    Set appOut = CreateObject("Outlook.Application")
 
    If appOut Is Nothing Then
        MsgBox "Outlook n'est pas installé"
        Else
        Resultat = "Outlook est installé" & vbLf & _
        "Version: " & appOut.Version & vbLf & _
        "Code produit : " & appOut.ProductCode()
 
        MsgBox Resultat
    End If
 
End Sub

bonne journée
michel

Citation:

Envoyé par SilkyRoad

bonjour

tu peux tester

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command1_Click()
    Dim appWord As Object
    Dim Resultat As String
 
    On Error Resume Next
    Set appWord = CreateObject("Word.Application")
 
    If appWord Is Nothing Then
        MsgBox "Word n'est pas installé"
        Else
        Resultat = "Word est installé" & vbLf & _
        "Version: " & appWord.Version & vbLf & _
        "Build: " & appWord.Build & vbLf & "Code produit: " & _
        appWord.ProductCode()
 
        MsgBox Resultat
    End If
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command2_Click()
    Dim appOut As Object
    Dim Resultat As String
 
    On Error Resume Next
    Set appOut = CreateObject("Outlook.Application")
 
    If appOut Is Nothing Then
        MsgBox "Outlook n'est pas installé"
        Else
        Resultat = "Outlook est installé" & vbLf & _
        "Version: " & appOut.Version & vbLf & _
        "Code produit : " & appOut.ProductCode()
 
        MsgBox Resultat
    End If
 
End Sub

bonne journée
michel

Merci a vous , jessai ce code tout de suite !:oops:

Auriez vous aussi une idee sur comment tuer un process excel car
quand je fait la desallocation memoire avec Appxl = nothing il run tjr :(

11/08/2006, 17h56
Phifi
Citation:

Auriez vous aussi une idee sur comment tuer un process excel car
quand je fait la desallocation memoire avec Appxl = nothing il run tjr

Appxl est à priori l'instance du programme, tu dois également tenir compte du document que tu as créé après l'instance (que j'ai nommé ici Docxl pour rester cohérent)

Exemple :
Code:

1 2 3 4 5 6 Docxl.Close SaveChanges:=0 '/ quitter sans sauvegarder Appxl.Quit ' Set Docxl = Nothing Set Appxl = Nothing
11/08/2006, 18h24
minette
Citation:
Envoyé par Phifi

Appxl est à priori l'instance du programme, tu dois également tenir compte du document que tu as créé après l'instance (que j'ai nommé ici Docxl pour rester cohérent)

Exemple :

Code:

1 2 3 4 5 6 Docxl.Close SaveChanges:=0 '/ quitter sans sauvegarder Appxl.Quit ' Set Docxl = Nothing Set Appxl = Nothing
exact j'avais oublié de le mentionner je le tue aussi
mais rien , excel est encore dans les processus running :(

merci