Fichier introuvable

bonjour tout le monde

j'ai un code vba access qui permet de faire un enregistrement vocal a l'aide d'un micro, le problem est qu'il marche sous XP pas Win7.
Quand je le lance l'erreur suivant s'affiche "fichier introuvable"

Public Sub LancerUnProgramme(ByVal NomDuProgramme As String)
'''' ------------------------------------------------------------------------
'''' - Lance l'instance d'un programme définit par NomDuFichier
'''' - Paramètres : NomDuProgramme = Nom du programme exécutable
'''' ------------------------------------------------------------------------
Dim lngAppPID As Long
Dim lngWindowHandle As Long

    lngAppPID = Shell(NomDuProgramme, SW_SHOWNORMAL)
End Sub

merci d'avance