XL 2013 Aide macro sous excel

paita

XLDnaute Nouveau
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

XLDnaute Barbatruc
Supporter XLD
Bonjour Paita,
Utilisez les balises </> pour le code c'est plus lisible.
Un essai :
VB:
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
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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é :

20210407_121509.gif
 

Discussions similaires

Réponses
2
Affichages
164

Statistiques des forums

Discussions
286 624
Messages
1 877 552
Membres
160 769
dernier inscrit
Yudlo
Haut Bas