[VBA-E] comment faire net send en VBA

salut a tous
voila, j'aimerais pouvoir faire du netsend a partir d'un petit userform avec
1 listbox pour les destinataires.
1 zone e text pour l'ecriture du message.
et le tout sans afficher la fenetre dos

alors Comment codé cette commande?
ps : est il possible de recuperer directement le nom des pc connecté sur le reseau ou je doit les ecrire dans une page excel qui servira a mon listbox.



merci beaucoup

Citation:

---

alors Comment codé cette commande?

---

en consultant tout simplement la :faq: de ce forum (les exemples ne manquent pas... et tu n'es pas nouveau ici...)

Citation:

---

ps : est il possible de recuperer directement le nom des pc connecté sur le reseau ou je doit les ecrire dans une page excel qui servira a mon listbox.

---

quel réseau ? externe ou interne ? :cry:

en ce qui concerne le reseau , c 'est un reseau interne
en fait j'aimerais recuperer les adresses ( nom des pc) comme dans outlook comme :pc1 - pc2 si possible.

pour net send , ce qui me pose probleme , c'est de memoriser mon choix de destinataire et message , le code en lui meme pour l'envoie est simple , mais comment lui dire que le choix ds le listbox = destinataire.

merci

Pour celà aussi : en recherchant un peu, on trouve des quantités d'exemples sur ce forum :
Voilà un lien, entre autres :
http://www.developpez.net/forums/vie...ghlight=reseau

alors voila , j'ai chercher un peu partout et suivi les liens mais c'est trop compliquer , ce que j'aimerais c'est trouvé une fonction de type :

Code:

---

1 2 3

sub bouton1_click () shell(net send & listbox.value & "textbox.value") End sub

---

mais je n'arrive pas a codé exactement .
merci de votre aide

Il y a alors la fonction BaguetteMagique (adaptable à tous les cas de figure et sans rien coder ni rien chercher à comprendre du tout). Elle est préférable à la fonction EcrireLeCodeDeMaFonctionAmaPlace ! :wink:
Il y a aussi, pour ceux que l'écriture de code rébute, les outils tous faits que l'on trouve pour pas cher partout ! :idea:

et ben j'ai connu mieux comme aide :x
donc je clos le sujet car tes remarques me paraissent hors sujet.
Avant de juger , et mettre tt le monde ds le meme panier , tu devrais connaitre les gens .

sur ce si qqun est volontaire pour m'expliquer je suis preneur, sinon merci qd meme jmfmarques pour le temps passé a me faire de l'ecriture, mais qui ne correspond en rien au sujet.

merci

Citation:

---

Envoyé par zouille

alors voila , j'ai chercher un peu partout et suivi les liens mais c'est trop compliquer , ce que j'aimerais c'est trouvé une fonction de type :

sub bouton1_click ()
shell(net send & listbox.value & "textbox.value")
End sub

mais je n'arrive pas a codé exactement .
merci de votre aide

---

il te faut bouger les ""...

Code:

---

1 2 3 4

sub bouton1_click () Shell ("net send " & ListBox & " " & TextBox) End sub

---

super bbil
merci a toi.

bon
je viens de tester sur le reseau et rien ne se passe .
il n'y a pas d'erreur vba ,mais je ne vois pas la fenetre dos s'ouvrir ( comme qd on tappe directement net send dans l'invite de commande)

serait ce une erreur dans le code , je pense qu'il faudrait peut etre mettre "cmd" dans le code

shell ( cmd & "net send" & combobox & textbox)
qu'en pense tu

merci a toi