Ouvrir un pdf sous excel Résolu/Fermé

Question

Bonjour,
Je souhaiterais lorsque je double clique sur une cellule ouvrir un doc pdf.
Voila le code que j'ai fait mais qui ne marche pas:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$H$11" Then
Shell "C:\Program Files\Adobe\Acrobat 9.0\Reader\AcroRd32.exe C:\Documents and Settings\aurmad\Bureau\Plan d'urgence\Plan\LAAS plan de masse.pdf", vbNormalFocus
End If
End Sub

Il doit manquer quelque chose quelque part mais quoi??
Merci d'avance

hich24 · Answer

pourquoi ne pas utiliser les liens hypertext c'est plus simple non !

madounet · Answer

oui c'est plus simple mais étant donnée que c'est une base de données pour mon boulot, il faut que tout soit clean question de crédibilité...
j'ai beau chercher sur les forums, mais je ne trouve pas solution!!

madounet · Answer

C'est bon problème résolu.
Pour ceux que ca intéresse voila comment j'ai fait (un code trouvé sur un autre forum":

If Target.Address = "$H$11" Then
ThisWorkbook.FollowHyperlink "C:\Documents\....pdf"
End If
End Sub

hich24 · Answer

tu peut inserer une forme automatique a partire de la barre de dessin ( rectangel par exemple ) tu met sur la cellule " en mentenant la touche ALT enfoncer " pour avoire la forme exactement a la taille de la cellule 

2- clicke droit lein hypertext tu choisie le fichier est c'est ok 
3- tu peut supprimer la bordure et mettre en transparent ca devrait etre estitique

Ouvrir un pdf sous excel

4 réponses

Discussions similaires

Newsletters