Menu

Ouvrir .pdf par macro dans Excel [Résolu]

Messages postés
318
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
18 juin 2019
-
Bonjour,

Je veux relier une macro à une forme mais ça ne marche pas
Merci pour votre aide

 Sub Tuto()
ThisWorkbook.FollowHyperlink "C:\ADD\DocPdfTutoriel.pdf"
End Sub





Configuration: Windows / Firefox 66.0
Afficher la suite 

3 réponses

Messages postés
6107
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 juin 2019
370
0
Merci
Bonjour,

Voir ceci:

https://codes-sources.commentcamarche.net/source/101647-ouvrir-un-pdf-a-une-page-donnee

Tu colles la nouvelle version dans le module de ta feuille

Commenter la réponse de cs_Le Pivert
Messages postés
318
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
18 juin 2019
5
0
Merci
Bonjour cs_Le Pivert
Heureux de te retrouver et merci de me répondre*Ce que je voudrais en fait c'est simplement ouvrir le .pdf sans alerte quelconque mais ça marche pas
Le fichier se trouve :
C:\ADD\DocPdf\Tutoriel.pdf
cs_Le Pivert
Messages postés
6107
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 juin 2019
370 -
comme ceci dans un CommandButton:

Private Sub CommandButton1_Click()
ThisWorkbook.FollowHyperlink "C:\ADD\DocPdf\Tutoriel.pdf"
End Sub


si cela ne fonctionne pas, c'est que ton chemin n'est pas bon!

si tu veux être sur d'avoir le bon chemin:

Private Sub CommandButton1_Click()
Dim intChoice As Integer
Dim strPath As String
'Supprimer tous les autres filtres
Call Application.FileDialog(msoFileDialogOpen).Filters.Clear
'Ajouter un filtre personnalisé
Call Application.FileDialog(msoFileDialogOpen).Filters.Add( _
    "PDF Files Only", "*.pdf")
'faire la boîte de dialogue de fichier visible pour l'utilisateur
intChoice = Application.FileDialog(msoFileDialogOpen).Show
'déterminer quel choix l'utilisateur a fait
If intChoice <> 0 Then
    'obtenir le chemin de fichier sélectionné par l'utilisateur
    strPath = Application.FileDialog( _
        msoFileDialogOpen).SelectedItems(1)
    ThisWorkbook.FollowHyperlink strPath 'ouvre le pdf
End If
End Sub


Voilà
Commenter la réponse de jean300
Messages postés
318
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
18 juin 2019
5
0
Merci
Tous mes remerciements c'est parfait
Bonne journée
Commenter la réponse de jean300