S
simonico
Guest
Bonjour !!
Je suis bloqué dans l'avancé de mon projet... Je cherche à comprendre à comprndre le bout de code ci dessous..En fait mon problème c'est que je ne vois pas ce que signifie la fonction private sub SEARCH, je ne sais pas si ca correspond à une ComboBox1 ou un CommandBoutton et aussi que signifie les v_(est-ce que c'est des TextBox ?). Si quelqu'un pourrat m'expliquer ce code je lui en seraot reconnaissant.
Private Sub search(v_adresse as String, v_cp as String, v_ville as String)
Dim v_http As String
v_http = "http://maps.google.fr/maps?f=q&hl=fr&q="
v_http = v_http & v_adresse & " ,+ " & v_cp & "+" & v_ville
On Error GoTo err_connexion:
FollowHyperlink (v_http)
'ThisWorkbook.FollowHyperlink pour Excel
'ThisDocument.FollowHyperlink pour Word
ExitSub
err_connexion:
MsgBox "Impossible de se connecter au site GoogleMaps"
End Sub
Merci pour votre aide !!
Je suis bloqué dans l'avancé de mon projet... Je cherche à comprendre à comprndre le bout de code ci dessous..En fait mon problème c'est que je ne vois pas ce que signifie la fonction private sub SEARCH, je ne sais pas si ca correspond à une ComboBox1 ou un CommandBoutton et aussi que signifie les v_(est-ce que c'est des TextBox ?). Si quelqu'un pourrat m'expliquer ce code je lui en seraot reconnaissant.
Private Sub search(v_adresse as String, v_cp as String, v_ville as String)
Dim v_http As String
v_http = "http://maps.google.fr/maps?f=q&hl=fr&q="
v_http = v_http & v_adresse & " ,+ " & v_cp & "+" & v_ville
On Error GoTo err_connexion:
FollowHyperlink (v_http)
'ThisWorkbook.FollowHyperlink pour Excel
'ThisDocument.FollowHyperlink pour Word
ExitSub
err_connexion:
MsgBox "Impossible de se connecter au site GoogleMaps"
End Sub
Merci pour votre aide !!