Vérification de la version Excel et chargement de library via code VBA

Version imprimable

27/01/2020, 11h31
Boulatwo

Vérification de la version Excel et chargement de library via code VBA

Bonjour,

J’utilise un fichier excel partagé en réseau par 3 utilisateurs avec 2 versions d’excel différentes :
- 2007 (12.0.6787.5000) SP3 MSO (12.0.6785.5000) 32 bits
ET
- 2016 (16.0.4954.1000) MSO (16.0.4939.1000) 32 bits

Jusqu’à présent (version 2007), lors de l’utilisation de ce fichier les library suivantes sont requises :
- Microsoft Outlook 12.0 Object Library,
- Microsoft Word 12.0 Object Library,

Lorsque l’on utilise la version 2016 les bibliothèques suivantes sont insérées par défaut (automatiquement) sans problème:
- Microsoft Outlook 16.0 Object Library,
- Microsoft Word 16.0 Object Library,
Malheureusement, en retournant ensuite sur une version 2007, il recherche la version 16.0 qui évidement n’existe pas… et donc génère un bug.

Je peux recharger manuellement les bibliothèques 12.0 pour régler le problème mais j’aimerai savoir si, par le code, on peut lui faire charger la bibliothèque ad hoc en fonction de la version.

En vous remerciant par avance,
27/01/2020, 12h19
Qwazerty

Late Binding

Salut

Pour une mise en exploitation, il vaudrait mieux faire du late binding. C'est à dire déclarer ta variable en objet puis au sein du code, définir à quel type d'instance elle fait référence.
J'utilise de préférence le early binding (en utilisant les référence proposées dans Outil) durant la phase de développement pour avoir l'autocomplétion du code. Mais une fois la structure du code réalisé, il vaut mieux pour éviter les problèmes de version, passer sur du Late Binding.

++
Qwaz
27/01/2020, 12h46
Boulatwo

Lieu de déclaration ?
Citation:

Envoyé par Qwazerty

Salut

Pour une mise en exploitation, il vaudrait mieux faire du late binding. C'est à dire déclarer ta variable en objet puis au sein du code, définir à quel type d'instance elle fait référence.
J'utilise de préférence le early binding (en utilisant les référence proposées dans Outil) durant la phase de développement pour avoir l'autocomplétion du code. Mais une fois la structure du code réalisé, il vaut mieux pour éviter les problèmes de version, passer sur du Late Binding.

++
Qwaz

Bonjour,

C'est ce que je pense avoir fait:
Code:

1 2 3 4 Dim wrdApp As Object [...] Set wrdApp = CreateObject("Word.Application")
mais si je ne charge pas la library 12.0 ou 16.0 il génère un bug. Est ce un problème de portée de mes variables?
27/01/2020, 13h01
Qwazerty
Citation:
Envoyé par Boulatwo

Bonjour,

C'est ce que je pense avoir fait:

Code:

1 2 3 4 Dim wrdApp As Object [...] Set wrdApp = CreateObject("Word.Application")

mais si je ne charge pas la library 12.0 ou 16.0 il génère un bug. Est ce un problème de portée de mes variables?
Oui c'est ça, la code s'arrête sur quelle ligne?
Il n'y a pas besoin d'activer les références avec ce type d'écriture.
27/01/2020, 13h23
Philippe Tulliez

Bonjour,
Comme l'a signalé Quaz, que je salue au passage, pour éviter les problèmes il est préférable d'utiliser le Late Binding.
Cependant pour profiter des avantages du Earcly Binding et notamment l'IntelliSense il est possible d'utiliser la compilation conditionnelle
J'ai justement écrit ce week-end un billet sur le sujet titré La compilation conditionnelle ou comment développer en EarlyBinding et distribuer en late binding

Citation:

Envoyé par Qwazerty

Oui c'est ça, la code s'arrête sur quelle ligne?
Il n'y a pas besoin d'activer les références avec ce type d'écriture.

Rebonjour,

Le code s'arrête sur wdGoToBookmark:
Code:

