Télécharger le zip
Salut NHenry Malheureusement tes sources ne fonctionnent pas sous XP ou peut-être aussi sous d'autres Windows Voici pour exemples quelques erreures. '------------------------------------------------------- Prj1.vbp = Err 52 Private Sub Form_Load() i = 0 a = 0 Chem = App.Path If Command$ <> "" Then If Dir(Command$ + "*.*") <> "" Then '------------------------------------------------------- Prj2.vbp = Err 53 Private Sub Form_Load() If App.PrevInstance = True Then End: Exit Sub If Dir(App.Path + "