Ouvrir PDF en lien hypertexte dans un moteur de recherche userform

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

Je souhaiterais ouvrir les fichiers PDF en lien hypertexte suite à une recherche dans un moteur de recherche de type userform.

Je n'arrive pas trouver la commande.

Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton2_Click()
 
    With ListBox1
        shname = .List(.ListIndex, 0)
        Set cel = Sheets(shname).Range(.List(.ListIndex, 1))
        Lien = cel.Hyperlinks(1).Address
    End With
    Set ie = CreateObject("internetexplorer.application")
    ie.Visible = True
    ie.Navigate Lien
    Set ie = Nothing
End Sub

11/05/2018, 10h35
ARTURO83

Bonjour,
Ceci peut-être, au niveau de la ligne d'appel du lien à ouvrir:
Shell "C:\chemin\iexplore.exe " & Lien
Cdlt
11/05/2018, 11h04
david45500

Merci

Mais je ne vois pas du tout ou mettre cette commande.
car j'ai essayé cela ne fonctionne pas.
11/05/2018, 11h11
ARTURO83

à la place de ie.Navigate Lien
évidemment remplacez C:\chemin par votre propre chemin
11/05/2018, 11h19
david45500

Citation:

Envoyé par ARTURO83

à la place de ie.Navigate Lien
évidemment remplacez C:\chemin par votre propre chemin

Merci je viens d'essayer ceci ouvre une page internet vierge. Donc, ceci ne fonctionne pas.
11/05/2018, 11h27
ARTURO83

Si ça ouvre une page internet, c'est déjà bon signe, il ne manque plus que le lien. Dans votre procédure ce lien est-il correct?
11/05/2018, 11h30
david45500

Citation:

Envoyé par ARTURO83

Si ça ouvre une page internet, c'est déjà bon signe, il ne manque plus que le lien. Dans votre procédure ce lien est-il correct?

Le lien est vide dans internet explorer.
11/05/2018, 11h47
RyuAutodidacte

Bonjour,

Les pdf à ouvrir sont sur le net ou sur le disque Dir où en réseau ??
11/05/2018, 12h06
david45500

Citation:

Envoyé par RyuAutodidacte

Bonjour,

Les pdf à ouvrir sont sur le net ou sur le disque Dir où en réseau ??

Il est sur le disque dur et d'autres sur en réseau mais pas sur le net.
11/05/2018, 12h16
RyuAutodidacte

Alors pourquoi vouloir utiliser ie ???

Plus logique de l'ouvrir avec Acrobat …
11/05/2018, 12h39
david45500

Citation:

Envoyé par RyuAutodidacte

Alors pourquoi vouloir utiliser ie ???

Plus logique de l'ouvrir avec Acrobat …

Oui, c'est ce que je souhaite faire l'ouvrir avec Acrobat car avant je l'ouvrais avec IE et je demande de l'aide afin de modifier le code afin d'ouvrir les fichier en PDF.
11/05/2018, 14h02
RyuAutodidacte

Nul besoin de lien hypertexte …
le chemin en String suffit.
il faut aller voir du coté (en recherche) : "ouvrir fichier" et "CreateObject("Shell.Application")"
11/05/2018, 14h08
david45500

1 pièce(s) jointe(s)

Citation:

Envoyé par RyuAutodidacte

Nul besoin de lien hypertexte …
le chemin en String suffit.
il faut aller voir du coté (en recherche) : "ouvrir fichier" et "CreateObject("Shell.Application")"

Comment dois-je intégrer cette commande Merci

Private Sub CommandButton2_Click()

With ListBox1
shname = .List(.ListIndex, 0)
Set cel = Sheets(shname).Range(.List(.ListIndex, 1))
Lien = cel.Hyperlinks(1).Address
End With
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.Navigate Lien
Set ie = Nothing
End Sub
11/05/2018, 14h37
patricktoulon

re
bonjour
soit:
1. les liens ne sont pas valides
2. soit lesliens sont dans un intranet
3. les pages cyberlink demande une authentification elles sont donc déroutées(ce que je crois fortement avec cyberlink)et c'est donc absolument pas possible comme ca sans naviguer sur la page de login
ryu !!:coucou:c'est pas "shell.application" mais "wscript.shell" pour lancer ;)
11/05/2018, 14h48
david45500

1 pièce(s) jointe(s)
Pièce jointe 379684
Citation:
Envoyé par patricktoulon

bonjour
soit:

les liens ne sont pas valides
soit lesliens sont dans un intranet
les pages cyberlink demande une authentification elles sont donc déroutées(ce que je crois fortement avec cyberlink)et c'est donc absolument pas possible comme ca sans naviguer sur la page de login

ryu !!:coucou:c'est pas "shell.application" mais "wscript.shell" pour lancer ;)
Bonjour,

1- les liens sont sont valides
2- les liens ne sont pas dans un intranet, les fichiers PDF se trouve sur le disque dur
3- Comme indiquer je souhaite avoir une code VBA afin d'ouvrir les liens lors d'une recherche avec le moteur de recherche intégrer à excel lors de cette recherche de pouvoir cliquer dessus afin d'ouvrir le fichier PDF concerner aux différentes recherche.

J'ai mis le fichier en pièce jointe dans le post au-dessus.

Merci
11/05/2018, 16h13
patricktoulon

1 pièce(s) jointe(s)

RE

RE

Citation:

2- les liens ne sont pas dans un intranet, les fichiers PDF se trouve sur le disque dur