1 2 3 4 5 6 7 Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Open(Wchemin) wrdApp.Selection.GoTo What:=wdGoToBookmark, Name:="FUSSPECIAL" 'coller au signet wrdApp.Selection.PasteSpecial DataType:=wdPasteText
Merci pour votre aide

Salut

Et oui logique puisque c'est une constante et que la déclaration de cette constante est faite dans les références.

Deux solutions,
tu remplaces le nom de constante par sa valeur.
Tu dois aussi pouvoir en utilisant la méthode donnée par Philippe, déclarer ce nom de constante (avec la valeur associée) dans le cas ou IsLateBinding est true

[Edit]
@Philippe : ça pourrait être intéressant de traiter ce cas dans ton billet peut-être
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 ' Compilation conditionnelle #If IsLateBinding Then Dim appWrd As Object Dim wrdDoc As Object Set appWrd = CreateObject("Word.Application") Const wdGoToBookmark = -1 #Else ' Phase de test ' Nécessite le référencemant de Microsoft Word xx.n Object Library Dim appWrd As Word.Application Dim wrdDoc As Word.Document Set appWrd = New Word.Application MsgBox "Phase de test EarlyBinding" #End If
Non testé
[/Edit]
++
Qwaz

27/01/2020, 14h54
Philippe Tulliez
Bonjour,
C'est tout à fait normal, les constantes préfixées wd sont des constantes Word non reconnues si on utilise le LateBinding
Tu dois les déclarer et leurs assigner une valeur lorsque tu utilises le LateBinding

SI tu as lu le billet que j'ai référencé dans ma première réponse, voici une exemple ci-dessous (à placer en tête de module)
Code:

1 2 3 #If IsLateBinding Then Const wdGoToBookmark = -1 #End If
[EDIT]
Désolé Qwaz, j'étais en train de rédiger ma réponse et n'ai vu la tienne qu'après avoir l'avoir envoyée

Citation:

@Philippe : ça pourrait être intéressant de traiter ce cas dans ton billet peut-être

Oui, je vais l'ajouter.dans l'après-midi

Déclaration des variables

Citation:
Envoyé par Qwazerty
Salut

Et oui logique puisque c'est une constante et que la déclaration de cette constante est faite dans les références.

Deux solutions,
tu remplaces le nom de constante par sa valeur.
Tu dois aussi pouvoir en utilisant la méthode donnée par Philippe, déclarer ce nom de constante (avec la valeur associée) dans le cas ou IsLateBinding est true

[Edit]
@Philippe : ça pourrait être intéressant de traiter ce cas dans ton billet peut-être
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 ' Compilation conditionnelle #If IsLateBinding Then Dim appWrd As Object Dim wrdDoc As Object Set appWrd = CreateObject("Word.Application") Const wdGoToBookmark = -1 #Else ' Phase de test ' Nécessite le référencemant de Microsoft Word xx.n Object Library Dim appWrd As Word.Application Dim wrdDoc As Word.Document Set appWrd = New Word.Application MsgBox "Phase de test EarlyBinding" #End If
Non testé
[/Edit]
++
Qwaz
Bonjour,

En effet, j'ai déclaré les variables par leurs valeurs et tout fonctionne nickel (pour l'instant ;-) ) ,... mais j'ai pas encore tout vérifié,...
Code:

1 2 3 4 Public Const wdPasteText = 2 Public Const wdGoToBookmark = -1
Merci beaucoup pour votre aide

Bonjour,
Je viens de me rendre compte que dans l'exemple que j'avais donné, je n'avais pas typé la constante. C'ets évidemment hautement conseillé

Exemple corrigé (à placer en tête de module)
Code:

1 2 3 4 5 6 7 8 9 10 Option Explicit ' Constante de compilation ' True Late Binding ' False Early Binding ' Nécessite le référencemant de Microsoft Word xx.n Object Library #Const IsLateBinding = True ' #If IsLateBinding Then Public Const wdGoToBookmark As Long = -1 #End If
Pour connaître le type d'une constante, il suffit dans Word ou dans excel avec la référence de la bibliothèque de taper dans la fenêtre d'exécution

Code:

? TypeName(wdGoToBookmark)

Pour info, voir la liste des constantes WdGoToItem avec leurs valeurs