YANN-56
XLDnaute Barbatruc
Bonsoir à ceux qui passeront par ici,
Ma requête "maps.google.fr" fonctionne bien et me satisfait.
(Grace aussi à XLD; quant à son exploitation concrète)
Le souci est que lorsque l'utilisateur n'est pas connecté: Le plantage est grave!!!
Il ne reste que le "Ctrl + Alt + Sup" pour en sortir, et fermer Excel.
Je cherche à que soit interrompue systématiquement la recherche de connexion en cas d'échec.
J'ai un module de vérification de la connexion effective ou non, qui chez moi marche bien aussi.
Mais il est à noter que mes tests en réseau d'entreprise ont été voués à des infos erronées.
(Connexion internet OK, mais pas reconnue!!! Et c. Un Bordel illisible des informatos de la maintenance)
Je n'en parlerai donc pas!... Si ce n'est que vous le trouverez dans le classeur joint.
Module relatif à la requête:
Je cherche donc à ce que la tentative de "Pompage" de maps.google cesse en cas d'échec de connexion,
et que l'utilisateur en soit informé par un message.
J'ai passé un grand temps à chercher en vain, ce pourquoi je sollicite votre aide.
Merci par avance à qui aura une solution.
Yann
Ma requête "maps.google.fr" fonctionne bien et me satisfait.
(Grace aussi à XLD; quant à son exploitation concrète)
Le souci est que lorsque l'utilisateur n'est pas connecté: Le plantage est grave!!!
Il ne reste que le "Ctrl + Alt + Sup" pour en sortir, et fermer Excel.
Je cherche à que soit interrompue systématiquement la recherche de connexion en cas d'échec.
J'ai un module de vérification de la connexion effective ou non, qui chez moi marche bien aussi.
Mais il est à noter que mes tests en réseau d'entreprise ont été voués à des infos erronées.
(Connexion internet OK, mais pas reconnue!!! Et c. Un Bordel illisible des informatos de la maintenance)
Je n'en parlerai donc pas!... Si ce n'est que vous le trouverez dans le classeur joint.
Module relatif à la requête:
Code:
Sub RECHERCHE_MAP()
Depart = "56690 NOSTANG": Arrivee = "56000 VANNES"
Worksheets("Feuil1").Activate
'==== ETABLISSEMENT D'UNE REQUETE SUR LE WEB =======================
With ActiveSheet.QueryTables.Add(Connection:="URL;http://maps.google.fr/maps?f=d&saddr=" _
& Depart & "&daddr=" & Arrivee, DESTINATION:=ActiveSheet.Range("A1"))
.Name = "itinéraire"
.BackgroundQuery = False
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With
End Sub
Je cherche donc à ce que la tentative de "Pompage" de maps.google cesse en cas d'échec de connexion,
et que l'utilisateur en soit informé par un message.
J'ai passé un grand temps à chercher en vain, ce pourquoi je sollicite votre aide.
Merci par avance à qui aura une solution.
Yann
Pièces jointes
Dernière édition: