Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Detail sur ton traitement carte

Detail sur ton traitement carte

4 réponses
Avatar
André AVONS
Salut
J'ai ajouter bien que ce soit un peu different de toi car je parts de mon
carnet d'adresse
J'ai donc une origine et dans des listes on choisit soit un nom soit un
ville soit on la tape pour la destination
J'ai pas d'onglet mais je fais defiler les cartes avec des boutons (detail
,parcours,fin parcours et Detail destination) Boutons apparant si calcul
d'itineraire
Sur les images detail et detail destintion j'ai tes boutons zoom et n s e o
Chez toi ca doit etre un oubli on ne peut pas cliquer 2 fois sur nord donc
j'ai rajoute

Public Function MovePicture(Direction As String)
Dim TMPZoom As String
Dim PicZoom As String


If Me.AbreviationPays = "fr" Then
TMPZoom =
"http://uk.maps.yahoo.com/py/lg:uk/lc:uk/maps.py?Pyt=Tmap&addr=&city=&state=
&slt=48.107500&sln=-1.684400&zip=" & Me.VilleOrig &
"&country=fr&BFCat=&BFClient=&mag=5&cs=5&name=&desc=&off=" & Direction &
"&poititle=&poi="
Else
TMPZoom = "http://maps.yahoo.com/py/maps.py?Pyt=Tmap&ed=" & ZoomPicture
& "&csz=" & Me.VilleOrig & "&country=" & Me.AbreviationPays &
"&cs=7&name=&desc=&poititle=&poi=&uz=" & Left(Me.CpOrig, 5) &
"&ds=g&BFKey=&BFCat=&BFClient=&mag=9&off=" & Direction
End If

'Récupère la page web crée en String
TMPString = GetHTMLFromURL(TMPZoom)
'================================================= Rajout ci dessous chez
moi j'ai qu'un seul zp le Zp1
'Avec ca je peux faire autant de sud ou sud est que je veux, pour recentrer
Je recharge la carte

If Me.AbreviationPays = "ca" Then 'canada
Me.ZP1 = FindZoomPicture(TMPString, "ed value=")
ZoomPicture = Me.ZP1
End If

Si ca t'interesse je peux te dire ou il faut rajouter des gestions d'erreurs
parcequ'ici soit ca marche pas, soit ca marche mais tu n'as pas d'image ou
une image sur 2

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Logipro
Bonjour André,

Effectivement l'option NSEO ont ne peut pas cliqué plus d'une fois dans la
liste, c'est pas un oublis, c'est seulement que j'ai pas pris le temps de
terminer cette option. Pour l'idée de la ville c'est très bien, pour mes
besoins je n'avais que besoins par code postale mais vaut mieux utiliser
toute les options que Yahoo nous offres, c'est beaucoup plus flexible pour
le client.

J'essais ton code et je t'en redonne des nouvelles

Merci de t'interesser à mon application !


Robert Simard






"André AVONS" a écrit dans le message de
news:eLHrd%
Salut
J'ai ajouter bien que ce soit un peu different de toi car je parts de mon
carnet d'adresse
J'ai donc une origine et dans des listes on choisit soit un nom soit un
ville soit on la tape pour la destination
J'ai pas d'onglet mais je fais defiler les cartes avec des boutons
(detail

,parcours,fin parcours et Detail destination) Boutons apparant si calcul
d'itineraire
Sur les images detail et detail destintion j'ai tes boutons zoom et n s e
o

Chez toi ca doit etre un oubli on ne peut pas cliquer 2 fois sur nord
donc

j'ai rajoute

Public Function MovePicture(Direction As String)
Dim TMPZoom As String
Dim PicZoom As String


If Me.AbreviationPays = "fr" Then
TMPZoom >
"http://uk.maps.yahoo.com/py/lg:uk/lc:uk/maps.py?Pyt=Tmap&addr=&city=&state > &sltH.107500&sln=-1.684400&zip=" & Me.VilleOrig &

"&country=fr&BFCat=&BFClient=&mag=5&cs=5&name=&desc=&off=" & Direction &
"&poititle=&poi="
Else
TMPZoom = "http://maps.yahoo.com/py/maps.py?Pyt=Tmap&ed=" &
ZoomPicture

& "&csz=" & Me.VilleOrig & "&country=" & Me.AbreviationPays &
"&cs=7&name=&desc=&poititle=&poi=&uz=" & Left(Me.CpOrig, 5) &
"&ds=g&BFKey=&BFCat=&BFClient=&mag=9&off=" & Direction
End If

'Récupère la page web crée en String
TMPString = GetHTMLFromURL(TMPZoom)
'================================================= Rajout ci dessous
chez

moi j'ai qu'un seul zp le Zp1
'Avec ca je peux faire autant de sud ou sud est que je veux, pour
recentrer

