Détecter si Office365 est installé

Bonjour à tous,

Je bloque complètement sur ceci :

Dans le cadre d'un projet utilisant les cartes bing sur Excel (fonctionnalité propre à Office365), j'aimerai avoir qqs lignes de codes qui détectent si Office365 est installé déterminer la suite de la macro. Mais j'ai l'impression que c'est impossible. Les application.version etc. ne fonctionne pas!

Je n'ai pas de fichier test car je n'ai rien. Peut-être scanner les noms des fichiers dans le répertoire d'installation pour détecter si O365 apparaît?

Merci pour votre aide,

Mastolo

Pour contourner ce problème, on pourrait tester le nom des fichiers présents dans un répertoire qui contiennent le mot O365. Mais je n'arrive pas faire un test directement sur le nom en évitant de copier les noms dans le classeur excel, des idées?

Sub ListingFichiers()

Dim Rep As String, Fichier As String
Dim i As Integer

Rep = "C:\Program Files (x86)\Microsoft Office\root\Licenses16\"
Fichier = Dir(Rep)

 Do While Fichier <> ""
    i = i + 1
    Sheets("Sheet1").Range("A" & i) = Fichier
    Fichier = Dir
 Loop

End Sub

Bonjour

Il suffit d'analyse Fichier au lieu de l'écrire dans une cellule.

Tu peux aussi chercher *O365* pour aller plus vite : un seul résultat suffit...

"C:\Program Files (x86)\Microsoft Office\root\Licenses16\*O365*"