Discussion :

[Aurel51]

Bonjour à tous,

En essayant de lancer une macro sous Excel permettant d'ouvrir un nouveau document Visio et d'y tracer des formes, selon le pc je suis confronté à des erreurs (tous sous Excel 2010). L'erreur survient sur ma ligne en surlignant "app_visio" avec ce message "Mécanisme de bibliothèque d'objets non géré" :

Code :

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

1
2
 
Set app_visio = CreateObject("Visio.Application")

En regardant le programme et en testant, je me suis rendu compte que 2 déclarations différentes donnaient le même résultat

Code :

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

1
2
3
 
Dim app_visio As Visio.Application
Set app_visio = CreateObject("Visio.Application")

Code :

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

1
2
3
 
Dim app_visio As Object
Set app_visio = CreateObject("Visio.Application")

Y a-t-il une différence significative sur le fonctionnement du programme entre ces deux méthodes ? Est ce que ça pourrait être une source d'erreur en fonction du poste sur lequel la macro est lancée ?

Merci d'avance pour votre aide,

Bonne journée

[Marc-L]

Bonjour,

la première en liaison anticipée (Early Binding) est plus efficace,
encore faut-il ajouter la librairie correspondante aux Références du projet (via le menu Outils) …

La deuxième est en liaison tardive (Late Binding) et n'a pas besoin d'une référence cochée.

Voir la fiche Comprendre Early ou Late Binding …

Lorsqu'un applicatif migre sur différents ordinateurs, préférence vers la liaison tardive.

[EngueEngue]

la seule difference c'est que si tu déclares comme visio application tu pourras utiliser l'autocomplétion en codant... c'est à dire que l'éditeur vb va te cherche ce que tu peux mettre comme propriété quand tu mets un point

Ex: range("A1").C va t'afficher une petite fenêtre avec Copy ...

[Aurel51]

Merci Marc je vais y jeter un coup d'oeil. l'erreur de "mécanisme de bibliothèque d'objets non géré" peut donc effectivement découler de cette déclaration ?

Et merci EngueEngue pour cette précision, en fait ça peut être bien de faire la 1ère déclaration pendant le codage et à la fin de basculer sur la 2ème déclaration avant la publication du fichier pour utilisation.

[Marc-L]

peut-être pour l'erreur (j'ai un doute à cause du message)

et tout à fait pour le développement en liaison anticipée puis passage en liaison tardive pour le déploiement de l'applicatif.

[Aurel51]

Merci beaucoup pour ces explications rapides et claires ! à moi de jouer pour corriger tout ça.

Bonne journée

[EngueEngue]

Pas vu le réponse de marc qui est bien sûr plus précise que la mienne comme d'habitude.

Sorry

Cependant si tu utilises des fonctions de la reference visio... tu devras les activer sur les postes lors du déploiement que ce soit déclaré comme objet ou comme visio.application

[Aurel51]

Mais vu que je transmet le fichier, les références activées sont liées au fichier si j'ai bien vu en transmettant le fichier sur d'autres postes. Avec la méthode de Late Binding je viens d'essayer même sur un poste ayant Excel 2003 et ça fonctionne parfaitement sans toucher aux références

[Invité]

+1 avec les réponses de Marc-L.

J'utilise aussi de manière générale ce genre de déclaration (As Object) lorsque je fait appel à une référence qui ne fait pas parti des 4 références de base:
- VBA
- Excel
- stdole
- Office

Enumérable par (à faire dans un project neuf):

Code :

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

1
2
3
4
5
 
Dim ItemRef As Object ' ou plus généralement As Variant
For Each ItemRef In Application.ThisWorkbook.VBProject.References
    Debug.Print ItemRef.Name
Next

Egalement, faire appel à TypeName plutôt que typeOf peut éviter d'appeler par exemple dans le cas d'un MSForm:

Code :

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

1
2
If TypeOf a Is MSForms.ToggleButton Then
If TypeName(a) = "ToggleButton" Then 'cas ne nécessitant pas de référence