Microsoft 365 et Office | Excel | Pour la maison | Windows
Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(108.80000000000001, 78%, 20%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ED%3C/text%3E%3C/svg%3E)
Bonjour,
Effectivement...
Cordialement.
Daniel
Script.Network
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Anonyme
Bonjour
Quelle référence faut il cocher pour WScript.CreateObject("WScript.Network")
Microsoft 365 et Office | Excel | Pour la maison | Windows
Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.
Réponse acceptée par l’auteur de la question
Réponse acceptée par l’auteur de la question
Anonyme
Bonjour,
Un peu de lecture sur ce site de Microsoft http://support.microsoft.com/kb/279164
La référence à ajouter est : "Windows ScriptHost Object Control". Quand tu l'ajoutes, cela te donne accès dans l'explorateur d'objets (raccourci clavier : F2) dans la fenêtre VBA d'Excel. Dans la liste déroulante "Toute bibliothèque", tu sélectionnes la bibliothèque "IWshRuntimeLibrary" et dans la section du bas, tu as la liste des objets, propriétés et méthodes appartenant à cette bibliothèque.
Un Exemple de déclaration des variables lorsque tu as chargé la bibliothèque :
Dim objNetwork As IWshRuntimeLibrary.WshNetwork
Set objNetwork = New IWshRuntimeLibrary.WshNetwork
MsgBox objNetwork.ComputerName
Une autre façon sans procéder à la déclaration de la bibliothèque. Cependant, cette approche demande de connaître par cœur les objets de ladite bibliothèque
Dim X As Object
Set X = CreateObject("WScript.Network")
MsgBox X.ComputerName
6 réponses supplémentaires
Trier par : Le plus utile
-
Anonyme
2014-08-01T17:44:27+00:00 Et que veux-tu que je te réponde? Moi, j'ai accès à Windows 7 ou Windows /8.1.
Tu charges cette référence et regardes par la suite dans l'explorateur d'objets de la fenêtre VBA d'Excel.
Dans la liste déroulante, "toute bibliothèque" devrait s'ajouter le nom de la bibliothèque. Dans l'exemple de code que j'ai donné, tu remplaces "IWshRuntimeLibrary" par le nom de la bibliothèque. C'est aussi possible que le nom des objets soit différent... je ne suis pas en mesure de vérifier!
Dim objNetwork As IWshRuntimeLibrary.WshNetwork
Set objNetwork = New IWshRuntimeLibrary.WshNetwork
MsgBox objNetwork.ComputerName
-
Anonyme
2014-08-01T13:49:42+00:00 J'ai "Windows Script Host Object model" mais pas Windows "ScriptHost Object Control"
-
Anonyme
2014-08-01T08:45:58+00:00 Bonjour
Quelle référence faut il cocher pour WScript.CreateObject("WScript.Network")
Bonjour Fredo P. ,
Peut-être les deux liens suivants peuvent être utiles:
http://www.microsoft.com/en-gb/download/details.aspx?id=8247
e
http://www.philippursglove.com/VB/binaries/UsingWSH.pdf
Je regrette que les deux liens sont en anglais.
===
Regards,
Norman