Discussion :

[lstoitchev]

Bonjour,

Je veux ouvrir une page web via VBA sous Excel à partir d'un userForm.
J'ai créé un bouton pour cela. L'ouberture de cette page est en fait une commande pour envoyer un sms.

Cela marche bien mais en fin compte le sms est envoyé deux fois. Je ne sais pas pourquoi et je ne sais pas comment le limiter à une seule fois. je pense que la requête de l'ouverture de la page est exécutée deux fois mais je ne suis pas sûr.

Est-ce que vous pouvezm'aider s'il vous plaît!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub SEND_Click()
 
Dim strWebsite As String, strSendNum As String, strReceiveNum As String, strSMS As String, strCommandSendSms As String
 
strSendNum = SendNumber.Text
strReceiveNum = ReceiverNumber.Text
strSMS = SMS_Text.Text
 
strWebsite = "https://www.sendsms.com/myaccount/sendsms.php?username=xxxxx&password=xxxxx&from=" & strSendNum & "&to=" & strReceiveNum & "&text=" & strSMS
 
ActiveWorkbook.FollowHyperlink Address:=strWebsite, NewWindow:=True
 
Unload Me
 
Exit Sub

[Daniel.C]

Bonjour,

Ton code semble correct. Fais une exécution ligne à ligne pour voir si d'autres macros n'interfèrent pas.