Ouvrir une page web avec VBA.
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:
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 |