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)

[ouskel'n'or]

As-tu essayé

Code :

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

ActiveSheet.Hyperlinks.Add Anchor:=c.address, Address:=lien

Le code réclame ici une adresse, pas un nom de fichier.
A+

Edit

Anchor Argument de type Object obligatoire. Ancre du lien hypertexte. Il peut s'agir d'un objet Range ou d'un objet Shape.

Donc, pas un nom de fichier

[kiki29]

Soir Bon, à adapter
Dans mon cas les fichiers s'ouvrent via Acrobat Reader 8.1.1 ou Adobe Acrobat Pro 6.0.6

[ln0331]

Ca marche super bien ton programme : mais je crois que c la version d'Acrobat
qui ne va pas (version 7.0)....

[ouskel'n'or]

Non, ce n'est pas la version, j'ai Acrobat Reader 7.0. Si tu as lu mon post précédent, et que tu as testé la syntaxe que je t'ai passée, que tu as réussi à ouvrir ton fichier avec Acrobat 7.0, et que ça ne fonctionne toujours pas avec VBA, alors le problème est ailleurs.
Vérifie le nom complet du fichier que tu souhaites ouvrir. Il ne manque rien ?
Bonne journée

[kiki29]

Jour Bon
Effectivement c'est la version qui est en cause
http://www.google.fr/search?hl=fr&q=...link+bug&meta=
http://support.microsoft.com/kb/897755
Ils renvoient à un update 7.0.1

[ouskel'n'or]

Autant pour moi. Sur la version que j'ai il est partout écrit 7.0 mais si je vais dans "A propos", j'ai en réalité la version 7.09 !
Par contre, ce que je t'ai mis à propos du paramètre Anchor reste valable.

[ln0331]

Merci pour toutes ces précisions : je vais faire la mise à jour.