Discussion :

[IronHeavy]

Bonjour à tous !

Dans l'optique de créer un outil de veille réglementaire assistée, je démarre mes recherches d'applications suivantes depuis excel:

- ouvrir une page de site institutionnel fixe sur internet - OK
- pointer un lien hypertexte variable (évolue à chaque mise à jour, dénomination variable donc) - OK
- télécharger le PDF de la nouvelle version réglementaire - OK
- extraction texte et tableaux vers mon fichier excel
- tri des chapitre par onglets OU fusion des onglets
- mise en forme

Voilà pour la première phase ! Mes premières recherches m'ont amené à des bribes de code pas forcément compatibles entre elles voire non fonctionnelles...

Quelques pistes/lectures à me recommander?

Merci d'avance!

[patricktoulon]

re
bonjour
a tu un lien pour voir si cette page web n'a pas de protection anti robot (vba par exemple) qui empêcherait bien évidement de continuer sur un chemin qui n'a pas de fin

[IronHeavy]

Bonjour Patrick,

Ci dessous le lien complet :

https://aida.ineris.fr/liste_documents/1/18023/1

Je souhaite à atteindre le dernier lien de la page "Consulter la nomenclature au format pdf (Version 47 - avril 2019)" - c'est ce lien qui est modifié à chaque MAJ de cette réglementation..

Je te remercie pour ton temps!

[patricktoulon]

je dirais que tu n'a pas besoins de naviguer la page que donne le lien d'en bas C'EST!!!!!! LE PDF!!!!!!!!!!!!!

tu la pas vu le ".pdf" a la fn de l'url?????

https://aida.ineris.fr/sites/default..._v47public.pdf

conclusion

une requête et adobstream est basta

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
Sub test()
Dim chemin As String
chemin = Environ("userprofile") & "\DeskTop\monpdf.pdf"
telechargeFichierPdf "https://aida.ineris.fr/sites/default/files/gesdoc/30296/BrochureNom_v47public.pdf", chemin
End Sub
 
Sub telechargeFichierPdf(url As String, chemin As String)
    Dim ReQ As Object, oStream As Object
      'On Error Resume Next    'On ne gère pas les erreurs
    Set ReQ = CreateObject("Microsoft.XMLHTTP")
    ReQ.Open "get", url, False
    ReQ.send
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write ReQ.responsebody
   oStream.SaveToFile chemin
    oStream.Close
End Sub

terminéé ton pdf est sur ton bureau

[IronHeavy]

J'ai bien vu qu'on arrive sur un PDF, mais le mois prochain il risque de ne plus s'appeler "BrochureNom_v47public.pdf" mais "BrochureNom_48public.pdf" si j'ai de la chance!

Le chemin peut aussi changer! de "gesdoc/30296" à "gesdoc/juin2019" par exemple...

En revanche, trouver un moyen de "cliquer virutellement" sur le lien "Consulter la nomenclature au format pdf (Version 47 - avril 2019)" quelque soit son nom pour ouvrir la dernière version du pdf est tout l'enjeu.

[patricktoulon]

ok et ben qué bis répetita
je navigue toujours dans ie
je transforme la requete en double requête
et voila ca récupère le dernier lien document

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
 
Sub test()
Dim chemin As String
Dim linck$
chemin = Environ("userprofile") & "\DeskTop\monpdf.pdf"
telechargeFichier "https://aida.ineris.fr/liste_documents/1/18023/1", , linck
MsgBox "le dernier lien document de la page est " & vbCrLf & linck
If linck <> "" Then telechargeFichier "https://aida.ineris.fr/sites/default/files/gesdoc/30296/BrochureNom_v47public.pdf", chemin
End Sub
 
Sub telechargeFichier(url As String, Optional chemin As String = "", Optional linck)
    Dim ReQ As Object, oStream As Object
      'On Error Resume Next    'On ne gère pas les erreurs
    Set ReQ = CreateObject("Microsoft.XMLHTTP")
    ReQ.Open "get", url, False
    ReQ.send
  If chemin = "" Then
    With CreateObject("htmlfile")
    .body.innerhtml = ReQ.responsetext
    For Each elem In .all
    If elem.classname = "lien-document" Then linck = Replace(elem.ChildNodes(0).href, "about", "https://aida.ineris.fr") ': MsgBox linck
    Next
    End With
   Else
    If Dir(chemin) <> "" Then Kill chemin
      Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write ReQ.responsebody
   oStream.SaveToFile chemin
    oStream.Close
End If
End Sub

autant pour moi correction

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
Sub test()
Dim chemin As String
Dim linck$
chemin = Environ("userprofile") & "\DeskTop\monpdf.pdf"
telechargeFichier "https://aida.ineris.fr/liste_documents/1/18023/1", , linck
MsgBox "le dernier lien document de la page est " & vbCrLf & linck
If linck <> "" Then telechargeFichier linck, chemin
End Sub
 
Sub telechargeFichier(url As String, Optional chemin As String = "", Optional linck)
    Dim ReQ As Object, oStream As Object
      'On Error Resume Next    'On ne gère pas les erreurs
    Set ReQ = CreateObject("Microsoft.XMLHTTP")
    ReQ.Open "get", url, False
    ReQ.send
  If chemin = "" Then
    With CreateObject("htmlfile")
    .body.innerhtml = ReQ.responsetext
    For Each elem In .all
    If elem.classname = "lien-document" Then linck = Replace(elem.ChildNodes(0).href, "about:", "https://aida.ineris.fr") ': MsgBox linck
    Next
    End With
   Else
    If Dir(chemin) <> "" Then Kill chemin
      Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write ReQ.responsebody
   oStream.SaveToFile chemin
    oStream.Close
End If
End Sub

[Pierre Fauconnier]

Salut.

Il est préférable de ne traiter qu'un sujet par discussion. Je t'invite donc à créer un nouveau sujet pour le traitement du pdf.

Cela étant, tu vas galérer si tu ne connais pas pile poil la structure d'un fichier pdf. De plus, des structures pdf différentes peuvent donner un résultat visuel identique. Ainsi, un simple tableau excel de quelques lignes génère un fichier de 65Kb si tu le génère avec Enregistrer Sous d'Excel et de seulement 24Kb si tu le génères avec une imprimante PDF Architect, par exemple. La comparaison des deux fichiers met en évidence des différences importantes entre les deux structures.

[IronHeavy]

Bonjour Pierre,

Entendu, j'ouvre un nouveau post! Je note tes observations.

Merci!