Msgbox vbYesNo

Hai un problema con Excel?

Nuova discussione

Msgbox vbYesNo
di alexps81 data: 16/08/2015 15:11:08
Di nuovo un buongiorno a tutti,

Una cosa molto semplice ma non so se è possibile e soprattutto come si fa:

Attraverso un Msgbox vbYesNo è possibile far sì che al click su SI allora si viene portati in un percorso assegnato e al click su NO invece si esce dalla Sub?
Oppure si deve fare solo attraverso una userform?

Grazie

di Albatros54 data: 16/08/2015 15:23:00
prova la routine sotto


    Sub Prova2()
    pippo = MsgBox("ciao! Vuoi proseguire ?", vbYesNo)
    If pippo = vbYes Then
    MsgBox "Pippo"
    Else

    MsgBox "Ciao !!!"

    End Sub

di alexps81 data: 16/08/2015 15:37:10
ho provato anch'io prima la sub che mi hai proposto ma non va bene per il mio lavore

la mia esigenza e tipo così:

pec = MsgBox("Vuoi andare nel sistema P.E.C. per la spedizone della e-mail?", vbInformation + vbYesNo, "Spedizione e-mail")
If pec = vbYes Then
pec = "percorso internet di outlook"
End If
end sub

Ho provato ma non fa nulla

di Albatros54 data: 16/08/2015 15:49:59
Non so il tuo progetto, ma il codice sotto , se tu digiti il pulsante SI lancia la userform1, che tu trovo nel tuo file.

pec = MsgBox("Vuoi andare nel sistema P.E.C. per la spedizone della e-mail?", vbInformation + vbYesNo, "Spedizione e-mail")
If pec = vbYes Then
userform1.show     'pec = "percorso internet di outlook"
End If
end sub

di alexps81 data: 16/08/2015 15:53:54
Scusa ma probabilmente ho fatto confusione nel descrivere il problema.

Dicevo, al click su un pulsante deve comparire un msgbox con la richiesta di andare o meno in un sistema di messaggistica (outlook). "Vuoi andare nel sistema P.E.C. per la spedizone della e-mail?", vbInformation + vbYesNo, "Spedizione e-mail").

Al click su SI allora devo andare al sito web di outlook altrimenti deve uscire dal msgbox
di Albatros54 data: 16/08/2015 15:59:34
Sei stato chiaro per me....credo, al posto di userform1.show inserisci l'indirizzo web di outlook senza assegnarlo alla variabile pec

di alexps81 data: 16/08/2015 16:04:26
Già fatto ma non succede nulla. Posto il codice come ho fatto.

Può essere il problema la definizione della variabile pec?

dim pec as string

     pec = MsgBox("Vuoi andare nel sistema P.E.C. per la spedizone della e-mail?", vbInformation + vbYesNo, "Spedizione e-mail")
     If pec = vbYes Then
     pec = "percorso outlook"
    
    End If
   
End Sub

di Albatros54 data: 16/08/2015 16:16:46
NON DEVI ASSEGNARE L'INDIRIZZO ALLA VARIABILE PEC, perche ha memorizzato il valore del pulsante che tu ai premuto.Ti possto il codice sotto che ti riporta ad un sito web quando schiacci il pulsante si della msgbox.
"Al click su SI allora devo andare al sito web di outlook altrimenti deve uscire dal msgbox "

Sub m()
Const URL = "www.excelvba.it"
Dim IE As Object
pec = MsgBox("Vuoi andare nel sistema P.E.C. per la spedizone della e-mail?", vbInformation + vbYesNo, "Spedizione e-mail")
If pec = vbYes Then
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate URL
IE.Visible = True

End If
End Sub

di alexps81 data: 16/08/2015 16:30:48
Perdonami purtroppo provo ma non succede nulla.

Può essere perchè io utilizzo Google chrome e non Internet Explorer?
di Albatros54 data: 16/08/2015 16:36:26
Succede nulla ......
ALLA VOCE, ai provato a lanciare la sub m() che ti ho postato?
Questa Sub funziona, nel mio computer, quindi ti rimanda ad un sito WEB memorizzato nella costante URL.
Prova la Sub senza apportare modifiche, una volta che sei sicuro che funziona, cerca di sostituire alle costanti i tuoi valori.
Sicuramente è perche tu non IE!!!
di alexps81 data: 16/08/2015 16:47:52
Ti allego file di prova fatto da me, vedi se va bene così, a me non fa nulla.

Ma se il problema è legato al fatto che non utilizzo IE come faccio a raggirare il problema?

di Albatros54 data: 16/08/2015 16:55:19
Il codice funziona bene, devi solo aggiungere un riga di codice per rendere IE Visibile.
Per chrome non so.

Sub m()

Dim IE As Object
Const URL = "h t t p s: //www.microsoft.com/it-it/outlook-com/"
pec = MsgBox("Vuoi andare nel sistema P.E.C. per la spedizone della e-mail?", vbInformation + vbYesNo, "Spedizione e-mail")
If pec = vbYes Then
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate URL
IE.Visible = True <<<<===========

End If
End Sub

di alexps81 data: 16/08/2015 17:03:00
ohhhhh......finalmente.
Grazie mille.

Soltanto che nel mio reale file non so perchè ho dovuto definire anche pec as string (ovviamente data la mia incompetenza credo di aver sbagliato, ma alla fine funziona)

Cmq spero ci sia un modo per far sì che funzioni anche con altri motori di ricerca oltre a IE.
di Vecchio Frac data: 17/08/2015 10:31:34
cit. "Cmq spero ci sia un modo per far sì che funzioni anche con altri motori di ricerca oltre a IE. "
---> Una semplice shell... magari bisogna specificare il percorso completo a Chrome se non parte così.
'rimuovere gli spazi in "h t t p" shell("Chrome.exe -url h t t p:google.it")

Vuoi Approfondire?