Discussion :

[TheJejefull]

Bonjour,
Je débute le VBA alors allez y doucement svp ^^

Je suis réceptionnaire sur une plateforme logistique de e-commerce. Mon client me transmet un excel comme ceci:

Nom acheteur Fournisseurs Date prévision Transporteur Tracking Date de livraison
Charlotte A ,,,, DHL 1925628084 ?
Elise B ,,,, DHL 2735378693 ?

J'aimerai pouvoir récupérer la date de livraison réel pour un grand nombres de colis.

Le problème c'est que je ne sait pas, une fois l'url pointé comment extraire la date
Pour pouvoir comprendre j'aimerai un code extrêmement simple. Si vous pouviez m'aider ce serai sympas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub DateDHL()
 
Dim ACCES_DHL As String
Dim Url_Colis As String
Dim Track As String
 
Track = "1925628084"  ' exemple de suivie
ACCES_DHL = "http://www.dhl.com/en/express/tracking.html?brand=DHL&AWB="
 
 
Url_Colis = ACCES_DHL + Track + "&brand=DHL"
Shell ("C:\Program Files\Mozilla Firefox\firefox.exe -url " & Url_Colis) 
End Sub

[Menhir]

Tu peux peut-être commencer par consulter les FAQ du pilotage Internet en VBA :
https://excel.developpez.com/faq/?page=WebHtml
En particulier : https://excel.developpez.com/faq/?pa...nneesTableHtml

[TheJejefull]

Merci, pour ton aide menhir. J'ai réussi a recuperer par exemple "October 21, 2019" dans un String.

Comment puis-je transformer ce "October 21, 2019" en "21/10/2019" ? Le october me bloque

[eriiic]

Bonjour,

il faut traduire en français :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim d As String, dat As Date, tmp
d = "October 21, 2019"
tmp = Split(Replace(d, ",", ""))
dat = DateSerial(tmp(2), Application.Match(tmp(0), Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"), 0), tmp(1))

eric

[unparia]

Bonjour
Ou profiter des aptitudes de Excel.
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
  MsgBox francise_date_anglaise("october 21, 2019")
  MsgBox francise_date_anglaise("June 03, 2019")
End Sub

Public Function francise_date_anglaise(la_date As String) As Date
  With ActiveSheet
    .Cells(1, 1).NumberFormat = "dd/mm/yyyy" ' observer : la notation anglaise a ici été choisie.
    .Cells(1, 1) = la_date
    francise_date_anglaise = .Cells(1, 1)
 End With
End Function

Ici, la cellule A1 de la feuille active a été choisie comme tremplin

[eriiic]

Bien ouej