oui!!! tes liens sont tous dans le disque dur je vois ca
Pièce jointe 379706

je savais pas que les lien de fichiers en local passaient par le protocole "http(s)"

:mouarf:
11/05/2018, 16h20
david45500

1 pièce(s) jointe(s)

Citation:

Envoyé par patricktoulon

RE

oui!!! tes liens sont tous dans le disque dur je vois ca
Pièce jointe 379706

je savais pas que les lien de fichiers en local passaient par le protocole "http(s)"

:mouarf:

Oui désoler pas le bon fichier, voici le bon le lien hypertexte directement sur le texte sur l'onglet "AD" sur le texte "AES" ou "DTO" qui ouvre un fichier PDF.

Pièce jointe 379710

Bonjour (coucou Patrick ;)),

pas beaucoup de temps pour répondre, mais me voilà.

Après avoir fignolé mes recherches sur internet (je suis sur Mac et j'ai du booter sur la session PC pour le faire),
j'ai fait une fonction (à partir des éléments trouver sur le net et qq tests) permettant d’ouvrir un fichier (qq soit le fichier txt, pdf, docx, etc..),
mais permettant aussi d'ouvrir des liens internet, à partir d'un "lien" en String( pesant moins lourd que des liens hypertexte...).

J'ai testé chez moi ça marche (il ouvre automatiquement l'application par rapport au type de fichier - sinon il propose d'attribuer une application pour ouvrir le fichier => à faire une fois - j'ai fait les crash tests aussi :mrgreen::aie: en espérant ne rien oublier)
Qu'en est il chez vous ?? (je suis sur Windows 10 Excel 2010)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Test_OpenFicLinks()
Dim MyLink$
    MyLink = "C:\Users\UserName\Documents\Fichiers Excel\Regroupe Fch TXT\TXT2\RESULTAT2.txt"
    OpenFicLinks MyLink ' lien valide
    MyLink = "C:\Users\UserName\Documents\Fichiers Excel\Regroupe Fch TXT\TXT2\RESULTA2.txt"
    OpenFicLinks MyLink ' j'ai provoqué une erreur de lien en enlevant une lettre
 
    MyLink = "http://excel-malin.com/codes-sources-vba/vba-ouvrir-un-fichier-de-tout-type/"
    OpenFicLinks MyLink ' lien valide
    MyLink = "http://excel-malin.com/codes-sources-vba/vba-ouvrir-un-fichier-de-out-type/"
    OpenFicLinks MyLink ' j'ai provoqué une erreur de lien en enlevant une lettre
 
    MyLink = "C:\Users\UserName\Documents\Fichiers Excel\Liens HyperTXT open pdf\vba.pdf"
    OpenFicLinks MyLink ' lien valide
    MyLink = "C:\Users\UserName\Documents\Fichiers Excel\Liens HyperTXT open pd\vba.pdf"
    OpenFicLinks MyLink ' j'ai provoqué une erreur de lien en enlevant une lettre
 
    MyLink = "http://excel-malin.com/codes-sources-vba/vba-verifier-si-fichier-sur-internet-existe/"
    OpenFicLinks MyLink
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function OpenFicLinks(ByVal LienValide As String)
Dim TF As Boolean, LienType$
 
    TF = True
' -------------------- Vérification Liens --------------------
    If InStr(LienValide, ":\") > 0 Then
        If Len(Dir(LienValide)) = 0 Then TF = False: LienType = " Fichier "
    ElseIf InStr(LienValide, "://") > 0 Then
        Dim oXHTTP As Object
        Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
            oXHTTP.Open "HEAD", LienValide, False
            oXHTTP.Send
            If xlErrValue Then TF = (oXHTTP.Status = 200): LienType = " Internet "
        Set oXHTTP = Nothing
    End If
 
    If TF = False Then MsgBox "Lien" & LienType & "non valide. A vérifier :" & vbCrLf & vbCrLf & LienValide: Exit Function
' -------------------- Fin Vérification Liens --------------------
 
Dim OuvrirFicEtLiens As Object
    Set OuvrirFicEtLiens = CreateObject("Shell.Application")
        OuvrirFicEtLiens.Open (LienValide)
    Set OuvrirFicEtLiens = Nothing
End Function

Voilà

Edit : Peut être que je ferai de même pour Mac si j'ai le temps …
PS : Bien sur les liens/chemins fichiers sont à remplacer dans Test_OpenFicLinks

12/05/2018, 20h17
david45500

Bonjour,

Merci "RyuAutodidacte" mais je n'arrive pas à faire fonctionner les codes je dois pas forcément les mettre au bon endroit, est-il possible de me dire à quel endroit je dois le positionner.

Merci
12/05/2018, 20h26
RyuAutodidacte
re,

D'abord tester le code tel qu'il est en le mettant dans un module standard et en remplaçant les chemins pour les fichiers par tes fichiers pdf dans ton ordi par exemple:
Code:

1 2 MyLink = "C:\Users\UserName\TonCheminAToi\tonfichier.pdf" OpenFicLinks MyLink
Test_OpenFicLinks et OpenFicLinks à mettre dans le même module (c'est pout test)

Edit : les liens internets on peut les laisser et faire le code en F8 pour mieux voir ce qui s y passe - fais moi savoir ce qu'il en est si c'est ok ou pas pour pourvoir l'inclure dans le code après …

Voir 40 message(s) de cette discussion en une page