Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Simuler l'appui d "ENTRER" et du "o" dans une macro

6 réponses
Avatar
nesos
Bonjour,

j'ai à la fin d'une macro une boite de dialogue qui apparait à l'ecran (AVEC
OK) je voudrais savoir comment faire pour eviter d'appuyer moi même sur
"ENTRER" y a t'il un code qui permettrait cette action dans ma macro ?
De même avec une boite ou il y OUI ou NON je voudrais que la macro reponde
automatiquement OUI en simulant l'appui sur la touche "o"

Merci

6 réponses

Avatar
Garette
Bonsoir,

Si c'est une boite de dialogue "voulue" le mieux c'est de ne pas l'afficher
;-)
Si c'est une boite de dialogue générée par Excel (du genre : "voulez-vous
remplacer le fichier existant ...") il faut gérer l'évenement.

Quelle est cette boite de dialogue ?
Quel est le code qui la génère ?
Avatar
nesos
bonjour,
En fait celle avec oui ou non n'est pas une boite de dialogue excel c'est
une boite de dialogue outlook 2000. J'essai d'envoyer automatiquement des
emails le pb c'est qu'a la fin de chaque envoi cette boite apparait
m'indiquant qu'un pgr exterieur essai d'envoyer un mail et me demande si je
suis d'accord pour continuer (boite de dialogue de sécurité d'outlook) si
j'appui sur "o" le message et envoyé et cela recommence pour le second (j'ai
plus de 300 mail à envoyer !).
Pour l'autre boite c'est une boite excel que j'ai créé pour tester la
simulation d'appui sur "ENTRER" avec SendKeys "{ENTER"}, TRUE mais cela ne
fonctionne pas. Celle ci sera supprimée.

Merci, en espérant avoir une solution !

"Garette" a écrit dans le message de news:

Bonsoir,

Si c'est une boite de dialogue "voulue" le mieux c'est de ne pas
l'afficher ;-)
Si c'est une boite de dialogue générée par Excel (du genre : "voulez-vous
remplacer le fichier existant ...") il faut gérer l'évenement.

Quelle est cette boite de dialogue ?
Quel est le code qui la génère ?



Avatar
Garette
Bonjour,

Sur ce sujet, j'ai vu passer des Fil ces derniers temps :

Un des echanges interressant avait le titre : Envoi de mails à partir
d'excel
Il donnait les liens :
http://www.rondebruin.nl/sendmail.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.rondebruin.nl/sendmail.htm
http://faq.outlook.free.fr/index.htm?telechargement.htm

Il y a aussi qq chose ici : http://www.rondebruin.nl/sendmail.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.rondebruin.nl/sendmail.htm

Personnellement je ne maitrise pas ce sujet.
En recherchant sur le forum on doit trouver d'autres messages sur le sujet.



