Bonjour,
Mon logiciel écrit en VB6 teste la présence de Word sur un PC comme ça :
J'ai l'impression que pour les versions suivantes d'Office, Word n'est plus installé dans ces répertoires. Mais je n'ai pas accès à ces versions suivantes ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Word_Inst = False For I = 1 To 30 '--- 2017 : on en est à Office14, on prévoit jusqu'à Office30 ;-) --- If FichierExiste("C:\Program Files\Microsoft Office\Office" & I & "\winword.exe") Then Word_Inst = True If FichierExiste("C:\Program Files (x86)\Microsoft Office\Office" & I & "\winword.exe") Then Word_Inst = True If FichierExiste("C:\Program Files\Microsoft Office\root\Office" & I & "\winword.exe") Then Word_Inst = True If FichierExiste("C:\Program Files (x86)\Microsoft Office\root\Office" & I & "\winword.exe") Then Word_Inst = True Next I
Merci d'avance pour vos avis et suggestions.
Jack.
Partager