Problème lien hypertexte - formule sierreur
Bonjour à tous,
Je rencontre actuellement un petit problème avec mon fichier Excel.
J'ai crée une base de donnée avec des liens hypertextes (lien fichier PDF) dedans. Dans un autre onglet, j'ai mis la formule =LIEN_HYPERTEXTE(SIERREUR(RECHERCHV($A$2&"_"&D10;'Base de donnée'!$A$2:$E$224;5;0);""))
La formule fonctionne très bien mais ... impossible d'ouvrir le lien hypertexte, j'ai un message d'erreur "Impossible d'ouvrir le fichier spécifié." Alors que dans la base de donnée, le lien s'ouvre très bien.
Merci de votre aide
Lucas
Bonjour
Sans savoir ce que contiennent les cellules indiquées dans ta formule, comment répondre?
Le chemin d'accès , répertoire du PDF est-il indiqué?
Bref, à défaut d'un fichier exemple, plus d'indications seraient nécessaires.
Cordialement
Bonjour Amadéus,
Excusez-moi, le fichier exemple est joint.
Le PDF s'ouvre correctement dans la base de donnée et pas dans le générateur de fiche. Donc le problème vient du fichier Excel et non du PDF.
Bonjour
En effet, ta formule ne renvoie que le texte affiché dans le lien et non le lien activé avec le chemin d'accès complet.
Avec un Code de Feuille "Générateur de fiche", tu as une solution pour remplacer ta formule par un lien activé
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("I10:I25")) Is Nothing Then
On Error Resume Next
Dim val As Long
val = Evaluate(WorksheetFunction.Match(Target, Sheets("Base de donnée").Range("$E:$E"), 0))
If Err.Number = 1004 Then
MsgBox "Cette valeur n'est pas présente dans la base"
ElseIf val > 0 Then
Sheets("Base de donnée").Range("E" & val).Copy
Sheets("Générateur de fiche").Target.Select
ActiveSheet.Paste
End If
End If
End Sub.Cordialement
Merci beaucoup pour ce retour.
Autre question qui n'a rien à voir avec cette discussion. Dans le même fichier, je voudrais créer une macro qui permet d'imprimer tous les liens hypertextes (PDF) en même temps.
Est ce possible ?
Bien à vous
Bonjour
Tu crées un Bouton et tu lui associe ce Code qui est dans un Module
Sub Imprimer_Liens()
Worksheets("Base de donnée").Range("E1", [E1].End(xlDown)).PrintOut Copies:=1
End SubCordialement
Parfait merci beaucoup
Bonne journée