Discussion :

[ln0331]

Bonjour,


voici le pb:

dans une colonne j'ai une liste correspondant au nom de fichiers PDF (ceux ci sont situés dans le même dossier).
Dans cette colonne j'ai attribué les liens hypertextes vers les fichiers PDF via une macro.
Cependant, lorsque je clique sur les liens, l'application Adobe s'ouvre et se referme aussitôt sans avoir eu le temps de voir le fichier.

en recherchant sur le net j'ai trouvé la fonction Shell.


Mais je ne sais pas comment l'intégrer à un lien hypertexte.


Quelqu'un pourrait m'aider ?


Merci d'avance.

[ouskel'n'or]

Peux-tu nous montrer le 1er code utilisé, sans utilisation du shell ? Ou si c'est le lien dans la cellule que tu utilises, nous montrer ce lien ?
A+

[SilkyRoad]

bonsoir

il me semble qu'il y a une version d'adobe qui pose ce genre de soucis mais je ne sais plus laquelle.


sinon tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.FollowHyperlink "C:\dossier\rapport.pdf"

bonne soirée
michel

[ln0331]

Ma macro pour le lien hypertexte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Hypertexte()
 
'declaration des variables
Dim vLien, vChemin As String, c As Range
 
 
For Each c In Range("J2", Range("J2").End(xlDown))
's'il existe un nom dans la cellule alors
If c <> "" Then
    'definition du chemin
    vChemin = "X:\dossier\"
    'concaténation du chemin, du nom du fichier et de l'extension
    vLien = vChemin & c & ".pdf"
    'on active le lien hypertexte
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:=vLien
Else
    Exit Sub
End If
Next
 
End Sub

(Source : http://www.cathyastuce.com/w-agora/v...key=1084971752)


Et comme dit précédemment l'application adobe se referme immédiatement.

Est-ce qu'il y aurait un autre moyen ?

[ouskel'n'or]

Je soupçonne quelque chose. Ton code fonctionne si je fais ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub CréerDesLiens()
Dim Chemin, lien
    Chemin = "D:\Oliv\Egypte\"
    'concaténation du chemin, du nom du fichier et de l'extension
    lien = Chemin & "Egypte.pdf"
    'on active le lien hypertexte
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 1), Address:=lien
 
End Sub

Deux questions : Que vient faire c dans cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

vLien = vChemin & c & ".pdf"

si tu fais Anchor:=c dans cette ligne

ActiveSheet.Hyperlinks.Add Anchor:=c, Address:=vLien

Si c est une adresse je mettrais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

vLien = vChemin & c.value & ".pdf"

mais si c'est autre chose, alors... tu vois ce que c'est mais tu ne peux pas avoir à la fois une adresse et un nom de fichier (p't-être c.address... ?)
Bref, vérifie c et adapte en conséquence
A+

[ln0331]

le c contient la valeur de la cellule : c'est en fait le nom de mon fichier;
(voir code plus haut)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
     vChemin = "X:\dossier\"
    'concaténation du chemin, du nom du fichier et de l'extension
    vLien = vChemin & c & ".pdf"
    'on active le lien hypertexte
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:=vLien

sinon y aurait-il un moyen de contourner le pb ? (a part mettre à jour le logiciel Adobe)