Comment choisir automatiquement une classe et/ou une référence (librairie) dans VBA Excel

Bonjour,

J'ai remarqué que certaines classes ont été remplacées ou supprimées dans une référence (librairie) identique selon la version de Windows.

Dans mon cas je publie sur plusieurs ordinateurs (Windows 7, Windows 8) un classeur (Excel 2007) avec des macros. J'utilise dans mes macros la classe MSXML2.DOMDocument.
Sur mon ordinateur de développement j'ai sélectionné la référence (librairie) Microsoft XML, 6.0 qui contient la classe MSXML2.DOMDocument mais sur Windows 8 cette classe n'existe plus dans cette référence, je dois, soit changer de classe MSXML2.DOMDocument60, soit changer la référence Microsoft XML, 5.0.

J'aimerais savoir :
- Est-il possible de choisir automatiquement (par code) une classe ou une référence spécifique ?
- Comment connaitre les différence entre les classes ? Dans mon cas MSXML2.DOMDocument et MSXML2.DOMDocument60

Merci d'avance de vos réponses et salutations
Stéphane

Bonjour,
Supprime définitivement la référence et fais comme ça

Code:

---

1 2	dim xmlDoc as Object Set xmlDoc=CreateObject("MSXML2.DOMDocument")

---

Cette méthode utilisera l'api installé sur ta machine quelque que soit sa version!

Bonjour,

:D Merci ça fonctionne !

Mais... j'ai deux questions suite à cette solution :
- Peut on connaitre la provenance (référence choisie par le système) de la classe ?
- Est ce que la classe MSXML2.DOMDocument retournée par CreateObject sera identique (membres, méthodes, ...) sur différents systèmes ? Ou, est-ce qu' il y a un risque de comportement différent ?

Et... un peu moins important... Etant donné que mon object est du type Object et plus MSXML2.DOMDocument je perd l'autocomplémentation lorsque j'écris le code, est-ce qu'il y a moyen de le récupérer ?

Stéphane

Non pas de changement.

l'autocomplémentation n'est utile quand phase de développement, il suffit d'écrire de la même manière que tu as fait et de modifier avant la livraison de l'application!

Code:

---

1 2	dim xmlDoc as MSXML2.DOMDocument 'as Object Set xmlDoc=CreateObject("MSXML2.DOMDocument")

---

Merci beaucoup :D

Stéphane