Bonjour,

J'ai un exécutable codé en VB6.
Celui-ci doit s'exécuter aussi bien dans Windows 7 que Windows 10.
Je dois ouvrir des documents Word.
Cependant, VB6 est installé dans Windows 7.
Les librairies référencées sont :

MS Word 14 (pour Windows 7)
MS Office 15 (pour Windows 10)

Voici le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
        Dim objWord As Word.Application
        Dim DocWord As Word.Document
        Dim fichier As String
        fichier = param1        
 
        If FileExiste(fichier) Then
 
            Set objWord = CreateObject("Word.Application")   '-- ouvrir le processus Word 
            Sleep 200
            Set DocWord = objWord.Documents.Open(fichier)    '-- ouvrir le document Word
            Sleep 200
            objWord.Visible = True    '-- masquer ou non l'application Word
            Sleep 100
                Set objWord = Nothing
            Set DocWord = Nothing
 
            End If
Le problème est que lorsque l'exe tourne dans Win10, les documents word mettent 10'' (min) à s'ouvrir tandis que dans Win7, le document Word s'ouvre en 3 ou 4" !
Je pense que cela est dû au fait que le script doit chercher après la bonne librairies.
D'où ma demande :
Est-ce possible d'ajouter les références dans le code de manière dynamique en fonction de l'OS ?

merci pour votre aide

Carmelo