Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access contenu zone de liste en boucle ?????

contenu zone de liste en boucle ?????

17 réponses
Avatar
LOU
bonjour
j'ai une zone de liste1 avec 4 noms
louis
jean
pol
andre
quand je selectionne un nom dans ma liste
avec une comande sur clik j'execute ce code:
qui envoi un message sur le resau (a la personne choisie)

Dim send As String
computer = Liste1.ItemData(Liste1.ListIndex)
send = "net send " & computer & " " & Text1

cela fonctionne tres bien

j'aimerais que lorsque je mets true une case a cocher

qu'il envoie le message a tous les noms qui sont dans la zone de liste1
genre de boucle ????
sais pas comment faire
merci de votre aide
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Raymond [mvp]
bonjour.

à ma connaissance on ne peut pas mettre plusieurs destinataires sur le send
sauf à mettre /users ou * qui envoie à tous les utilisateurs windows et non
à ta liste.
fait un essai en séparant les noms par une , mais je doute fort que ça
marche.
sinon il faut envoyer autant de messages que de noms sélectionnés dans la
liste.
Dim I As Variant
For Each I In Me.Liste1.ItemsSelected
send = "net send " & Me!Liste1.Selected(I) & " " & Text1
Next I
pas besoin de case à cocher.
à vérifier tout ça.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"LOU" a écrit dans le message de
news:41346227$0$318$
bonjour
j'ai une zone de liste1 avec 4 noms
louis
jean
pol
andre
quand je selectionne un nom dans ma liste
avec une comande sur clik j'execute ce code:
qui envoi un message sur le resau (a la personne choisie)

Dim send As String
computer = Liste1.ItemData(Liste1.ListIndex)
send = "net send " & computer & " " & Text1

cela fonctionne tres bien

j'aimerais que lorsque je mets true une case a cocher

qu'il envoie le message a tous les noms qui sont dans la zone de liste1
genre de boucle ????
sais pas comment faire
merci de votre aide





Avatar
LOU
bonjour raymond

en effet j'ai essaié ton code mais ça marche pas

en fait voici le code copié sur un form en vb6
qui lui fonctionne tres bien en vb6

et j'essaie de l'adapter en access 2000 j'y arrive pas
si tu pouvais jeter un oeil

Dim strLine(100) As String
Dim computer As String
Dim x As Integer

Dim i As Integer
For i = 4 To x - 2
send = "net send " & strLine(i) & " " & Text1
Shell (send)
Next i

MsgBox "Message envoyé à tous les PC du réseau ", vbInformation, "Envoyé"

merci

"Raymond [mvp]" a écrit dans le message de
news: #
bonjour.

à ma connaissance on ne peut pas mettre plusieurs destinataires sur le
send

sauf à mettre /users ou * qui envoie à tous les utilisateurs windows et
non

à ta liste.
fait un essai en séparant les noms par une , mais je doute fort que ça
marche.
sinon il faut envoyer autant de messages que de noms sélectionnés dans la
liste.
Dim I As Variant
For Each I In Me.Liste1.ItemsSelected
send = "net send " & Me!Liste1.Selected(I) & " " & Text1
Next I
pas besoin de case à cocher.
à vérifier tout ça.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"LOU" a écrit dans le message de
news:41346227$0$318$
bonjour
j'ai une zone de liste1 avec 4 noms
louis
jean
pol
andre
quand je selectionne un nom dans ma liste
avec une comande sur clik j'execute ce code:
qui envoi un message sur le resau (a la personne choisie)

Dim send As String
computer = Liste1.ItemData(Liste1.ListIndex)
send = "net send " & computer & " " & Text1

cela fonctionne tres bien

j'aimerais que lorsque je mets true une case a cocher

qu'il envoie le message a tous les noms qui sont dans la zone de liste1
genre de boucle ????
sais pas comment faire
merci de votre aide










Avatar
Raymond [mvp]
c'est exactement la même chose, je n'ai pas mis le shell évidemment.

Dim I As Variant
For Each I In Me.Liste1.ItemsSelected
strSend = "net send " & Me!Liste1.Selected(I) & " " & Text1
Shell strSend, ........
Next I
il ne faut pas d'espace dans les noms , sinon faut rajouter des "" avant et
après.
ne pas nommer une variable "send"
ça donne quoi maintenant.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"LOU" a écrit dans le message de
news:41346e94$0$4071$
bonjour raymond

en effet j'ai essaié ton code mais ça marche pas

en fait voici le code copié sur un form en vb6
qui lui fonctionne tres bien en vb6

et j'essaie de l'adapter en access 2000 j'y arrive pas
si tu pouvais jeter un oeil

Dim strLine(100) As String
Dim computer As String
Dim x As Integer

Dim i As Integer
For i = 4 To x - 2
send = "net send " & strLine(i) & " " & Text1
Shell (send)
Next i

MsgBox "Message envoyé à tous les PC du réseau ", vbInformation, "Envoyé"



Avatar
LOU
Dim I As Variant
For Each I In Me.Liste1.ItemsSelected
strSend = "net send " & Me!Liste1.Selected(I) & " " & Text1
Shell strSend, ........ bug ici
quoi metre apres la virgule
je suis debutant
merci
Next I

"Raymond [mvp]" a écrit dans le message de
news:
c'est exactement la même chose, je n'ai pas mis le shell évidemment.

Dim I As Variant
For Each I In Me.Liste1.ItemsSelected
strSend = "net send " & Me!Liste1.Selected(I) & " " & Text1
Shell strSend, ........
Next I
il ne faut pas d'espace dans les noms , sinon faut rajouter des "" avant
et

