Objet de type WshShell

Version imprimable

Bonjour à tous

Je me vois transmettre la responsabilité d'un fichier excel qui contenant du code VBA programmer par un ancien employé.

Il y a un bug initiale au moment de la compilation et tout porte a croire à une référence manquante.
Code:

1 2 3 4 5 6 7 8 9 10 Sub PLUMprint() Dim objshell As WshShell Set objshell = CreateObject("WScript.Shell") objshell.Run """C:\TN3270 Plus v4.0.4 Evaluation\TN3270.exe""" & _ "/session Justice /script C:\Users\ddulong9\Desktop\plumitif\SCRIPTS\PrintRSLTS.txt" End Sub
Erreur de compilation
Type définit par l’utilisateur non défini

J ai cherché sur différente ressource sur le net concernant l’objet de type WshShell
Selon vous est-ce bien lié au référence ?

Merci à l’avance

11/04/2016, 23h02
clementmarcotte

Bonjour,

À l'oeillomètre.

"WScript.Shell" vient avec Windows Scripting Host. Les versions plus récentes de VBA exigent de cocher la référence aux objets externes même quand on utilise CreateObject. Dans ce cas, tu devrais vérifier si la référence à Microsoft Scripting Runtime est cochée. Si la référence n'est pas disponible, il resterait deux choses à faire:

Vérifier avec le Service de Dictature Informatique si l'utilisation des scripts est permise sur ta machine. (Paraîtrait que c'est possible.)

Télécharger et installer le programme:

https://www.microsoft.com/en-us/down...s.aspx?id=8247
11/04/2016, 23h03
parmi

Bonjour,

Si tu vas dans les références du programme au niveau de l'IDE, tu devrais voir une référence manquante.
En fait, tu dois faire référence à Windows Script Host Object Model
11/04/2016, 23h04
parmi

Salut Clément,
Battu de vitesse ...
11/04/2016, 23h23
meolimo

EFFICACITÉ !!!

:roll: Merci a vous deux, Clément tu m’impressionne. Tout semble facile j'aimerais développer cette aisance.

Salut, curieux ici sous 2007 cela fonctionne, par exemple pour du pdf

Code:

1
2
3
4
5
6
7
8
 
Sub Tst()
Dim sFichier As String, WsShell As Object
    sFichier = "C:\Faq\Faq VBA\Exemples\PDF\PdfCreator\catalogue Pivotage.pdf"
    Set WsShell = CreateObject("WScript.Shell")
    WsShell.Run "AcroRd32 " & sFichier
    Set WsShell = Nothing
End Sub

12/04/2016, 07h42
cerede2000

Bonjour à tous,

Citation:

Envoyé par clementmarcotte

"WScript.Shell" vient avec Windows Scripting Host. Les versions plus récentes de VBA exigent de cocher la référence aux objets externes même quand on utilise CreateObject. Dans ce cas, tu devrais vérifier si la référence à Microsoft Scripting Runtime est cochée.

??????????

Les quelles ?
Que ce soit sous Office2k16 x32/x64 sur W7 et Office2k16 x32/x64 sur W10 j'utilise CreateObject sans cocher les références et ça fonctionne comme avant.
12/04/2016, 21h06
clementmarcotte

Sur mon Office 2010 64 bits, c'est comme cela. Impossible d'utiliser automation sans cocher les références.

Bon, c'est peut-être dû à option explicit que je n'utilise pas, ou c'est peut-être un cadeau externe ajouté par Visual Studio (.net) qui n'aime pas vraiment le Late Binding.
12/04/2016, 21h09
cerede2000

Curieux car j'ai également un O2k10 x64 sur mon PC W7 et je n'ai pas le souci.
12/04/2016, 23h28
mromain

Bonsoir à tous,

La différence vient de la déclaration.
En early binding, on peut le déclarer en tant qu’Object ou le déclarer en tant que WshShell pour profiter de l’auto-complétion. On peut l’instancier au choix avec CreateObject ou New.
En late binding, il faut le déclarer en tant qu’Object et l’instancier avec CreateObject.

On ne peut pas en late binding déclarer un type d'objet "précis" et utiliser ce même type avec la commande New. Ça bloque à la compilation car la référence n'est pas incluse au projet, et du coup le projet ne connait pas le type d'objet.

A+
13/04/2016, 03h23
clementmarcotte

Merci pour l'information. En fait j'ai l'habitude de ne pas utiliser as Object ou as variant, sauf si c'est vraiment impossible de faire autrement. Et cela c'est rare.
13/04/2016, 04h01
parmi

L'idéal, c'est de déclarer As Object et d'utiliser CreateObject.
Ça évite des problèmes de compatibilité entre les différentes versions de contrôles, librairies,...
Et ça arrive pas mal souvent.

Par contre, au moment du développement, c'est bien utile de créer des références pour l'usage de l'Intellisense
13/04/2016, 07h57
cerede2000

Citation:

Envoyé par clementmarcotte

Merci pour l'information. En fait j'ai l'habitude de ne pas utiliser as Object ou as variant, sauf si c'est vraiment impossible de faire autrement. Et cela c'est rare.

@clementmarcotte : Ah d'accord !
En fait si tu utilise CreateObject c'est justement pour ne pas mettre les références, donc si tu type ta variable tu perds ce gain et tu est effectivement obligé de mettre les références.

CreateObject => Variable de type Object
Sinon référence => Variable typé :)