tarik792
00domenica 19 febbraio 2017 15:00
Salve a tutti , vi volevo chiedere come faccio a fare un bottone che mi porti ad un sito internet. Stavo facendo così ho creato il bottone in vba e solo che poi non riesco a mettergli il comando. ( ripeto sono alle prime armi con questo linguaggio vba)
federico460
00domenica 19 febbraio 2017 15:49
ciao
esempio
Shell ("C:\Programmi\Internet Explorer\iexplore.exe http://pincopallo.it"), vbNormalFocus
chiaramente al click del pulsante
il comando è Shell
tarik792
00domenica 19 febbraio 2017 17:11
Grazie per avermi risposto però se metto il comando così
Private Sub CommandButton1_Click()
Shell ("C:\Programmi\Internet Explorer\iexplore.exe http://google.it"), vbNormalFocus
End Sub
se clicco sul bottone non mi esce niente
Thestoat
00domenica 19 febbraio 2017 17:21
Ciao, il codice è sbagliato, il private button chiama la Macro, il codice giusto è così:
Private Sub CommandButton1_Click()
Call Foglio1.Link
End Sub
Sub Link()
Shell ("C:\Programmi\Internet Explorer\iexplore.exe http://google.it"), vbNormalFocus
End Sub
Call Foglio1.Link <-- qui devi mettere il nome del tuo foglio.
federico460
00domenica 19 febbraio 2017 17:23
ciao
se sei collegato ad internet si altrimenti no
se usi un pulsante ActiveX metti il codice
Private Sub CommandButton1_Click()
Shell
End Sub
sul foglio
se usi un pulsante controllo modulo
va su un modulo
Sub Pulsante1_Click()
Shell
End Sub
federico460
00domenica 19 febbraio 2017 17:24
Thes
ma per favore
l'hai provato?
https://www.dropbox.com/s/fdr8tc3naryn1ap/peulsanti%20con%20collegamento%20a%20sito.xlsm?dl=0
Thestoat
00domenica 19 febbraio 2017 17:27
Ciao fede, certo che l'ho provata, ecco il file:
tarik792
00domenica 19 febbraio 2017 17:27
Re:
Thestoat, 19/02/2017 17.21:
Ciao, il codice è sbagliato, il private button chiama la Macro, il codice giusto è così:
Private Sub CommandButton1_Click()
Call Foglio1.Link
End Sub
Sub Link()
Shell ("C:\Programmi\Internet Explorer\iexplore.exe http://google.it"), vbNormalFocus
End Sub
Call Foglio1.Link <-- qui devi mettere il nome del tuo foglio.
grazie di cuore allora il mio foglio si chiama foglio1 dove lo metto di preciso?
Thestoat
00domenica 19 febbraio 2017 17:30
Re: Re:
tarik792, 19/02/2017 17.27:
grazie di cuore allora il mio foglio si chiama foglio1 dove lo metto di preciso?
Nel foglio 1
federico460
00domenica 19 febbraio 2017 17:31
Ciao
thes
non il tuo
codice ma quello che ho scritto io
funziona benissimo
tarik792
00domenica 19 febbraio 2017 17:32
non so dove sbaglio mi da errore di compilazione
federico460
00domenica 19 febbraio 2017 17:35
Thestoat
00domenica 19 febbraio 2017 17:39
Non è che hai cambiato il nome al bottone??
Fede ho provato funziona, non so perchè non funzioni a lui.
federico460
00domenica 19 febbraio 2017 17:42
thes
dovrebbe dire quale dei due file non funziona
ma quasi certamente è un problema di numero pulsante
o shapes che ha nel suo file
come hai detto tu
tarik
carica uno stralcio del tuo file con il bottone
tarik792
00domenica 19 febbraio 2017 17:43
Ora ti dico quello che ho fatto, allora apro excel e mi seleziono sulla cella 1 nel Foglio1 e clicco ALT+f11
Poi clicco su inserisci Userform dove creo il pulsante di comando
gli clicco due volte sopra e mi esce questo
Private Sub CommandButton1_Click()
End Sub
dove io vado a sostituire con quello che mi hai dato tu
federico460
00domenica 19 febbraio 2017 17:46
metti in mezzo
questo
Shell ("C:\Programmi\Internet Explorer\iexplore.exe http://pincopallo.it"), vbNormalFocus
e vedi che funziona
tarik792
00domenica 19 febbraio 2017 17:47
Ho provato anche quello di federico ma non si apre il sito
federico460
00domenica 19 febbraio 2017 17:49
prova
il file
clicca sul pulsante 3
e poi sul pulsante che trovi sul form
Thestoat
00domenica 19 febbraio 2017 17:50
Vai in sviluppo, clicca su Modalità progettazione, poi clicca sul bottone, nel box bianco a sinistra della barra delle formule esce una scritta, qual'è la scritta che esce?
Forse è meglio che inserisci il file.
federico460
10domenica 19 febbraio 2017 17:52
tarik792
00domenica 19 febbraio 2017 17:53
Re:
federico460, 19/02/2017 17.49:
prova
il file
clicca sul pulsante 3
e poi sul pulsante che trovi sul form
Non mi apre niente
Thestoat
00domenica 19 febbraio 2017 17:55
Che sistema operativo usi?
federico460
00domenica 19 febbraio 2017 17:55
come non ti apre niente
non si apre il form
o il sito
thes
a te si apre?
( non sapevo pincopallo aprisse un sito)
tarik792
00domenica 19 febbraio 2017 18:01
Re:
Thestoat, 19/02/2017 17.50:
Vai in sviluppo, clicca su Modalità progettazione, poi clicca sul bottone, nel box bianco a sinistra della barra delle formule esce una scritta, qual'è la scritta che esce?
Forse è meglio che inserisci il file.
Come?
federico460
00domenica 19 febbraio 2017 18:05
tarik
il foglio è bianco
cosa ne facciamo
devi farlo tu con pulsanti e tutto
così vediamo perché non funziona
tarik792
00domenica 19 febbraio 2017 18:06
Allora mi sa che faccio un errore di base proprio perchè il pulsante non mi rimane sul foglio cavolo. riprovo
federico460
00domenica 19 febbraio 2017 18:17
non ti arrabbiare ma ti scrivo la procedura
scheda SVILUPPO
INSERISCI
dal menu a tendina
CONTROLLO DI MODULO
segli pulsante ( primo a sinistra )
clicca sulla cella dove lo vuoi
ti si apre un form
clicca su NUOVO
ti esce
Sub Pulsante1_Click()
End Sub
trasformalo in
Sub Pulsante1_Click()
Shell ("C:\Programmi\Internet Explorer\iexplore.exe http://google.it"), vbNormalFocus
End Sub
fatto
per il pulsante ActiveX è leggermente diverso
una volta scelto
cliccaci con il dx sopra e segli
VISUALIZZA CODICE
ti esce
Private Sub CommandButton1_Click()
End Sub
e scrivi il solito Shell ecc...
poi sulla barra del foglio clicca su modalità progettazione
per disattivarla.
fatto
tarik792
00domenica 19 febbraio 2017 18:17
Ragazzi in primis grazie , sto perdendo le speranze, non capisco perchè il bottone non mi compare sul foglio1
tarik792
00domenica 19 febbraio 2017 18:20
Re:
trovato ma lo stesso non mi apre il sito
federico460
00domenica 19 febbraio 2017 18:23
Visualizzare la scheda sviluppo in un'applicazione di Office
1.Fare clic sulla scheda File.
2.Fare clic su Opzioni.
3.Fare clic su Personalizzazione barra multifunzione.
4.In Personalizzazione della barra multifunzione e Schede principali selezionare la casella di controllo Sviluppo.
prova a cliccare sulla figura blu