VBA - Ouvrir un pdf depuis excel

[wizard0147]

Bonjour à tous,

Encore une fois, j'ai un petit problème sur Excel.

Je cherche à ouvrir un document pdf se trouvant dans un répertoire à partir d'excel.

Imaginons qu'en A1, je tape la référence d'un produit. Je souhaite créer une macro qui repère le nom en A1 pour aller chercher le fichier dans le repertoire :G:\...\...\"Référence en A1".pdf puis l'ouvrir.

J'espère être suffisament clair.

Merci d'avance

 

[kiki29]

Re : VBA - Ouvrir un pdf depuis excel

Salut, à adapter à ton contexte

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1

Option Explicit
 
Private Sub OpenPdf(sNomFichier As String)
Dim Rep As Integer
Dim hwnd As Long
    Rep = ShellExecute(hwnd, "Open", sNomFichier, 0&, 0&, SW_SHOWNORMAL)
End Sub

Sub Tst()
Dim sDossier As String
Dim sFichier As String
    sDossier = "C:\Faq\FaqVba\Exemples\SendMails_PDF"
    sFichier = "ApiDistillerRef_7.0.5.pdf"
    
    OpenPdf (sDossier & "\" & sFichier)
End Sub

 

[wizard0147]

Re : VBA - Ouvrir un pdf depuis excel

Merci beaucoup kiki29.

Par contre , je t'avoue ne rien comprendre.
Il est ou le bout qui indique le nom en A1 ?
Qu'est-ce que je dois modifier exactement ?

Désolé 🙁

 

[kiki29]

Re : VBA - Ouvrir un pdf depuis excel

Re, je pensais que cela était facile, mais bon

sFichier = Range("A1")

 

[wizard0147]

Re : VBA - Ouvrir un pdf depuis excel

Ok j'ai compris.J'ai bien modifié le chemin du dossier et mis la cellule.
Le seul problème est que, dans la cellule, je ne mets que le nom du fichier et pas son extension. Le fichier ne s'ouvre donc pas...

Est-il possible de rajouter l'extension au texte qui se trouve dans la cellule?

Merci d'avance

 

[kiki29]

Re : VBA - Ouvrir un pdf depuis excel

La réponse est oui

 ... & ".pdf"

 

[wizard0147]

Re : VBA - Ouvrir un pdf depuis excel

Solution très simple et très efficace.

Un grand merci pour ton aide 🙂