changer de référence à Microsoft Word xx.x library de manière dynamique en fonction de l'OS Windows 7 ou Win10
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:
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