ouvrir n'importe quel fichier avec vba

Bonsoir
Une solution sans utiliser les liens hypertextes
=============== Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As _
String, ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal lpszDir As String, ByVal fsShowCmd As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Const SW_SHOWNORMAL = 1

Function StartDoc(DocName As String) As Long
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
StartDoc = ShellExecute(Scr_hDC, "Open", DocName, _
"", "C:", SW_SHOWNORMAL)
End Function

Sub Test()
Dim r As Long
Dim ledoc As String
ledoc = [a2]
r = StartDoc(ledoc)
End Sub
Daniel

--
FAQ MPFE
FAQ du forum microsoft.public.fr.excel
http://dj.joss.free.fr/faq.htm


"dav" <dav_lambich@hotmail.com> a écrit dans le message de news:
1167758721.535525.89510@k21g2000cwa.googlegroups.com...
Bonsoir à tous,

Mes meilleurs voeux en cette nouvelle année...

J'ai dans une colonne une liste de chemins de fichiers de types
différents PDF, DOC, JPG, etc...

J'extrais à l'aide des fonctions Index+Equiv LE chemin du fichier que
je désire ouvrir dans la cellule A1.

En A2 je tape: "=LIEN_HYPERTEXTE(A1)"

Ainsi en cliquant sur A2, le fichier sélectionné s'ouvre

Maintenant, au lieu de cliquer dans la cellule A2, je voudrais pouvoir
lancer le lien en cliquant sur un bouton...

J'ai essayé plusieurs scripts en VBA associés à un bouton d"action
mais rien ne marche.

Quelqu'un aurait-il la solution???

merci

çà marche !!!

SUPER...

Un grand merci Daniel !!!!