Discussion :

[J1]

Bonjour,

je me pose une question sur l'objet Shell de la bibliothèque Windows Script Host Object Model (bibliothèque bien sûr cochée dans les Références de mon projet).

Lorsque je souhaite déclarer un objet Shell (voire le créer via le mot-clef New), je dois passer par la bibliothèque suivante :

Code :

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

Dim oshell As New IWshRuntimeLibrary.WshShell

Mais lorsque je souhaite créer l'objet via un CreateObject, je dois passer par cette bibliothèque-ci :

Code :

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

Set oshell = CreateObject("WScript.Shell")

Pourquoi deux bibliothèques et dénominations différentes pour le même objet ?

A noter que, si j'essaie d'intervertir les deux dénominations (utiliser WScript.Shell dans le cadre d'un Dim et IWshRuntimeLibrary.WshShell dans le cadre d'un CreateObject), j'ai les erreurs suivantes :

Code :

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

Dim oshell As WScript.Shell

=> Erreur de compilation : Type défini par l'utilisateur non-défini

Code :

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

Set oshell = CreateObject("IWshRuntimeLibrary.WshShell")

=> Erreur d'exécution '429': un composant ActiveX ne peut pas créer d'objet


J'y perds un peu mon latin...

Merci d'avance pour vos lumières !

[patricktoulon]

bonjour la reponse est simple
on appele ca latebinding ou earlybinding

Code :

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

set blala=createobject("wscript.shell")

C'est du late binding(declaration tardive)
avec ce mode tu n'est pas obligé de cocher la reference dans ton projet
fait une recherche sur ces deux expressions

[kiki29]

Salut, qqs infos ici ou là : Early ou Late Binding

[J1]

Tout d'abord, merci pour vos réponses.
En fait, je connais les concepts de late et d'early binding. Ce que je ne comprends pas, c'est la raison pour laquelle je ne peux pas faire appel à la même bibliothèque pour mon Dim et pour mon CreateObject.

[Marc-L]

Bonjour,

parce que Windows est conçu ainsi pardi !

Ne pas confondre le nom dans la bibliothèque et son nom d'ActiveX référencé dans la Base de Registres …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[J1]

parce que Windows est conçu ainsi pardi !

Mais imaginons que je veuille déclarer puis créer (explicitement) un Recordset ADO, je procède ainsi :

Code :

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

1
2
Dim rst1 As ADODB.Recordset
Set rst1 = CreateObject("ADODB.Recordset")

Je fais appel à la même bibliothèque pour mon Dim et mon CreateObject, ce qui semble évidemment logique.

Alors pourquoi, pour l'objet Shell de la bibliothèque WScript, dois-je procéder ainsi ?

Code :

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

1
2
Dim oshell As IWshRuntimeLibrary.WshShell
Set oshell = CreateObject("WScript.Shell")

[Marc-L]

J'y ai pourtant déjà répondu …     Plein de choses intéressantes dans la Base de Registres !

Au passage je ne me rappelle pas d'avoir déclaré comme cela le WShShell en déclaration anticipée,
mais là ne pouvant le vérifier …

[patricktoulon]

re
MarcL t'a tres bien repondu
ton code

Code :

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

1
2
Dim oshell As IWshRuntimeLibrary.WshShell
Set oshell = CreateObject("WScript.Shell")

traduction de ton code

Code :

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

1
2
Dim oshell As lalibrairie
Set oshell = CreateObject("lalibrairie")

tu vois ou ca coince

il arrive cependant que certaines librairies est besoins de la reference cochée meme en late binding sans doute ont elles été ajoutées avec les mises a jour window ou instalation logicielles tiers et sont mal encapsullée dans les dlls

[J1]

Je me permets d'insister car je ne comprends décidément pas votre réponse.

Je vous demande pourquoi l'objet Shell doit être appelé de deux manières différentes en fonction de l'instruction concernée (Dim / CreateObject) et vous me répondez que "Windows est conçu ainsi".
Vous comprendrez que cela me laisse un peu sur ma faim

Vous évoquez la base de registre, suis-je censé y trouver le lien entre la dénomination IWshRuntimeLibrary.WshShell et la dénomination WScript.Shell ?

En vous remerciant par avance pour vos lumières.

[Marc-L]

je dois passer par la bibliothèque suivante :

Code :

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

Dim oshell As New IWshRuntimeLibrary.WshShell

Pourquoi déclarer ainsi au lieu de directement l'objet concerné ?

Sinon d'un côté il y a une référence nommée d'une certaine manière et de l'autre un objet ActiveX nommé d'une autre …

[J1]

je dois passer par la bibliothèque suivante :

Code :

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

Dim oshell As New IWshRuntimeLibrary.WshShell

Pourquoi déclarer ainsi au lieu de directement l'objet concerné ?

Parce que, comme je l'indiquais dans mon premier post, si je déclare mon objet en tant que WScript.Shell, j'ai l'erreur suivante :

Erreur de compilation : Type défini par l'utilisateur non-défini

D'où la création de ce topic.

[Marc-L]

Code :

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

Dim oshell As WScript.Shell

=> Erreur de compilation : Type défini par l'utilisateur non-défini

Normal !   L'objet n'existe pas dans la référence …

L'autre bonne déclaration directement sur le bon objet :   Dim oShell As New WshShell   …