Discussion :

[meolimo]

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 :

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

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

[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

[cerede2000]

Bonjour à tous,

"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.

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

[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

[parmi]

Salut Clément,
Battu de vitesse ...

[meolimo]

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

[kiki29]

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

Code :

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

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

[cerede2000]

Curieux car j'ai également un O2k10 x64 sur mon PC W7 et je n'ai pas le souci.

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

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

[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

[cerede2000]

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é