Probleme de lien hypertexte macro
Fermé
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
-
19 sept. 2018 à 16:16
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 21 sept. 2018 à 15:47
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 21 sept. 2018 à 15:47
A voir également:
- Probleme de lien hypertexte macro
- Lien url - Guide
- Verifier un lien - Guide
- Créer un lien pour partager des photos - Guide
- Macro logiciel - Télécharger - Organisation
- Macro word - Guide
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
19 sept. 2018 à 18:45
19 sept. 2018 à 18:45
Bonjour,
comme ceci:
Le chemin des fichiers est pour des fichiers dans le même dossier que le classeur lançant la macro.
A adapter si necessaire
comme ceci:
Option Explicit Private Sub CommandButton1_Click() Application.DisplayAlerts = False 'enregistrement classeur ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\monclasseur.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 'lien hypertexte classeur Range("I1").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ThisWorkbook.Path & "\monclasseur.xlsx", _ TextToDisplay:="monclasseur.xlsx" 'enregistrement PDF ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\monpdf.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False 'lien hypertexte PDF Range("J1").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ThisWorkbook.Path & "\monpdf.pdf", _ TextToDisplay:="monpdf.pdf" Application.DisplayAlerts = True MsgBox "Réussie" End Sub
Le chemin des fichiers est pour des fichiers dans le même dossier que le classeur lançant la macro.
A adapter si necessaire
21 sept. 2018 à 15:33
Je n'arrive pas à adapter ton code, cela ne veut pas dire qu'il ne fonctionne pas…
Du coup j'essaye de faire fonctionner le mien, voici où j'en suis:
Le seul problème:
- En cliquant sur hypertext créé du excel, j'attérie dans le dossier où se trouve mon fichier. Alors que j'aimerais OUVRIR ce fichier automatiquement.
-Pour le Pdf, j'ai la même erreur qu'avant, "impossible d'ouvrir le fichier spécifié"
Merci d'avance pour vos réponses.
Cordialement,
Cris
21 sept. 2018 à 15:47
c'est pourtant simple il suffisait de faire un copier coller et de changer le chemin de ton dossier comme ceci:
par
C'est normal que cela ne fonctionne pas, tu n'as pas mis le nom du fichier avec son extension
et là il y a simplement que l'extension sans le nom du fichier:
regarde ce que j'ai fait ici:
et là:
ThisWorkbook.Path est le chemin du dossier dans lequel se trouve ton classeur. Ceci est très pratique car tu peux changer de place ton dossier ou de pc cela fonctionnera toujours. C'est à privilégier à un chemin en dur qu'il faudra adapter.
@+