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 :

VBA/ Chargement d'un fichier URL HTTPS


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Ingenieur Retraité
    Inscrit en
    Janvier 2022
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Ingenieur Retraité
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : Janvier 2022
    Messages : 1
    Par défaut VBA/ Chargement d'un fichier URL HTTPS
    Bonjour,
    Je veux automatiser le chargement de fichiers HTTPS dans un programme en VBA
    Je ne passerais donc pas directement par Internet Explorer.
    Comment faire pour introduire un certificat SSL?
    Merci

  2. #2
    Expert confirmé
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    4 229
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 4 229
    Par défaut
    Hello,
    pourquoi as-tu besoin d'un certificat ? c'est un site privé ?
    Exemple de code VBA pour télécharger un fichier dans un site https public :
    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
    Sub DownloadFile()
    Dim myURL As String
    myURL = "https://www.developpez.net/forums/attachments/p616854d1649243535/logiciels/microsoft-office/excel/transposer-p-concatener/conc.xlsx/"
    Dim WinHttpReq As Object
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    WinHttpReq.Open "GET", myURL, False
    WinHttpReq.send
    If WinHttpReq.Status = 200 Then
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write WinHttpReq.responseBody
        oStream.SaveToFile "D:\temp\file.xlsx", 2 ' 1 = no overwrite, 2 = overwrite
        oStream.Close
    End If
    End Sub
    Et pourquoi ne veux-tu pas passer par un navigateur ? On peut piloter les navigateurs en VBA avec selenium Basic.

    Ami calmant, J.P

Discussions similaires

  1. Réponses: 1
    Dernier message: 24/05/2008, 05h57
  2. telechargement fichier via HTTP et URL
    Par maverick56 dans le forum Entrée/Sortie
    Réponses: 5
    Dernier message: 15/01/2008, 11h56
  3. Download fichier zip à partir d'un url (http)
    Par kenada dans le forum ASP
    Réponses: 5
    Dernier message: 04/05/2007, 19h07
  4. [VBA-E]Ouverture de fichier sur un serveur http
    Par Scritch852 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 19/03/2007, 12h17
  5. [VBA-E] Lenteur de chargement d'un fichier
    Par Amoust dans le forum Macros et VBA Excel
    Réponses: 31
    Dernier message: 01/06/2006, 09h08

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