Je recharge la carte

If Me.AbreviationPays = "ca" Then 'canada
Me.ZP1 = FindZoomPicture(TMPString, "ed value=")
ZoomPicture = Me.ZP1
End If

Si ca t'interesse je peux te dire ou il faut rajouter des gestions
d'erreurs

parcequ'ici soit ca marche pas, soit ca marche mais tu n'as pas d'image ou
une image sur 2

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st




Avatar
Logipro
Merci André pour le MovePicture maintenant je peut bouger plus d'une fois
l'image



Salut

Robert



"André AVONS" a écrit dans le message de
news:eLHrd%
Salut
J'ai ajouter bien que ce soit un peu different de toi car je parts de mon
carnet d'adresse
J'ai donc une origine et dans des listes on choisit soit un nom soit un
ville soit on la tape pour la destination
J'ai pas d'onglet mais je fais defiler les cartes avec des boutons
(detail

,parcours,fin parcours et Detail destination) Boutons apparant si calcul
d'itineraire
Sur les images detail et detail destintion j'ai tes boutons zoom et n s e
o

Chez toi ca doit etre un oubli on ne peut pas cliquer 2 fois sur nord
donc

j'ai rajoute

Public Function MovePicture(Direction As String)
Dim TMPZoom As String
Dim PicZoom As String


If Me.AbreviationPays = "fr" Then
TMPZoom >
"http://uk.maps.yahoo.com/py/lg:uk/lc:uk/maps.py?Pyt=Tmap&addr=&city=&state > &sltH.107500&sln=-1.684400&zip=" & Me.VilleOrig &

"&country=fr&BFCat=&BFClient=&mag=5&cs=5&name=&desc=&off=" & Direction &
"&poititle=&poi="
Else
TMPZoom = "http://maps.yahoo.com/py/maps.py?Pyt=Tmap&ed=" &
ZoomPicture

& "&csz=" & Me.VilleOrig & "&country=" & Me.AbreviationPays &
"&cs=7&name=&desc=&poititle=&poi=&uz=" & Left(Me.CpOrig, 5) &
"&ds=g&BFKey=&BFCat=&BFClient=&mag=9&off=" & Direction
End If

'Récupère la page web crée en String
TMPString = GetHTMLFromURL(TMPZoom)
'================================================= Rajout ci dessous
chez

moi j'ai qu'un seul zp le Zp1
'Avec ca je peux faire autant de sud ou sud est que je veux, pour
recentrer

Je recharge la carte

If Me.AbreviationPays = "ca" Then 'canada
Me.ZP1 = FindZoomPicture(TMPString, "ed value=")
ZoomPicture = Me.ZP1
End If

Si ca t'interesse je peux te dire ou il faut rajouter des gestions
d'erreurs

parcequ'ici soit ca marche pas, soit ca marche mais tu n'as pas d'image ou
une image sur 2

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st




Avatar
André AVONS
Salut
J'ai fait le zoom pour la france ainsi que le deplacement
Je test pour l'italie si c'est pareil
Si tu veux la partie de code pour MOVEPICTURE ET ZOOMPICTURE
Je te l'envoie

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"André AVONS" a écrit dans le message de
news:%
Salut Robert
Excuses moi j'ai changé de fil
Essaies SVP de me faire un test sur l'italie (Torino 10122 et milano 201)
Je me régale avec ton truc, plus c'est compliqué plus ca me plait.
Hier pas un pays europeen marchait, je vais voir ce matin

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Logipro" a écrit dans le message de
news:yyDXa.30456$
Merci André pour le MovePicture maintenant je peut bouger plus d'une
fois


l'image



Salut

Robert



"André AVONS" a écrit dans le message de
news:eLHrd%
Salut
J'ai ajouter bien que ce soit un peu different de toi car je parts de
mon


carnet d'adresse
J'ai donc une origine et dans des listes on choisit soit un nom soit
un



ville soit on la tape pour la destination
J'ai pas d'onglet mais je fais defiler les cartes avec des boutons
(detail

,parcours,fin parcours et Detail destination) Boutons apparant si
calcul



d'itineraire
Sur les images detail et detail destintion j'ai tes boutons zoom et n
s



e
o
Chez toi ca doit etre un oubli on ne peut pas cliquer 2 fois sur nord
donc

j'ai rajoute

Public Function MovePicture(Direction As String)
Dim TMPZoom As String
Dim PicZoom As String


If Me.AbreviationPays = "fr" Then
TMPZoom > > >




"http://uk.maps.yahoo.com/py/lg:uk/lc:uk/maps.py?Pyt=Tmap&addr=&city=&state > > > &sltH.107500&sln=-1.684400&zip=" & Me.VilleOrig &

"&country=fr&BFCat=&BFClient=&mag=5&cs=5&name=&desc=&off=" & Direction
&



"&poititle=&poi="
Else
TMPZoom = "http://maps.yahoo.com/py/maps.py?Pyt=Tmap&ed=" &
ZoomPicture

& "&csz=" & Me.VilleOrig & "&country=" & Me.AbreviationPays &
"&cs=7&name=&desc=&poititle=&poi=&uz=" & Left(Me.CpOrig, 5) &
"&ds=g&BFKey=&BFCat=&BFClient=&mag=9&off=" & Direction
End If

'Récupère la page web crée en String
TMPString = GetHTMLFromURL(TMPZoom)
'================================================= Rajout ci dessous
chez

moi j'ai qu'un seul zp le Zp1
'Avec ca je peux faire autant de sud ou sud est que je veux, pour
recentrer

Je recharge la carte

If Me.AbreviationPays = "ca" Then 'canada
Me.ZP1 = FindZoomPicture(TMPString, "ed value=")
ZoomPicture = Me.ZP1
End If

Si ca t'interesse je peux te dire ou il faut rajouter des gestions
d'erreurs

parcequ'ici soit ca marche pas, soit ca marche mais tu n'as pas
d'image



ou
une image sur 2

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments
pour


Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st












Avatar
Logipro
Salut André,
Bien sur que ça m'intéresse ton code, m'a intégrer ça à mon appli. et je
vais la remettre sur mon site.

P.S Désoler j'ai pas eu le temps encore de faire un test avec les adresse de
l'Italie que tu m'a envoyer d'ici à demain je vais essayer de me trouver un
peut de temps et je vais te donner des news.


Saluto
@+
Robert



"André AVONS" a écrit dans le message de
news:
Salut
J'ai fait le zoom pour la france ainsi que le deplacement
Je test pour l'italie si c'est pareil
Si tu veux la partie de code pour MOVEPICTURE ET ZOOMPICTURE
Je te l'envoie

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"André AVONS" a écrit dans le message de
news:%
Salut Robert
Excuses moi j'ai changé de fil
Essaies SVP de me faire un test sur l'italie (Torino 10122 et milano
201)


Je me régale avec ton truc, plus c'est compliqué plus ca me plait.
Hier pas un pays europeen marchait, je vais voir ce matin

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments
pour


Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Logipro" a écrit dans le message de
news:yyDXa.30456$
Merci André pour le MovePicture maintenant je peut bouger plus d'une
fois


l'image



Salut

Robert



"André AVONS" a écrit dans le message de
news:eLHrd%
Salut
J'ai ajouter bien que ce soit un peu different de toi car je parts
de




mon
carnet d'adresse
J'ai donc une origine et dans des listes on choisit soit un nom soit
un



ville soit on la tape pour la destination
J'ai pas d'onglet mais je fais defiler les cartes avec des boutons
(detail

,parcours,fin parcours et Detail destination) Boutons apparant si
calcul



d'itineraire
Sur les images detail et detail destintion j'ai tes boutons zoom et
n




s
e
o
Chez toi ca doit etre un oubli on ne peut pas cliquer 2 fois sur
nord




donc
j'ai rajoute

Public Function MovePicture(Direction As String)
Dim TMPZoom As String
Dim PicZoom As String


If Me.AbreviationPays = "fr" Then
TMPZoom > > > >






"http://uk.maps.yahoo.com/py/lg:uk/lc:uk/maps.py?Pyt=Tmap&addr=&city=&state > > > > &sltH.107500&sln=-1.684400&zip=" & Me.VilleOrig &

"&country=fr&BFCat=&BFClient=&mag=5&cs=5&name=&desc=&off=" &
Direction




&
"&poititle=&poi="
Else
TMPZoom = "http://maps.yahoo.com/py/maps.py?Pyt=Tmap&ed=" &
ZoomPicture

& "&csz=" & Me.VilleOrig & "&country=" & Me.AbreviationPays &
"&cs=7&name=&desc=&poititle=&poi=&uz=" & Left(Me.CpOrig, 5) &
"&ds=g&BFKey=&BFCat=&BFClient=&mag=9&off=" & Direction
End If

'Récupère la page web crée en String
TMPString = GetHTMLFromURL(TMPZoom)
'================================================= Rajout ci
dessous




chez
moi j'ai qu'un seul zp le Zp1
'Avec ca je peux faire autant de sud ou sud est que je veux, pour
recentrer

Je recharge la carte

If Me.AbreviationPays = "ca" Then 'canada
Me.ZP1 = FindZoomPicture(TMPString, "ed value=")
ZoomPicture = Me.ZP1
End If

Si ca t'interesse je peux te dire ou il faut rajouter des gestions
d'erreurs

parcequ'ici soit ca marche pas, soit ca marche mais tu n'as pas
d'image



ou
une image sur 2

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments
pour


Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st