Discussion :

[ritchie23]

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 :

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

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.

[cafeine]

Hello,

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

[fgiambelluco]

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 :

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

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

[ritchie23]

Salut,

merci beaucoup. La Function ShellExecute fonctionne parfaitement !!

Ritchie.