Sub lancetls()
' Le programme à lancer :
dossier = "D:\Documents and Settings\All Users\Attachmate\EXTRA!\Sessions\" ' dossier ou extra est installé
ChDir dossier
Terminal = dossier & UCase(Dir(dossier + "zzz*.edp")) 'terminal
affichage = 6
RetVal = ShellExecute(hwnd, "Open", Terminal, ByVal 0&, 0&, affichage)