"nesos" a écrit dans le message de news:
eC$
bonjour,
En fait celle avec oui ou non n'est pas une boite de dialogue excel c'est
une boite de dialogue outlook 2000. J'essai d'envoyer automatiquement des
emails le pb c'est qu'a la fin de chaque envoi cette boite apparait
m'indiquant qu'un pgr exterieur essai d'envoyer un mail et me demande si
je suis d'accord pour continuer (boite de dialogue de sécurité d'outlook)
si j'appui sur "o" le message et envoyé et cela recommence pour le second
(j'ai plus de 300 mail à envoyer !).
Pour l'autre boite c'est une boite excel que j'ai créé pour tester la
simulation d'appui sur "ENTRER" avec SendKeys "{ENTER"}, TRUE mais cela ne
fonctionne pas. Celle ci sera supprimée.

Merci, en espérant avoir une solution !

"Garette" a écrit dans le message de news:

Bonsoir,

Si c'est une boite de dialogue "voulue" le mieux c'est de ne pas
l'afficher ;-)
Si c'est une boite de dialogue générée par Excel (du genre : "voulez-vous
remplacer le fichier existant ...") il faut gérer l'évenement.

Quelle est cette boite de dialogue ?
Quel est le code qui la génère ?







Avatar
nesos
Merci Garette pour ces liens mais je les ai déja parcouru
J'essai d'envoyer des mails de 3 manieres :

1- Avec ActiveWorkbook.SendMail Recipients:­resse, Subject:="Essai"
ET c'est là que ma boite de dialogie apparait ! avec OUI ou NON ==> je
voudrais automatiser le OUI

2- Avec la méthode CDO vu sur http://www.rondebruin.nl/sendmail.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.rondebruin.nl/sendmail.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.rondebruin.nl/sendmail.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.rondebruin.nl/sendmail.htm
Cette méthode fonctionne chez moi avec mon serveur de messagerie perso mais
je ne l'ai pas encore testé dans mon entreprise (il me faudra le nom du
serveur smtp et peut etre y aura t'il des blocage de sécurité réseau ??)

3- Avec le code suivant vu sur
http://www.vbfrance.com/codes/ENVOI-AUTOMATIQUE-MAIL-AVEC-PIECE-JOINTE-VBA-EXCEL_31545.aspx
Ci-joint une partie du code
Dim HyperLien As String ' Reçoit les éléments de l'hyperlien
' composés à partir des arguments fournis à la
procédure
Dim i As Integer ' un compteur
Dim Client As Integer

HyperLien = "mailto:" & Adresse & "?" ' Le ? introduit les arguments
HyperLien = HyperLien & "Subject=" & Objet & " (à " & Time() & ")"
HyperLien = HyperLien & "&Body=" & Corps ' le & sépare les arguments

ActiveWorkbook.FollowHyperlink HyperLien

Cette méthode ouvre outlook, insere une piece jointe et envoi le message
Cà marche avec outlook express mais j'ai un soucis avec outlook 2000

j'ai une boite de dialogue qui apparait avec le message suivant :
"L'argument de la ligne de commande n'est pas valide. Vérifiez le
commutateur que vous utilisez."
C'est quoi un commutateur ? et de quelle ligne de commande s'agit il ?
Merci

Voilà où j'en suis.

"Garette" a écrit dans le message de news:

Bonjour,

Sur ce sujet, j'ai vu passer des Fil ces derniers temps :

Un des echanges interressant avait le titre : Envoi de mails à partir
d'excel
Il donnait les liens :
http://www.rondebruin.nl/sendmail.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.rondebruin.nl/sendmail.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.rondebruin.nl/sendmail.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.rondebruin.nl/sendmail.htm
http://faq.outlook.free.fr/index.htm?telechargement.htm

Il y a aussi qq chose ici : http://www.rondebruin.nl/sendmail.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.rondebruin.nl/sendmail.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.rondebruin.nl/sendmail.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.rondebruin.nl/sendmail.htm

Personnellement je ne maitrise pas ce sujet.
En recherchant sur le forum on doit trouver d'autres messages sur le
sujet.



"nesos" a écrit dans le message de news:
eC$
bonjour,
En fait celle avec oui ou non n'est pas une boite de dialogue excel c'est
une boite de dialogue outlook 2000. J'essai d'envoyer automatiquement des
emails le pb c'est qu'a la fin de chaque envoi cette boite apparait
m'indiquant qu'un pgr exterieur essai d'envoyer un mail et me demande si
je suis d'accord pour continuer (boite de dialogue de sécurité d'outlook)
si j'appui sur "o" le message et envoyé et cela recommence pour le second
(j'ai plus de 300 mail à envoyer !).
Pour l'autre boite c'est une boite excel que j'ai créé pour tester la
simulation d'appui sur "ENTRER" avec SendKeys "{ENTER"}, TRUE mais cela
ne fonctionne pas. Celle ci sera supprimée.

Merci, en espérant avoir une solution !

"Garette" a écrit dans le message de news:

Bonsoir,

Si c'est une boite de dialogue "voulue" le mieux c'est de ne pas
l'afficher ;-)
Si c'est une boite de dialogue générée par Excel (du genre :
"voulez-vous remplacer le fichier existant ...") il faut gérer
l'évenement.

Quelle est cette boite de dialogue ?
Quel est le code qui la génère ?











Avatar
Garette
Bonsoir,

1- Avec ActiveWorkbook.SendMail Recipients:­resse, Subject:="Essai"
ET c'est là que ma boite de dialogue apparait ! avec OUI ou NON ==> je
voudrais automatiser le OUI
En téléchargeant l'outil "ClickYes" à la page

http://faq.outlook.free.fr/index.htm?telechargement.htm, j'arrive à
contourner le problème.
Ce problème est en fait lié au renforcement de la sécurité OutLook.

2 - ...
Avec le CDO effectivement ça part tout seul, il explique que ça utilise le

serveur SMTP et qu'il n'y a pas le pb de securité (le pb de sécurité existe
avec OLEAutomation ou SendMail).
J'arrive à le faire fonctionner sans pb

3 -
Je n'arrive pas à la mettre en oeuvre :-(

Je ne comprends pas comment l'executer ...
De toutes façons, les SendKeys diminue la fiabilité.


La solution 2 reste la plus efficace si tu arrives à regler le pb serveur
SMTP

Avatar
nesos
Encore merci Garette, je vais essayer avec ClickYes
"Garette" a écrit dans le message de news:

Bonsoir,

1- Avec ActiveWorkbook.SendMail Recipients:­resse, Subject:="Essai"
ET c'est là que ma boite de dialogue apparait ! avec OUI ou NON ==> je
voudrais automatiser le OUI
En téléchargeant l'outil "ClickYes" à la page

http://faq.outlook.free.fr/index.htm?telechargement.htm, j'arrive à
contourner le problème.
Ce problème est en fait lié au renforcement de la sécurité OutLook.

2 - ...
Avec le CDO effectivement ça part tout seul, il explique que ça utilise le

serveur SMTP et qu'il n'y a pas le pb de securité (le pb de sécurité
existe avec OLEAutomation ou SendMail).
J'arrive à le faire fonctionner sans pb

3 -
Je n'arrive pas à la mettre en oeuvre :-(

Je ne comprends pas comment l'executer ...
De toutes façons, les SendKeys diminue la fiabilité.


La solution 2 reste la plus efficace si tu arrives à regler le pb serveur
SMTP