Discussion :

[graphikris]

Bonjour,
je cherche le bon terme pour ouvrir un fichier Pdf a partir d'une macro Excel.

Voici le code que je présumais correct mais qui n'ouvre pas Acrobat Reader

Code :

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

Set AcApp = CreateObject("Acrobat.application")

[kiki29]

Salut, à adapter à ton contexte

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
Sub Tst()
Dim sFichier As String, WsShell As Object
    sFichier = "C:\.....\Essai.pdf"
    Set WsShell = CreateObject("WScript.Shell")
    WsShell.Run "AcroRd32 " & sFichier
    Set WsShell = Nothing
End Sub

Il me semble qu'en plus cela à l'avantage d'éviter l'avertissement sur les fichiers PDFs comme n'étant pas sûrs.

[Marc-L]

Bonjour,

utiliser DocOpen pour n'importe quel type de document dont l'extension est bien enregistrée dans les associations de Windows …

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

______________________________________________________________________________________________________
Je suis Paris, Charlie, …

[graphikris]

merci a vous je vais tester

[graphikris]

Bonjour,

utiliser DocOpen pour n'importe quel type de document dont l'extension est bien enregistrée dans les associations de Windows …

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

______________________________________________________________________________________________________
Je suis Paris, Charlie, …

Test non concluant. Bloque tjrs.

[Marc-L]

Dans ce cas utiliser la méthode Workbook.FollowHyperlink …



______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[graphikris]

Bjr MARC L

je met donc ce code dans Workbook

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
DocOpen (Fichier$)
    On Error Resume Next
    CreateObject("WScript.Shell").Run _
    CreateObject("Scripting.FileSystemObject").GetFile(Fichier).ShortPath
 
End Sub

mais ensuite que dois je modifier dans mon code cité dans ce post ?
http://www.developpez.net/forums/d15...-vers-doc-pdf/

[Marc-L]

Non pas l'évènement ‼ Et tu as pourtant affirmé que cela ne marchait pas, donc pas plus dans un évènement …

Juste utiliser la m é t h o d e FollowHyperlink comme documentée dans l'aide VBA interne !

Un exemple dans cette discussion en ligne n°5 …

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[graphikris]

Je ne veux pas faire apparaître une photo.
J'ai un logo du style "Telecharger" sur lequel doit ce déclencher une macro qui ouvre un lien hypertexte.
Ce lien ouvre un fichier soit Doc soit Word en fonction du choix en cellelue Q9 (liste déroulante)

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
Sub RechercheFichesProgres()
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Dos = fso.getfolder("Disk")
    For Each Fich In Dos.Files
        If InStr(1, Fich.Name, Range("Q9").Value) > 0 Then
            Select Case fso.getextensionname(Fich)
                Case "pdf"
                    Set AcApp = CreateObject("Acrobat.application")
                    AcApp.Documents.Open Filename:=Fich
                Case "doc"
                    Set WdApp = CreateObject("Word.application")
                    WdApp.Documents.Open Filename:=Fich
                    WdApp.Visible = True
                Case Else
                    Stop
            End Select
        End If
    Next
    Set Dos = Nothing
    Set fso = Nothing
End Sub

[Marc-L]

Ai-je évoqué une photo ?‼ Ma pauvre Lucette …

Rien qu'en lisant l'aide VBA de cette méthode, ce serait déjà bouclé … Oui, lis là !

[kiki29]

Salut, pour info, si tu veux absolument ouvrir un PDF via Adobe Acrobat ( pas le Reader ) en Late Binding ( pas de référence à cocher ) ( voir ici )

Voir Visualisation ( pas avec le Reader ) d'un PDF

[graphikris]

Bonjour

Pour MARC L : T dur avec moi. C'est pas sympa

Pour Kiki : Dsl, je n'ai que le Reader.

Tant pis, je laisse tomber, ça me gonfle.

Je dirais au boss que je ne sais pas faire.

[kiki29]

Re, que donne ce post ?
Tout ça pour te dire que ton Set AcApp = CreateObject("Acrobat.application") ne fonctionnera jamais et ne correspond à rien.

[Marc-L]

T dur avec moi. C'est pas sympa

Non car ce n'est vraiment pas compliqué de lire l'aide VBA de la méthode FollowHyperlink et l'exemple que je t'ai fourni,

il suffit pourtant d'une seule et unique instruction ‼

Pour autant que ton ordinateur, pour ne pas dire Windows, soit en bon état de marche …
Si dans l'Explorateur Windows, un double-clic sur un fichier .pdf l'ouvre, cette méthode fonctionne !
Et il y a d'autres exemples de cette méthode dans les discussions de ce forum; m'enfin, pour une seule ligne de code …

______________________________________________________________________________________________________
L'avenir n'appartient pas qu'à ceux se levant tôt mais surtout à ceux se donnant la peine de lire …

[graphikris]

De toutes manieres aujourdhui y a rien qui va.

Au boulot, j'ai XLS 2010 et a la maison j'ai 2013.

J'ai travaillé sur la BdD tte la journée, je l'ai copié sur ma USB, je l'ai rouverte pour voir si tout allé bien et quand je l'ouvre chez moi, j'ai "Fichier Corrompu".
ça m'a déjà fait ça hier mais au bout de X tentatives, j'ai pu l'ouvrir a la maison. Ce matin quand j'ai rouvert ma USB au boulot, j'ai eu "Manque DLL".

ça me gonfle vraiment. C'est quoi le probléme a part moi ???

[Marc-L]

Tester en ne l'ouvrant pas directement de la clef USB :

copier le fichier d'abord en local sur le disque dur, comme cela le fichier sur la clef reste une sauvegarde.

Ensuite vérifier si des références sont manquantes, auquel cas les décocher …

[graphikris]

c se que j'ai fait dans les 2 sens (boulot maison)
j'ai repare XLS 2013 mais tjrs pareil. Pourquoi manque DLL ?
A la maison, ca me dit corrompu et on boulot je l'ouvre sans pb ???

[Marc-L]

c se que j'ai fait dans les 2 sens (boulot maison)

Apparemment non :

Ce matin quand j'ai rouvert ma USB au boulot, j'ai eu "Manque DLL".

Avec des informations contradictoires, difficile de t'aider …

Pourquoi manque DLL ?

Commencer par vérifier les références, les add-ins …

Sinon pour une BDD, vive Access ! Excel pouvant aussi servir d'interface pour accéder aux données d'une bdd Access …

[graphikris]

merci qd meme

je clos le post