Sujet Précédent Sujet Suivant

Ouvrir .pdf par macro dans Excel

Résolu/Fermé
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - Modifié le 1 avril 2019 à 10:35
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 1 avril 2019 à 12:20
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
A voir également:

3 réponses

Réponse 1 / 3
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
Modifié le 1 avril 2019 à 11:26
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
1
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 1 avril 2019 à 11:54
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à
0
Réponse 2 / 3
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
1 avril 2019 à 10:59
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

0
Réponse 3 / 3
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
1 avril 2019 à 12:20
Tous mes remerciements c'est parfait
Bonne journée
0