IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Récupérer date de livraison DHL


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Simple travailleur ..
    Inscrit en
    Novembre 2019
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Calvados (Basse Normandie)

    Informations professionnelles :
    Activité : Simple travailleur ..

    Informations forums :
    Inscription : Novembre 2019
    Messages : 22
    Par défaut Récupérer date de livraison DHL
    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

  2. #2
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    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

  3. #3
    Membre averti
    Homme Profil pro
    Simple travailleur ..
    Inscrit en
    Novembre 2019
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Calvados (Basse Normandie)

    Informations professionnelles :
    Activité : Simple travailleur ..

    Informations forums :
    Inscription : Novembre 2019
    Messages : 22
    Par défaut
    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

  4. #4
    Membre Expert
    Profil pro
    Inscrit en
    Février 2007
    Messages
    2 266
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 2 266
    Par défaut
    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

  5. #5
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    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

  6. #6
    Membre Expert
    Profil pro
    Inscrit en
    Février 2007
    Messages
    2 266
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 2 266
    Par défaut
    Bien ouej

Discussions similaires

  1. Récupérer date de création d'un répertoire
    Par Kara dans le forum API, COM et SDKs
    Réponses: 6
    Dernier message: 04/05/2018, 17h14
  2. Réponses: 7
    Dernier message: 29/04/2015, 19h17
  3. [Cryptage] Récupérer Date cryptée dans fichier text
    Par SansSucre dans le forum Access
    Réponses: 2
    Dernier message: 29/07/2006, 13h03
  4. Réponses: 12
    Dernier message: 12/10/2005, 14h34
  5. Réponses: 11
    Dernier message: 23/07/2002, 14h33

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo