XL 2013 Aide macro sous excel

[paita]

Bonjour

J'ai fait une macro et contente cela fonctionne mais j'ai besoin d'ouvrir le fichier (pdf) pour lecture, quel code je dois rajouter ?
Merci beaucoup pour votre aide

Sub Recherche()
Dim NomFichier As String

NomFichier = RechercheFichier()
If NomFichier = "" Then
MsgBox "Vous n'avez sélectionné aucun fichier"
Else
'Workbooks.Open NomFichier
End If
End Sub

Function RechercheFichier() As String
Dim fd As FileDialog
Dim NomFichier As String

Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Filters.Add "fichier pdf", "*.pdf"
.Title = "Recherche de fichier"
'mettre le chemin du repertoire
.InitialFileName = ""
End With
If fd.Show = -1 Then NomFichier = fd.SelectedItems(1)

RechercheFichier = NomFichier
Set fd = Nothing
End Function

 

[sylvanu]

Bonjour Paita,
Utilisez les balises </> pour le code c'est plus lisible.
Un essai :

Sub Recherche()
Dim NomFichier As String
    NomFichier = RechercheFichier()
    Set Appli = CreateObject("Shell.Application")
    If NomFichier = "" Then
        MsgBox "Vous n'avez sélectionné aucun fichier"
    Else
        Appli.Open (NomFichier)
    End If
End Sub
Function RechercheFichier() As String
    Dim fd As FileDialog
    Dim NomFichier As String
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Filters.Add "fichier pdf", "*.pdf"
        .Title = "Recherche de fichier"
        'mettre le chemin du repertoire
        .InitialFileName = ""
    End With
    If fd.Show = -1 Then NomFichier = fd.SelectedItems(1)
    RechercheFichier = NomFichier
    Set fd = Nothing
End Function

 

[paita]

Merci mais cela ne fonctionne pas

 

[sylvanu]

Bonjour,

Merci mais cela ne fonctionne pas

C'est un peu succinct; Qu'est ce qui ne marche pas ?

Car si je vous ai livré ce module, c'est que je l'avais testé :

 

[paita]

Mille mercis, vraiment ; j'avais omis un paramètre et là cela fonctionne super bien ; vous êtes un as

Bonne journée, au plaisir

Bonjour,

C'est un peu succinct; Qu'est ce qui ne marche pas ?

Car si je vous ai livré ce module, c'est que je l'avais testé :

Regarde la pièce jointe 1101401