Probleme de lien hypertexte macro
Cris68300
Messages postés
104
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous,
Je viens vers vous afin de savoir si quelqu'un connait la solution à mon problème…
Je cherche, lors de l'exécution de la validation du devis, que mon code génère un lien hypertexte pour le fichier excel et pdf. Colonne I et J dans "liste devis" .
Le but est de pouvoir revenir sur un devis enregistré dans la banque de donnée, afin de le modifier si nécessaire.
Actuellement que je clique sur le lien, j'ai: impossible d'ouvrir le fichier…
Merci d'avance.
Cris
https://cjoint.com/c/HItop7Y5FD2
Je viens vers vous afin de savoir si quelqu'un connait la solution à mon problème…
Je cherche, lors de l'exécution de la validation du devis, que mon code génère un lien hypertexte pour le fichier excel et pdf. Colonne I et J dans "liste devis" .
Le but est de pouvoir revenir sur un devis enregistré dans la banque de donnée, afin de le modifier si nécessaire.
Actuellement que je clique sur le lien, j'ai: impossible d'ouvrir le fichier…
Merci d'avance.
Cris
https://cjoint.com/c/HItop7Y5FD2
A voir également:
- Probleme de lien hypertexte macro
- Lien url - Guide
- Créer un lien pour partager des photos - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Verificateur de lien - Guide
- Renommer un lien hypertexte ✓ - Forum Bugs et suggestions
1 réponse
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
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
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.
@+