VBA lancement shell d'un fichier raccourci

Bonjour,

une petite question bête et de base, mais je n'arrive pas à trouver la solution.

j'aimerais à partir de ma macro VBA Excel lancer un raccourci qui se nomme toto et qui est située dans le répertoire courant du programme.

Code:

---

Shell (ActiveWorkbook.path & "\toto")

---

mais cela ne fonctionne pas.
On peut lancer des exécutables, mais il me refuse de lancer des raccourcis, or c'est ce que j'ai besoin.

Merci de votre retour.
Ritchie.

Hello,

essaie avec l'API ShellExecute (code dispo dans la FAQ).

Bonjour
pour ouvrir des fichiers sans préciser l'exécutable on peut utiliser la méthode ci-dessous qui est à adapter bien sûr

Code:

---

1 2 3 4 5 6

' déclaration en début de module Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String,ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String,ByVal nShowCmd As Long) As Long     'utilisation ShellExecute 0&, vbNullString, ActiveWorkbook.path & "\toto",vbNullString, vbNullString, vbNormalFocus

---

Salut,

merci beaucoup. La Function ShellExecute fonctionne parfaitement !!

Ritchie.