Réponse acceptée !
Salut,
Un code sùrement péché sur codes-sources mais je ne me souviens pas de l'auteur ni du numéro de code, s'il se reconnait... :
Dim DelProg As Integer
DelProg = FreeFile
Open App.Path & "\main.bat" For Output As #DelProg
Print #DelProg, "@echo off"
Print #DelProg, ":debut"
Print #DelProg, "del """ & App.Path & "\" & App.EXEName & ".exe"""
Print #DelProg, "if exist """ & App.Path & "\" & App.EXEName & ".exe""" & " goto debut"
Print #DelProg, "del """ & App.Path & "\main.bat"""
Close #DelProg
Shell App.Path & "\main.bat", vbHide
Dim f As Form
For Each f In Forms
Unload f
Next
-------------------------------------------------
Dresseur de puces, .... normal pour un loup 
!?