Application.WindowState = xlNormal
Global Const Rep_txt = "C:\Users\Electman-67\Desktop" Global Const Rep_notepad = "C:\windows\system32\notepad.exe" Sub Macro1() MyAppID = Shell(Rep_notepad + " " + Rep_txt + "\vid2.txt", 2) MyAppID = Shell(Rep_notepad + " " + Rep_txt + "\Ddl.txt", 1) MyAppID = Shell("vid2.txt", 1) 'ici je veut réutiliser le fichier vid2.txt qui est encore ouvert mais pas en vue active sans avoir a le réouvrir End Sub