Discussion :

[babybell]

Bonjour amis du forum

Nous sommes plusieurs à nous servir de différentes macros sous Word 2000. Nous allons passer sous Word 2003, mais pas tous en même temps(ce serait trop pratique).
Existe-t-il un code pour tester, à l'ouverture d'une appli, commedans Excel, si l'on est sous 2000 ou 2003, afin de modifier automatiquement les Références VBA Project

Merci de votre aide

[Sepia]

Salut Babybell,

Le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Version

permet de connaître le n° de version de Word (mais pas la plate-forme).

@+

[babybell]

Merci Sepia, mais tu n'as pas répondu à ma question qui était de modifier automatiquement les Références VBA Project autrement que d'aller les changer manuellement ?

[Sepia]

Salut Babybell,

Non, en effet j'ai juste répondu à ta question sur la version

Existe-t-il un code pour tester, à l'ouverture d'une appli, commedans Excel, si l'on est sous 2000 ou 2003...

Pour la modification "automatique", en général dans Word, il n'y a pas de problème, les commandes sont portées de version en version. Les nouvelles options ne sont prises en compte qu'avec leurs valeurs par défaut. De plus, pour Word, il y a assez peu de différences entre le VBA pour Word 2000 et celui pour Word 2003. Donc de ce côté, a priori, pas trop de problème.

@+

[babybell]

Bonjour Sepia

Merci de ton retour.

Mes applis tournent sous Word 2000 ou 2003, et là effectivement, pas de problème.
Malheureusement, c'est que lorsque j'envoie un fichier fait sous Word 2000 ou 2003 à un prestataire, il me le renvoie en Word 2007(enfin je crois car dans les références, apparait Microsoft Office 12.0 Object Library), et là, ça coince.

Que faire ?

[Sepia]

Salut Babybell,

En effet, Office 12 est le nom initial d'Office 2007. Mais du coup, il n'y a pas de solution (enfin de solution que je connaisse ).

Le responsable de la partie Office qui connaît très bien Word 2007 pourrait peut-être d'en dire davantage mais Heureux-Oli (c'est lui dont il s'agit) prend quelques jours de repos bien mérités. Si ce n'est pas urgent et que tu puisse attendre son retour, vois directement (mais pas en message privé ) avec lui.

Désolé de ne pas pouvoir t'aider plus

@+

[babybell]

OK, je te remercie.

Bonne journée

[Heureux-oli]

Salut,

La solution est de ne pas déclarer les références mais d'utiliser des objets.

Ce qui revient à faire du latebinding au lieu du earlybinding.

Dans le earlybinding, tu ajoutes la référence au projet et ensuite tu utilises :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim xlApp As Excel.Application
 
Set xlApp = New Excel.Application

Mais comme la version est enregistrée dans le projet, si tu utilises une version inférieure, ça coince, mais ça tu le sais déjà.

Pour faire la même chose en latebinding, on ne déclare pas la librairie.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim xlApp As Object
 
Set xlApp = CreateObject("Excel.Application")

Pour ne pas me tromper dans mon code et mes appels, j'ajoute la bibliothèque pour l'écriture de mon code. Lorsque mon code est bon, je change les déclaration et affectation.
Et je supprime ensuite la bibliothèque du projet pour finir par un test.

[babybell]

Merci Heureux-oli de ton aide.

bonne soirée