Excel: problèmeavec lien hypertexte pointant sur f

07/11-2007 à 17:00Bonjour !
Quand je mets un lien hypertexte pointant vers un fichier pdf (avec acrobat reader 5) sur une feuille Excel et que je clique dessus, tout se passe impecc !
Si je passe par la macro:

Private Sub OuvertureLien()
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End sub

Tout se passe impec également

Mais ma macro est plus compliquée que cela: je passe par une combobox pour sélectionner un nom dans une liste et ensuite le fichier associé à ce nom s'ouvre excepté s'il n'y a pas de lien ou si le fichier n'existe pas.
Or, là problème ! Quand le lien est bon et que le fichier existe, il se passe un truc bizarre: le fichier s'ouvre normalement, mais en plus j'ai un message qui m'indique

Ouverture de C;\machin\bidule\truc.pdf
Certains fichiers peuvent contenir des virus qui peuvent
endommager votre ordinateur. Il est important de s'assurer
de la fiablitié de leur source
Voulez-vous ouvrir ce fichier ?
OK Annuler
si j'ai déjà fermé le fichier ouvert et que je clique sur OK, le fichier se rouvre à nouveau

Comment faire pour que ce message n'apparaisse pas, et pourquoi n'apparait-il que lorsque j'utilise ma macro ?

Ma macro:

'Gestion des liens morts ou fichiers introuvables
Dim Cible As String
'Vérifie si la cellule contient un lien hypertexte
' si oui continue la procédure de vérif
If ActiveCell.Hyperlinks.Count > 0 Then
'Extrait l'adresse du lien
Cible = ActiveCell.Hyperlinks(1).Address
'Vérifie si le fichier existe.
'Si oui exécute l'ouverture du fichier sur lequel pointe le lien
If Dir(Cible) <> "" Then
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

' Si non ouverture du MsgBox fichier introuvable
Else
MsgBox "Fichier introuvable"
ComboBox1.Clear
Exit Sub
End If
'Si la cellule ne contient pas un lien hypertexte
' ouverture du MsgBox Pas de lien
Else
MsgBox "Pas de lien"
ComboBox1.Clear

Exit Sub

End If

ComboBox1.Clear

End Sub

Modifie par Modifié par gaston le 07/11/20

----------
le bonheur n'est pas au bout du chemin, il EST le chemin
http://i22.servimg.com/u/f22/11/12/87/18/22-1810.jpg

07/11-2007 à 17:30Outils/Macros/Sécurité et mettre sur bas.

----------
http://www.raslfront.org/

07/11-2007 à 17:59oui mais pourquoi ça le fait pas tout le temps ?!!!

----------
le bonheur n'est pas au bout du chemin, il EST le chemin
http://i22.servimg.com/u/f22/11/12/87/18/22-1810.jpg

07/11-2007 à 18:32

pourquoi n'apparait-il que lorsque j'utilise ma macro ?

Parce qu'il s'agit d'une sécurité liée à l'ouverture des macros.

----------
http://www.raslfront.org/

08/11-2007 à 09:27ah bon ? alors pourquoi, lorsque je réduit ma macro à seulement ceci:

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

ça me le fait pas ?!!!

----------
le bonheur n'est pas au bout du chemin, il EST le chemin
http://i22.servimg.com/u/f22/11/12/87/18/22-1810.jpg

08/11-2007 à 11:46Parce que tu ne demandes pas l'ouverture d'un fichier.

----------
http://www.raslfront.org/

08/11-2007 à 17:13nan, ça vient pas de là !
Il semblerait en éxécutant la macro pas à pas, qu'il y ait une boucle:
la macro éxécute ceci:

If ActiveCell.Hyperlinks.Count > 0 Then
'Extrait l'adresse du lien
Cible = ActiveCell.Hyperlinks(1).Address
'Vérifie si le fichier existe.

If Dir(Cible) <> "" Then
'Si oui exécute l'ouverture du fichier sur lequel pointe le lien
Selection.Hyperlinks(1).Follow NewWindow:=False

puis l'éxécute une 2ème fois avant de s'arrêter ! Et ce qui est bizarre, c'est que cela ne le fait que lorsqu'on a sélectionné précédemment un nom sur lequel on a un des 2 msgBox d'erreur (pas de lien ou fichier introuvable). Si à l'ouverture du classeur on sélectionne un nom pour lequel le lien est bon, ça le fait pas !

----------
le bonheur n'est pas au bout du chemin, il EST le chemin
http://i22.servimg.com/u/f22/11/12/87/18/22-1810.jpg