Bonjour,
J'ai une application qui fonctionne bien chez moi, mais dans l'entreprise il y a un proxy avec mot de passe.
Comment aller chercher des données sur internet avec un proxy avec mot de passe en excel VBA ?
Merci d'avance
Bonjour,
J'ai une application qui fonctionne bien chez moi, mais dans l'entreprise il y a un proxy avec mot de passe.
Comment aller chercher des données sur internet avec un proxy avec mot de passe en excel VBA ?
Merci d'avance
C'est parce que la vitesse de la lumière est plus rapide que celle du son que tant de gens paressent brillants avant d'avoir l'air con ! (Thomas Boishardy)
Bonjour,
J'ai lu le tutoriel, mais cela ne m'a rien amené car je n'ai pas ce niveau de compétence
En réalité, j'ai testé chez moi avec mon ordinateur cela fonctionne bien, mais avec mon ordinateur professionnel, cela ne fonctionne pas
Avez-vous une idée ?
voici le code :
merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59 Sub Calcul(PointArrivée As String, PointDépart As String) NEssai = 0 Sheets.Add after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "Calcul" Durée = "" Distance = "" DuréeOK = False DistanceOK = False PointDépart = "01400 - L'Abergement-Clémenciat Châtillon-sur-Chalaronne" PointArrivée = "69120 - VAULX EN VELIN" ConnectStr = "URL;http://maps.google.fr/maps?f=d&saddr=" & PointDépart & "&daddr=" & PointArrivée With Sheets("Calcul").QueryTables.Add(Connection:=ConnectStr, Destination:=Sheets("Calcul").Range("A1")) .Name = "itinéraire" .BackgroundQuery = True .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone Do On Error Resume Next .Refresh BackgroundQuery:=False NEssai = NEssai + 1 Set Result = Sheets("Calcul").Range("A1:B100").Find("Itinéraires possibles") If Not Result Is Nothing Then Adresse = Result.Address Set Plage = Sheets("Calcul").Range(Adresse & ":A100") NEssai = 6 'On sort de la boucle quand on a un résultat End If Loop While NEssai < 5 End With If NEssai = 6 Then For Each Result In Plage If InStr(Result, "seconde") = 0 Then If (InStr(Result, "heure") Or InStr(Result, "min") Or InStr(Result, "mn")) And DuréeOK = False Then Durée = Result Durée = Mid(Durée, InStr(Durée, "km,") + 3) DuréeOK = True End If If InStr(Result, "km") And DistanceOK = False Then Distance = Result Distance = Left(Distance, InStr(Distance, "km,") - 1) DistanceOK = True End If Else Durée = "0 minutes" Distance = "0 km" DuréeOK = True DistanceOK = True End If If DistanceOK And DuréeOK Then Exit For End If Next Result End If Application.DisplayAlerts = False Sheets(Sheets.Count).Delete Application.DisplayAlerts = True End Sub
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager