[Toutes versions] Liste des applications pour CreateObject

[pio_killer]

Bonjour

Je voudrais savoir où trouver la liste des application avec leur nom afin de l'utiliser avec "CreateObject".

En fait, je veux utiliser la fonction "CreateObject" pour pallier au problème de version d'office descendante.
En effet, si je fait une macro qui ouvre Word et que je suis sous office 2007, la référence à rajouter est "Microsoft Word 12.0 Object.Library"
Or si une personne se trouve sous un office inférieur, cela ne marchera plus.

Par exemple, voici un code qui sauvegarde un modèle word en un document word.
Avec la référence "Microsoft Word 12.0 Object.Library":

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub OuvreWordAvecRef()
 
'Activer la référence "Microsoft Word xx Object.Library"
 
Dim appWord As Word.Application
Dim PageWord As Word.Document
Dim PathModelWordFile As String
Dim PathWordFile As String
Dim WordFile As String
 
'On prend les chemins
PathModelWordFile = "D:\test"
PathWordFile = "D:\test"
 
'Création d'un nom de fichier pour sauvegarde
WordFile = PathWordFile & "\" & "\testWord" & ".doc"
 
'Création du document à partir d'un modèle
FileCopy PathModelWordFile & "\" & "modèle.dot", WordFile
 
'On ouvre Word
Set appWord = New Word.Application
Set PageWord = appWord.Documents.Open(WordFile)
 
'Désactive le correcteur d'orthographe
appWord.ActiveDocument.ShowSpellingErrors = False
 
appWord.visible = True
 
End Sub

Sans la référence "Microsoft Word 12.0 Object.Library":

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub OuvreWordSansRef()
Dim appWord As Object
Dim PathModelWordFile As String
Dim PathWordFile As String
Dim WordFile As String
 
 
'On prend les chemins
PathModelWordFile = "D:\test"
PathWordFile = "D:\test"
 
'Création d'un nom de fichier pour sauvegarde
WordFile = PathWordFile & "\" & "\testWord" & ".doc"
 
'Création du doccument à partir d'un modèle
FileCopy PathModelWordFile & "\" & "modèle.dot", WordFile
 
'On ouvre Word
Set appWord = CreateObject("word.Application")
Set PageWord = appWord.Documents.Open(WordFile)
 
'Désactive le correcteur d'orthographe
appWord.ActiveDocument.ShowSpellingErrors = False
 
appWord.visible = True
 
End Sub

Dans le cas de word, le nom est "word.application". Pour Excel, c'est "excel.application".

Autre question : lorsqu'on ne connait pas le nom, comment est-ce qu'on fait ?

Merci d'avance pour toutes aide

[pio_killer]

J'ai essayé en mettant le nom qu'on trouve dans le gestionnaire des taches mais sans succès.

Bizzare, je pensais que c'était ça

[Arkham46]

bjr,

c'est dans la base de registre ...

http://support.microsoft.com/kb/292491

pour office, on peut forcer une version :

Code :

CreateObject("Excel.Application.11")

mais si elle n'est pas installée, ça lève une erreur

si on ne met que :

Code :

CreateObject("Excel.Application")

il va chercher dans la base de registre le CLSID qui correspond à "Excel.Application"
et dans le CLSID il trouve le chemin vers le serveur (excel.exe)

à priori pour excel c'est la dernière version installée
pour word ça semble plus compliqué (cf le lien kb du dessus)