Bonjour
exemple fourni dans l'aide en ligne Microsoft de VBA
' Si vous attribuez la valeur 1 au deuxième argument,
' l'application s'ouvre à sa taille normale
' et devient l'application active.
Dim RetVal
' Exécute la calculatrice.
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)
Cas adapté à Windows XP
Sub CalWin()
Dim RetVal
RetVal = Shell("C:\WINDOWS\SYSTEM32\CALC.EXE", 1)
End Sub