après.
ne pas nommer une variable "send"
ça donne quoi maintenant.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"LOU" a écrit dans le message de
news:41346e94$0$4071$
bonjour raymond

en effet j'ai essaié ton code mais ça marche pas

en fait voici le code copié sur un form en vb6
qui lui fonctionne tres bien en vb6

et j'essaie de l'adapter en access 2000 j'y arrive pas
si tu pouvais jeter un oeil

Dim strLine(100) As String
Dim computer As String
Dim x As Integer

Dim i As Integer
For i = 4 To x - 2
send = "net send " & strLine(i) & " " & Text1
Shell (send)
Next i

MsgBox "Message envoyé à tous les PC du réseau ", vbInformation,
"Envoyé"









Avatar
Raymond [mvp]
c'sst pour gérer la fenêtre, c'est facultatif:
Shell strSend
ou
Shell strSend, vbHide
ou
Shell strSend, vbNormalFocus
etc...
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"LOU" a écrit dans le message de
news:4134779b$0$4087$
Dim I As Variant
For Each I In Me.Liste1.ItemsSelected
strSend = "net send " & Me!Liste1.Selected(I) & " " & Text1
Shell strSend, ........ bug ici
quoi metre apres la virgule
je suis debutant
merci
Next I


Avatar
LOU
bon ça ne marche toujours pas
je ne comprends pas pourquoi en vb6 c'est ok

c'est pas grave
encore merci pour ton aide

"Raymond [mvp]" a écrit dans le message de
news:
c'sst pour gérer la fenêtre, c'est facultatif:
Shell strSend
ou
Shell strSend, vbHide
ou
Shell strSend, vbNormalFocus
etc...
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"LOU" a écrit dans le message de
news:4134779b$0$4087$
Dim I As Variant
For Each I In Me.Liste1.ItemsSelected
strSend = "net send " & Me!Liste1.Selected(I) & " " & Text1
Shell strSend, ........ bug ici
quoi metre apres la virgule
je suis debutant
merci
Next I






Avatar
Raymond [mvp]
ne marche pas ne suffit pas pour comprendre.

qu'est-ce qui ne marche pas ? récupères-tu bien tes sélections ? le shell
est-il bien exécuté ? y-a-t-il des messages d'erreur ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"LOU" a écrit dans le message de
news:41348a6d$0$328$
bon ça ne marche toujours pas
je ne comprends pas pourquoi en vb6 c'est ok

c'est pas grave
encore merci pour ton aide


Avatar
LOU
hi
non pas de message d'erreur

j'ai l'impression qu'il ne selectionne pas les noms dans la liste
je ne sais envoyer le message qu'a une personne

or avec vb6 si je coche l'option je sais envoyer sur tout les pc du reseau
(qui sont dans la liste) en une seule fois
je ne comprends pas parceque je ne suis pas tres expert

encore merci

"Raymond [mvp]" a écrit dans le message de
news:
ne marche pas ne suffit pas pour comprendre.

qu'est-ce qui ne marche pas ? récupères-tu bien tes sélections ? le shell
est-il bien exécuté ? y-a-t-il des messages d'erreur ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"LOU" a écrit dans le message de
news:41348a6d$0$328$
bon ça ne marche toujours pas
je ne comprends pas pourquoi en vb6 c'est ok

c'est pas grave
encore merci pour ton aide






Avatar
Raymond [mvp]
si c'est la liste on va y arriver.
fais ceci:
Dim I As Variant
For Each I In Me.Liste1.ItemsSelected
strSend = "net send " & Me!Liste1.Selected(I) & " " & Text1
msgbox strsend
Next I
est-ce que tu affiches bien toutes tes sélections et est-ce que le message
est bon ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"LOU" a écrit dans le message de
news:41349584$0$341$
hi
non pas de message d'erreur

j'ai l'impression qu'il ne selectionne pas les noms dans la liste
je ne sais envoyer le message qu'a une personne

or avec vb6 si je coche l'option je sais envoyer sur tout les pc du reseau
(qui sont dans la liste) en une seule fois
je ne comprends pas parceque je ne suis pas tres expert

encore merci


Avatar
LOU
j'ai mis ton code sur clik d'une commande

et voila ce que j'obtiens dans le msgbox
1er msg
net send -1 uuuuuu (uuuu= message)

2eme msg
net send -1 uuuuuu (uuuu= message)

3eme msg
net send -1 uuuuuu (uuuu= message)

or dans ma liste j'ai
angelique
domi
luigi
?????????????? la est le probleme
pourtant j'ai bien selectionné les trois noms dans la liste
(qui est bien en selection multiple)
désolé de t'embeter avec ça en principe ça doit aller tout seul ce truc
comprends pas !!!!

"Raymond [mvp]" a écrit dans le message de
news:
si c'est la liste on va y arriver.
fais ceci:
Dim I As Variant
For Each I In Me.Liste1.ItemsSelected
strSend = "net send " & Me!Liste1.Selected(I) & " " & Text1
msgbox strsend
Next I
est-ce que tu affiches bien toutes tes sélections et est-ce que le message
est bon ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"LOU" a écrit dans le message de
news:41349584$0$341$
hi
non pas de message d'erreur

j'ai l'impression qu'il ne selectionne pas les noms dans la liste
je ne sais envoyer le message qu'a une personne

or avec vb6 si je coche l'option je sais envoyer sur tout les pc du
reseau


(qui sont dans la liste) en une seule fois
je ne comprends pas parceque je ne suis pas tres expert

encore merci






1 2