Alazrian
Messages postés4Date d'inscriptionmercredi 9 janvier 2008StatutMembreDernière intervention27 février 2008
-
27 févr. 2008 à 10:20
Alazrian
Messages postés4Date d'inscriptionmercredi 9 janvier 2008StatutMembreDernière intervention27 février 2008
-
27 févr. 2008 à 15:31
Bonjour.
Je suis actuellement en stage et j'ai créé un programme en VB6 qui utilise un tableur.
J'ai créé le code de telle façon qu'il puisse fonctionner avec Office et OpenOffice.
Pour savoir lequel des 2 tableurs lancer, je veux vérifier l'existance des dossiers "Office" et OpenOffice.org" dans Program Files.
Le problème est que le nom de ces deux dossiers comprend le numéro de version (exemple : Office10, Office12, OpenOffice.org 2.0, OpenOffice.org 2.3,...).
J'aimerais donc trouver une méthode pour vérifier la présence de ces dossiers sans avoir à noter tous les numéros de version dans la condition (Office9 Or Office10 Or ...).
Alazrian
Messages postés4Date d'inscriptionmercredi 9 janvier 2008StatutMembreDernière intervention27 février 2008 27 févr. 2008 à 15:31
Bon j'ai trouvé d'ou venait le problème, c'était tout simple en fait.
Voilà le code corrigé :
Dim rep As String
rep = Dir("c:\Program Files\Microsoft Office\Office*, vbDirectory")
If rep <> "" Then
MsgBox rep
Else
rep = Dir("c:\Program Files\OpenOffice.org*", vbDirectory)
If rep <> "" Then
MsgBox rep
Else
MsgBox "Rien"
End If
End If
End
Le newbie
Messages postés200Date d'inscriptionmardi 17 octobre 2006StatutMembreDernière intervention24 mars 20122 27 févr. 2008 à 11:39
Salut,
Une solution pourraît être de parcourir le répertoire program files et de récupéré tous les répertoire contenant le mot "Office". Et pour finir tu stocke dans une collection ou un tableau tous tes chemins.
Par exemple (désolé c'est du .Net)
Dim Collect as new collection
'Parcour les répertoires
For
Each Repertoire
As
String
In Directory.GetDirectories("C:\Program Files")
If Repertoire.contains("Office")
Collect.add(Repertoire)
End If
NextA chaque fois que tu vas stocker la variable Repertoire, tu enregistres ("C:\Program Files\Office10") par exemple.
Alazrian
Messages postés4Date d'inscriptionmercredi 9 janvier 2008StatutMembreDernière intervention27 février 2008 27 févr. 2008 à 15:25
Bon j'ai réussi à trouver un système mais il ne fonctionne qu'à moitié : en effet il arrive à détecter quand OpenOffice est installé mais pas Office.
Je n'arrive pas à trouver mon erreur :
Dim rep As String
rep = Dir("c:\Program Files\Microsoft Office\Office*")
If rep <> "" Then
MsgBox rep
Else
rep = Dir("c:\Program Files\OpenOffice.org*", vbDirectory)
If rep <> "" Then
MsgBox rep
Else
MsgBox "Rien"
End If
End If
End