[myDearFriend!]

Bonsoir Canard,

Normalement, le code ci-dessous devrait suffire :

Sub OuvreBlocNote()
Dim R As Double
      R = Shell('notepad.exe', 4)
End Sub

Si ça ne fonctionne pas, alors indique le chemin complet de l'application notepad.exe.

Cordialement,