Discussion :

[Boulatwo]

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,

[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

[Boulatwo]

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 :

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

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?

[Qwazerty]

Bonjour,

C'est ce que je pense avoir fait:

Code :

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

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.

[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

[Boulatwo]

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 :

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

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

[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 :

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

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

[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 :

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

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

@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