Téléchargement fichier via URL

**marsupilami34** · 13/10/2022, 08h42

Bonjour à tous,

J'ai créé une marco quipermet de récupérer des fichier pdf sur une adresse url

J'ai trouvé le code suivant qui, si j'ai bien compris me revoie vrai si il a réussi à copier le fichier à l'adresse souhaitée

Code :

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

1
2
3
4
 
Public Function TelechargerFichierInternet(SourceUrl As String, FichierLocal As String) As Boolean
TelechargerFichierInternet = TelechargerFichierURL(0&, SourceUrl, FichierLocal, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function

Dans le module principal, j'appelle donc cette fonction

Code :

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

1
2
3
4
5
6
7
 
Dim hlink As String
Dim a As Boolean
 
hlink = "https://---------e=English&format=pdf"
 
a = TelechargerFichierInternet(hlink, "C:\monpdf.pdf")

J'ai bien un fichier qui se copie mais lorsque j'essaie de l'ouvrir, j'ail'erreur suivante qui apparait

Nom : img1.jpg
Affichages : 235
Taille : 16,6 Ko

Et en cliquant sur actualiser, ca reaffiche le message.

Quelqu'un pourrait-il m'aider svp ?

Merci d'avance

Marsup

**jurassic pork** · 13/10/2022, 08h53

Hello,
si tu n'arrives pas à ouvrir le fichier c'est que :
1 - Le fichier est corrompu (as-tu essayé avec un fichier pdf sur un autre site) ?
2 - La procédure que tu appelles ne fait pas son travail.

Sinon regarde la taille du fichier récupéré et essaie de l'ouvrir avec NotePad++ il doit commencer par %PDF-1

Ami calmant, J.P

**marsupilami34** · 13/10/2022, 09h34

Envoyé par jurassic pork

Hello,
si tu n'arrives pas à ouvrir le fichier c'est que :
1 - Le fichier est corrompu (as-tu essayé avec un fichier pdf sur un autre site) ?
2 - La procédure que tu appelles ne fait pas son travail.

Sinon regarde la taille du fichier récupéré et essaie de l'ouvrir avec NotePad++ il doit commencer par %PDF-1

Ami calmant, J.P

Merci pour la réponse.
Effectivement la taille du pdf est 1,45Ko donc pas énorme

Quand je l'ouvre avec notepad++ J'ai un truc du genre:

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
 
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
    <meta http-equiv="Cache-Control" content="no-cache, no-store, must-revalidate"/>
    <meta http-equiv="Pragma" content="no-cache"/>
    <meta http-equiv="Expires" content="0"/>
 
    <script type="text/javascript" src="/Thingworx/ruxitagentjs_ICA2Vfhjqrux_10249220905100923.js" data-dtconfig="app=bb82cbcb66369dba|rcdec=1209600000|featureHash=ICA2Vfhjqrux|vcv=2|rdnt=0|uxrgce=1|bp=3|srmcrv=10|cuc=ehmkthy3|mel=100000|dpvc=1|md=mdcc2=a#label,mdcc3=abody ^rb div ^rb header-bar ^rb header ^rb nav ^rb ul ^rb li:nth-child(2) ^rb span ^rb a ^rb span,mdcc4=a^lbdiv id^e^dqlabel^dq part^e^dqlabel^dq class^e^dqsl^dq^rbPDMSLT01^lb/div^rb,mdcc5=bwindow.TW.Session.CurrentUser|ssv=4|lastModification=1665603461930|dtVersion=10249220905100923|srmcrl=1|tp=500,50,0,1|uxdcw=1500|agentUri=/Thingworx/ruxitagentjs_ICA2Vfhjqrux_10249220905100923.js|reportUrl=/Thingworx/rb_bf41636dpq|rid=RID_-626153769|rpid=2081522657|domain=te.com"></script><script>
        window.utilsOnlyMode = true;
    </script>
    <script type="text/javascript" src="./mashup-vendor-runtime.js?_v=9.3.1"></script>
	<script type="text/javascript" src="./mashup-common-general-runtime.js?_v=9.3.1"></script>
 
    <script>
	function onLoad() {
		TW.keepHashForSSORedirect(window.location.href, true);
 
		document.location.reload();
	}
    </script>
</head>
<body onLoad="onLoad()">
</body>
</html>

Ca pourrait venir d'où ce problème ?

Merci d'avance

Marsup

**jurassic pork** · 13/10/2022, 09h46

En effet c'est un fichier html que tu récupères pas un pdf . Si tu changes l'extension en .html tu pourras l'ouvrir.

**marsupilami34** · 13/10/2022, 10h01

Je ne comprends pas car quand je télécharges directement à partir du sharepoint, j'ai bien un pdf qui s'enretistre dans mes téléchargements. Et c'est ce fichier là que je voudrai.

Ou quelle autre méthode pourrai-je appliquer pour obtenir ce fichier au format pdf ?

**jurassic pork** · 13/10/2022, 10h17

il y a certainement un script javascript qui s'exécute dans ton html quand tu l'ouvres avec un navigateur. Avec la procédure que tu utilises pas d'exécution de javascript.

Téléchargement fichier via URL

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager