Comment optimiser une macro?
n
Bonjour,
Dans un fichier excel, j'ai la macro ci-dessous :
Sub Action()
Select Case Sheets("Order").Cells(1, 4).Value
Case "SNPFD1"
Shell ("C:\Chemin Dossier\D1\SNPFD1.exe")
Case "FDD1"
Shell ("C:\Chemin Dossier\D1\FDD1.exe")
Case "CLD1"
Shell ("C:\Chemin Dossier\D1\CLD1.exe")
Case "CKD1"
Shell ("C:\Chemin Dossier\D1\CKD1.exe")
Case "BD1"
Shell ("C:\Chemin Dossier\D1\BD1.exe")
Case "RD1"
Shell ("C:\Chemin Dossier\D1\RD1.exe")
Case "OPREPD1"
Shell ("C:\Chemin Dossier\D1\OPRCOD1.exe")
Case "OPRCOD1"
Shell ("C:\Chemin Dossier\D1\OPRCOD1.exe")
Case "OPRBTND1"
Shell ("C:\Chemin Dossier\D1\OPRCOD1.exe")
Case "OPRSBD1"
Shell ("C:\Chemin Dossier\D1\OPRSBD1.exe")
Case "50B-20D1"
Shell ("C:\Chemin Dossier\D1\50B-20D1.exe")
Case "50B-18D1"
Shell ("C:\Chemin Dossier\D1\50B-18D1.exe")
Case "50B-16D1"
Shell ("C:\Chemin Dossier\D1\50B-16D1.exe")
Case "50B20D1"
Shell ("C:\Chemin Dossier\D1\50B20D1.exe")
Case "50B18D1"
Shell ("C:\Chemin Dossier\D1\50B18D1.exe")
Case "50B16D1"
Shell ("C:\Chemin Dossier\D1\50B16D1.exe")
Case "50B-14D1"
Shell ("C:\Chemin Dossier\D1\50B-14D1.exe")
Case "50B-12D1"
Shell ("C:\Chemin Dossier\D1\50B-12D1.exe")
Case "50B-10D1"
Shell ("C:\Chemin Dossier\D1\50B-10D1.exe")
Case "50B-8D1"
Shell ("C:\Chemin Dossier\D1\50B-8D1.exe")
Case "50B-6D1"
Shell ("C:\Chemin Dossier\D1\50B-6D1.exe")
Case "50B-4D1"
Shell ("C:\Chemin Dossier\D1\50B-4D1.exe")
Case "50B-2D1"
Shell ("C:\Chemin Dossier\D1\50B-2D1.exe")
Case "50B0D1"
Shell ("C:\Chemin Dossier\D1\50B0D1.exe")
Case "50B2D1"
Shell ("C:\Chemin Dossier\D1\50B2D1.exe")
Case "50B4D1"
Shell ("C:\Chemin Dossier\D1\50B4D1.exe")
Case "50B6D1"
Shell ("C:\Chemin Dossier\D1\50B6D1.exe")
Case "50B8D1"
Shell ("C:\Chemin Dossier\D1\50B8D1.exe")
Case "50B10D1"
Shell ("C:\Chemin Dossier\D1\50B10D1.exe")
Case "50B12D1"
Shell ("C:\Chemin Dossier\D1\50B12D1.exe")
Case "50B14D1"
Shell ("C:\Chemin Dossier\D1\50B14D1.exe")
Case "50B-19D1"
Shell ("C:\Chemin Dossier\D1\50B-19D1.exe")
Case "50B-17D1"
Shell ("C:\Chemin Dossier\D1\50B-17D1.exe")
Case "50B-15D1"
Shell ("C:\Chemin Dossier\D1\50B-15D1.exe")
Case "50B-13D1"
Shell ("C:\Chemin Dossier\D1\50B-13D1.exe")
Case "50B-11D1"
Shell ("C:\Chemin Dossier\D1\50B-11D1.exe")
Case "50B-9D1"
Shell ("C:\Chemin Dossier\D1\50B-9D1.exe")
Case "50B-7D1"
Shell ("C:\Chemin Dossier\D1\50B-7D1.exe")
Case "50B-5D1"
Shell ("C:\Chemin Dossier\D1\50B-5D1.exe")
Case "50B-3D1"
Shell ("C:\Chemin Dossier\D1\50B-3D1.exe")
Case "50B-1D1"
Shell ("C:\Chemin Dossier\D1\50B-1D1.exe")
Case "50B1D1"
Shell ("C:\Chemin Dossier\D1\50B1D1.exe")
Case "50B3D1"
Shell ("C:\Chemin Dossier\D1\50B3D1.exe")
Case "50B5D1"
Shell ("C:\Chemin Dossier\D1\50B5D1.exe")
Case "50B7D1"
Shell ("C:\Chemin Dossier\D1\50B7D1.exe")
Case "50B9D1"
Shell ("C:\Chemin Dossier\D1\50B9D1.exe")
Case "50B11D1"
Shell ("C:\Chemin Dossier\D1\50B11D1.exe")
Case "50B13D1"
Shell ("C:\Chemin Dossier\D1\50B13D1.exe")
Case "50B15D1"
Shell ("C:\Chemin Dossier\D1\50B15D1.exe")
Case "50B17D1"
Shell ("C:\Chemin Dossier\D1\50B17D1.exe")
Case "50B19D1"
Shell ("C:\Chemin Dossier\D1\50B19D1.exe")
Case "75B-20D1"
Shell ("C:\Chemin Dossier\D1\75B-20D1.exe")
Case "75B-18D1"
Shell ("C:\Chemin Dossier\D1\75B-18D1.exe")
Case "75B-16D1"
Shell ("C:\Chemin Dossier\D1\75B-16D1.exe")
Case "75B20D1"
Shell ("C:\Chemin Dossier\D1\75B20D1.exe")
Case "75B18D1"
Shell ("C:\Chemin Dossier\D1\75B18D1.exe")
Case "75B16D1"
Shell ("C:\Chemin Dossier\D1\75B16D1.exe")
Case "75B-14D1"
Shell ("C:\Chemin Dossier\D1\75B-14D1.exe")
Case "75B-12D1"
Shell ("C:\Chemin Dossier\D1\75B-12D1.exe")
Case "75B-10D1"
Shell ("C:\Chemin Dossier\D1\75B-10D1.exe")
Case "75B-8D1"
Shell ("C:\Chemin Dossier\D1\75B-8D1.exe")
Case "75B-6D1"
Shell ("C:\Chemin Dossier\D1\75B-6D1.exe")
Case "75B-4D1"
Shell ("C:\Chemin Dossier\D1\75B-4D1.exe")
Case "75B-2D1"
Shell ("C:\Chemin Dossier\D1\75B-2D1.exe")
Case "75B0D1"
Shell ("C:\Chemin Dossier\D1\75B0D1.exe")
Case "75B2D1"
Shell ("C:\Chemin Dossier\D1\75B2D1.exe")
Case "75B4D1"
Shell ("C:\Chemin Dossier\D1\75B4D1.exe")
Case "75B6D1"
Shell ("C:\Chemin Dossier\D1\75B6D1.exe")
Case "75B8D1"
Shell ("C:\Chemin Dossier\D1\75B8D1.exe")
Case "75B10D1"
Shell ("C:\Chemin Dossier\D1\75B10D1.exe")
Case "75B12D1"
Shell ("C:\Chemin Dossier\D1\75B12D1.exe")
Case "75B14D1"
Shell ("C:\Chemin Dossier\D1\75B14D1.exe")
Case "75B-19D1"
Shell ("C:\Chemin Dossier\D1\75B-19D1.exe")
Case "75B-17D1"
Shell ("C:\Chemin Dossier\D1\75B-17D1.exe")
Case "75B-15D1"
Shell ("C:\Chemin Dossier\D1\75B-15D1.exe")
Case "75B-13D1"
Shell ("C:\Chemin Dossier\D1\75B-13D1.exe")
Case "75B-11D1"
Shell ("C:\Chemin Dossier\D1\75B-11D1.exe")
Case "75B-9D1"
Shell ("C:\Chemin Dossier\D1\75B-9D1.exe")
Case "75B-7D1"
Shell ("C:\Chemin Dossier\D1\75B-7D1.exe")
Case "75B-5D1"
Shell ("C:\Chemin Dossier\D1\75B-5D1.exe")
Case "75B-3D1"
Shell ("C:\Chemin Dossier\D1\75B-3D1.exe")
Case "75B-1D1"
Shell ("C:\Chemin Dossier\D1\75B-1D1.exe")
Case "75B1D1"
Shell ("C:\Chemin Dossier\D1\75B1D1.exe")
Case "75B3D1"
Shell ("C:\Chemin Dossier\D1\75B3D1.exe")
Case "75B5D1"
Shell ("C:\Chemin Dossier\D1\75B5D1.exe")
Case "75B7D1"
Shell ("C:\Chemin Dossier\D1\75B7D1.exe")
Case "75B9D1"
Shell ("C:\Chemin Dossier\D1\75B9D1.exe")
Case "75B11D1"
Shell ("C:\Chemin Dossier\D1\75B11D1.exe")
Case "75B13D1"
Shell ("C:\Chemin Dossier\D1\75B13D1.exe")
Case "75B15D1"
Shell ("C:\Chemin Dossier\D1\75B15D1.exe")
Case "75B17D1"
Shell ("C:\Chemin Dossier\D1\75B17D1.exe")
Case "75B19D1"
Shell ("C:\Chemin Dossier\D1\75B19D1.exe")
Case "100B-20D1"
Shell ("C:\Chemin Dossier\D1\100B-20D1.exe")
Case "100B-18D1"
Shell ("C:\Chemin Dossier\D1\100B-18D1.exe")
Case "100B-16D1"
Shell ("C:\Chemin Dossier\D1\100B-16D1.exe")
Case "100B20D1"
Shell ("C:\Chemin Dossier\D1\100B20D1.exe")
Case "100B18D1"
Shell ("C:\Chemin Dossier\D1\100B18D1.exe")
Case "100B16D1"
Shell ("C:\Chemin Dossier\D1\100B16D1.exe")
Case "100B-14D1"
Shell ("C:\Chemin Dossier\D1\100B-14D1.exe")
Case "100B-12D1"
Shell ("C:\Chemin Dossier\D1\100B-12D1.exe")
Case "100B-10D1"
Shell ("C:\Chemin Dossier\D1\100B-10D1.exe")
Case "100B-8D1"
Shell ("C:\Chemin Dossier\D1\100B-8D1.exe")
Case "100B-6D1"
Shell ("C:\Chemin Dossier\D1\100B-6D1.exe")
Case "100B-4D1"
Shell ("C:\Chemin Dossier\D1\100B-4D1.exe")
Case "100B-2D1"
Shell ("C:\Chemin Dossier\D1\100B-2D1.exe")
Case "100B0D1"
Shell ("C:\Chemin Dossier\D1\100B0D1.exe")
Case "100B2D1"
Shell ("C:\Chemin Dossier\D1\100B2D1.exe")
Case "100B4D1"
Shell ("C:\Chemin Dossier\D1\100B4D1.exe")
Case "100B6D1"
Shell ("C:\Chemin Dossier\D1\100B6D1.exe")
Case "100B8D1"
Shell ("C:\Chemin Dossier\D1\100B8D1.exe")
Case "100B10D1"
Shell ("C:\Chemin Dossier\D1\100B10D1.exe")
Case "100B12D1"
Shell ("C:\Chemin Dossier\D1\100B12D1.exe")
Case "100B14D1"
Shell ("C:\Chemin Dossier\D1\100B14D1.exe")
Case "100B-19D1"
Shell ("C:\Chemin Dossier\D1\100B-19D1.exe")
Case "100B-17D1"
Shell ("C:\Chemin Dossier\D1\100B-17D1.exe")
Case "100B-15D1"
Shell ("C:\Chemin Dossier\D1\100B-15D1.exe")
Case "100B-13D1"
Shell ("C:\Chemin Dossier\D1\100B-13D1.exe")
Case "100B-11D1"
Shell ("C:\Chemin Dossier\D1\100B-11D1.exe")
Case "100B-9D1"
Shell ("C:\Chemin Dossier\D1\100B-9D1.exe")
Case "100B-7D1"
Shell ("C:\Chemin Dossier\D1\100B-7D1.exe")
Case "100B-5D1"
Shell ("C:\Chemin Dossier\D1\100B-5D1.exe")
Case "100B-3D1"
Shell ("C:\Chemin Dossier\D1\100B-3D1.exe")
Case "100B-1D1"
Shell ("C:\Chemin Dossier\D1\100B-1D1.exe")
Case "100B1D1"
Shell ("C:\Chemin Dossier\D1\100B1D1.exe")
Case "100B3D1"
Shell ("C:\Chemin Dossier\D1\100B3D1.exe")
Case "100B5D1"
Shell ("C:\Chemin Dossier\D1\100B5D1.exe")
Case "100B7D1"
Shell ("C:\Chemin Dossier\D1\100B7D1.exe")
Case "100B9D1"
Shell ("C:\Chemin Dossier\D1\100B9D1.exe")
Case "100B11D1"
Shell ("C:\Chemin Dossier\D1\100B11D1.exe")
Case "100B13D1"
Shell ("C:\Chemin Dossier\D1\100B13D1.exe")
Case "100B15D1"
Shell ("C:\Chemin Dossier\D1\100B15D1.exe")
Case "100B17D1"
Shell ("C:\Chemin Dossier\D1\100B17D1.exe")
Case "100B19D1"
Shell ("C:\Chemin Dossier\D1\100B19D1.exe")
Case "MinB0D1"
Shell ("C:\Chemin Dossier\D1\MinB0D1.exe")
Case "MinB2D1"
Shell ("C:\Chemin Dossier\D1\MinB2D1.exe")
Case "MinB4D1"
Shell ("C:\Chemin Dossier\D1\MinB4D1.exe")
Case "MinB6D1"
Shell ("C:\Chemin Dossier\D1\MinB6D1.exe")
Case "MinB8D1"
Shell ("C:\Chemin Dossier\D1\MinB8D1.exe")
Case "MinB10D1"
Shell ("C:\Chemin Dossier\D1\MinB10D1.exe")
Case "MinB12D1"
Shell ("C:\Chemin Dossier\D1\MinB12D1.exe")
Case "MinB14D1"
Shell ("C:\Chemin Dossier\D1\MinB14D1.exe")
Case "MinB16D1"
Shell ("C:\Chemin Dossier\D1\MinB16D1.exe")
Case "MinB18D1"
Shell ("C:\Chemin Dossier\D1\MinB18D1.exe")
Case "MinB20D1"
Shell ("C:\Chemin Dossier\D1\MinB20D1.exe")
Case "MinB1D1"
Shell ("C:\Chemin Dossier\D1\MinB1D1.exe")
Case "MinB3D1"
Shell ("C:\Chemin Dossier\D1\MinB3D1.exe")
Case "MinB5D1"
Shell ("C:\Chemin Dossier\D1\MinB5D1.exe")
Case "MinB7D1"
Shell ("C:\Chemin Dossier\D1\MinB7D1.exe")
Case "MinB9D1"
Shell ("C:\Chemin Dossier\D1\MinB9D1.exe")
Case "MinB11D1"
Shell ("C:\Chemin Dossier\D1\MinB11D1.exe")
Case "MinB13D1"
Shell ("C:\Chemin Dossier\D1\MinB13D1.exe")
Case "MinB15D1"
Shell ("C:\Chemin Dossier\D1\MinB15D1.exe")
Case "MinB17D1"
Shell ("C:\Chemin Dossier\D1\MinB17D1.exe")
Case "MinB19D1"
Shell ("C:\Chemin Dossier\D1\MinB19D1.exe")
Case "SHV-20D1"
Shell ("C:\Chemin Dossier\D1\SHV-20D1.exe")
Case "SHV-18D1"
Shell ("C:\Chemin Dossier\D1\SHV-18D1.exe")
Case "SHV-16D1"
Shell ("C:\Chemin Dossier\D1\SHV-16D1.exe")
Case "SHV-14D1"
Shell ("C:\Chemin Dossier\D1\SHV-14D1.exe")
Case "SHV-12D1"
Shell ("C:\Chemin Dossier\D1\SHV-12D1.exe")
Case "SHV-10D1"
Shell ("C:\Chemin Dossier\D1\SHV-10D1.exe")
Case "SHV-8D1"
Shell ("C:\Chemin Dossier\D1\SHV-8D1.exe")
Case "SHV-6D1"
Shell ("C:\Chemin Dossier\D1\SHV-6D1.exe")
Case "SHV-4D1"
Shell ("C:\Chemin Dossier\D1\SHV-4D1.exe")
Case "SHV-2D1"
Shell ("C:\Chemin Dossier\D1\SHV-2D1.exe")
Case "SHV-19D1"
Shell ("C:\Chemin Dossier\D1\SHV-19D1.exe")
Case "SHV-17D1"
Shell ("C:\Chemin Dossier\D1\SHV-17D1.exe")
Case "SHV-15D1"
Shell ("C:\Chemin Dossier\D1\SHV-15D1.exe")
Case "SHV-13D1"
Shell ("C:\Chemin Dossier\D1\SHV-13D1.exe")
Case "SHV-11D1"
Shell ("C:\Chemin Dossier\D1\SHV-11D1.exe")
Case "SHV-9D1"
Shell ("C:\Chemin Dossier\D1\SHV-9D1.exe")
Case "SHV-7D1"
Shell ("C:\Chemin Dossier\D1\SHV-7D1.exe")
Case "SHV-5D1"
Shell ("C:\Chemin Dossier\D1\SHV-5D1.exe")
Case "SHV-3D1"
Shell ("C:\Chemin Dossier\D1\SHV-3D1.exe")
Case "SHV-1D1"
Shell ("C:\Chemin Dossier\D1\SHV-1D1.exe")
Case "SHV0D1"
Shell ("C:\Chemin Dossier\D1\SHV0D1.exe")
Case "SHVD1"
Shell ("C:\Chemin Dossier\D1\SHVD1.exe")
Case "SNPFD2"
Shell ("C:\Chemin Dossier\D2\SNPFD2.exe")
Case "FDD2"
Shell ("C:\Chemin Dossier\D2\FDD2.exe")
Case "CLD2"
Shell ("C:\Chemin Dossier\D2\CLD2.exe")
Case "CKD2"
Shell ("C:\Chemin Dossier\D2\CKD2.exe")
Case "BD2"
Shell ("C:\Chemin Dossier\D2\BD2.exe")
Case "RD2"
Shell ("C:\Chemin Dossier\D2\RD2.exe")
Case "OPREPD2"
Shell ("C:\Chemin Dossier\D2\OPRCOD2.exe")
Case "OPRCOD2"
Shell ("C:\Chemin Dossier\D2\OPRCOD2.exe")
Case "OPRBTND2"
Shell ("C:\Chemin Dossier\D2\OPRCOD2.exe")
Case "OPRSBD2"
Shell ("C:\Chemin Dossier\D2\OPRSBD2.exe")
Case "50B-20D2"
Shell ("C:\Chemin Dossier\D2\50B-20D2.exe")
Case "50B-18D2"
Shell ("C:\Chemin Dossier\D2\50B-18D2.exe")
Case "50B-16D2"
Shell ("C:\Chemin Dossier\D2\50B-16D2.exe")
Case "50B20D2"
Shell ("C:\Chemin Dossier\D2\50B20D2.exe")
Case "50B18D2"
Shell ("C:\Chemin Dossier\D2\50B18D2.exe")
Case "50B16D2"
Shell ("C:\Chemin Dossier\D2\50B16D2.exe")
Case "50B-14D2"
Shell ("C:\Chemin Dossier\D2\50B-14D2.exe")
Case "50B-12D2"
Shell ("C:\Chemin Dossier\D2\50B-12D2.exe")
Case "50B-10D2"
Shell ("C:\Chemin Dossier\D2\50B-10D2.exe")
Case "50B-8D2"
Shell ("C:\Chemin Dossier\D2\50B-8D2.exe")
Case "50B-6D2"
Shell ("C:\Chemin Dossier\D2\50B-6D2.exe")
Case "50B-4D2"
Shell ("C:\Chemin Dossier\D2\50B-4D2.exe")
Case "50B-2D2"
Shell ("C:\Chemin Dossier\D2\50B-2D2.exe")
Case "50B0D2"
Shell ("C:\Chemin Dossier\D2\50B0D2.exe")
Case "50B2D2"
Shell ("C:\Chemin Dossier\D2\50B2D2.exe")
Case "50B4D2"
Shell ("C:\Chemin Dossier\D2\50B4D2.exe")
Case "50B6D2"
Shell ("C:\Chemin Dossier\D2\50B6D2.exe")
Case "50B8D2"
Shell ("C:\Chemin Dossier\D2\50B8D2.exe")
Case "50B10D2"
Shell ("C:\Chemin Dossier\D2\50B10D2.exe")
Case "50B12D2"
Shell ("C:\Chemin Dossier\D2\50B12D2.exe")
Case "50B14D2"
Shell ("C:\Chemin Dossier\D2\50B14D2.exe")
Case "50B-19D2"
Shell ("C:\Chemin Dossier\D2\50B-19D2.exe")
Case "50B-17D2"
Shell ("C:\Chemin Dossier\D2\50B-17D2.exe")
Case "50B-15D2"
Shell ("C:\Chemin Dossier\D2\50B-15D2.exe")
Case "50B-13D2"
Shell ("C:\Chemin Dossier\D2\50B-13D2.exe")
Case "50B-11D2"
Shell ("C:\Chemin Dossier\D2\50B-11D2.exe")
Case "50B-9D2"
Shell ("C:\Chemin Dossier\D2\50B-9D2.exe")
Case "50B-7D2"
Shell ("C:\Chemin Dossier\D2\50B-7D2.exe")
Case "50B-5D2"
Shell ("C:\Chemin Dossier\D2\50B-5D2.exe")
Case "50B-3D2"
Shell ("C:\Chemin Dossier\D2\50B-3D2.exe")
Case "50B-1D2"
Shell ("C:\Chemin Dossier\D2\50B-1D2.exe")
Case "50B1D2"
Shell ("C:\Chemin Dossier\D2\50B1D2.exe")
Case "50B3D2"
Shell ("C:\Chemin Dossier\D2\50B3D2.exe")
Case "50B5D2"
Shell ("C:\Chemin Dossier\D2\50B5D2.exe")
Case "50B7D2"
Shell ("C:\Chemin Dossier\D2\50B7D2.exe")
Case "50B9D2"
Shell ("C:\Chemin Dossier\D2\50B9D2.exe")
Case "50B11D2"
Shell ("C:\Chemin Dossier\D2\50B11D2.exe")
Case "50B13D2"
Shell ("C:\Chemin Dossier\D2\50B13D2.exe")
Case "50B15D2"
Shell ("C:\Chemin Dossier\D2\50B15D2.exe")
Case "50B17D2"
Shell ("C:\Chemin Dossier\D2\50B17D2.exe")
Case "50B19D2"
Shell ("C:\Chemin Dossier\D2\50B19D2.exe")
Case "75B-20D2"
Shell ("C:\Chemin Dossier\D2\75B-20D2.exe")
Case "75B-18D2"
Shell ("C:\Chemin Dossier\D2\75B-18D2.exe")
Case "75B-16D2"
Shell ("C:\Chemin Dossier\D2\75B-16D2.exe")
Case "75B20D2"
Shell ("C:\Chemin Dossier\D2\75B20D2.exe")
Case "75B18D2"
Shell ("C:\Chemin Dossier\D2\75B18D2.exe")
Case "75B16D2"
Shell ("C:\Chemin Dossier\D2\75B16D2.exe")
Case "75B-14D2"
Shell ("C:\Chemin Dossier\D2\75B-14D2.exe")
Case "75B-12D2"
Shell ("C:\Chemin Dossier\D2\75B-12D2.exe")
Case "75B-10D2"
Shell ("C:\Chemin Dossier\D2\75B-10D2.exe")
Case "75B-8D2"
Shell ("C:\Chemin Dossier\D2\75B-8D2.exe")
Case "75B-6D2"
Shell ("C:\Chemin Dossier\D2\75B-6D2.exe")
Case "75B-4D2"
Shell ("C:\Chemin Dossier\D2\75B-4D2.exe")
Case "75B-2D2"
Shell ("C:\Chemin Dossier\D2\75B-2D2.exe")
Case "75B0D2"
Shell ("C:\Chemin Dossier\D2\75B0D2.exe")
Case "75B2D2"
Shell ("C:\Chemin Dossier\D2\75B2D2.exe")
Case "75B4D2"
Shell ("C:\Chemin Dossier\D2\75B4D2.exe")
Case "75B6D2"
Shell ("C:\Chemin Dossier\D2\75B6D2.exe")
Case "75B8D2"
Shell ("C:\Chemin Dossier\D2\75B8D2.exe")
Case "75B10D2"
Shell ("C:\Chemin Dossier\D2\75B10D2.exe")
Case "75B12D2"
Shell ("C:\Chemin Dossier\D2\75B12D2.exe")
Case "75B14D2"
Shell ("C:\Chemin Dossier\D2\75B14D2.exe")
Case "75B-19D2"
Shell ("C:\Chemin Dossier\D2\75B-19D2.exe")
Case "75B-17D2"
Shell ("C:\Chemin Dossier\D2\75B-17D2.exe")
Case "75B-15D2"
Shell ("C:\Chemin Dossier\D2\75B-15D2.exe")
Case "75B-13D2"
Shell ("C:\Chemin Dossier\D2\75B-13D2.exe")
Case "75B-11D2"
Shell ("C:\Chemin Dossier\D2\75B-11D2.exe")
Case "75B-9D2"
Shell ("C:\Chemin Dossier\D2\75B-9D2.exe")
Case "75B-7D2"
Shell ("C:\Chemin Dossier\D2\75B-7D2.exe")
Case "75B-5D2"
Shell ("C:\Chemin Dossier\D2\75B-5D2.exe")
Case "75B-3D2"
Shell ("C:\Chemin Dossier\D2\75B-3D2.exe")
Case "75B-1D2"
Shell ("C:\Chemin Dossier\D2\75B-1D2.exe")
Case "75B1D2"
Shell ("C:\Chemin Dossier\D2\75B1D2.exe")
Case "75B3D2"
Shell ("C:\Chemin Dossier\D2\75B3D2.exe")
Case "75B5D2"
Shell ("C:\Chemin Dossier\D2\75B5D2.exe")
Case "75B7D2"
Shell ("C:\Chemin Dossier\D2\75B7D2.exe")
Case "75B9D2"
Shell ("C:\Chemin Dossier\D2\75B9D2.exe")
Case "75B11D2"
Shell ("C:\Chemin Dossier\D2\75B11D2.exe")
Case "75B13D2"
Shell ("C:\Chemin Dossier\D2\75B13D2.exe")
Case "75B15D2"
Shell ("C:\Chemin Dossier\D2\75B15D2.exe")
Case "75B17D2"
Shell ("C:\Chemin Dossier\D2\75B17D2.exe")
Case "75B19D2"
Shell ("C:\Chemin Dossier\D2\75B19D2.exe")
Case "100B-20D2"
Shell ("C:\Chemin Dossier\D2\100B-20D2.exe")
Case "100B-18D2"
Shell ("C:\Chemin Dossier\D2\100B-18D2.exe")
Case "100B-16D2"
Shell ("C:\Chemin Dossier\D2\100B-16D2.exe")
Case "100B20D2"
Shell ("C:\Chemin Dossier\D2\100B20D2.exe")
Case "100B18D2"
Shell ("C:\Chemin Dossier\D2\100B18D2.exe")
Case "100B16D2"
Shell ("C:\Chemin Dossier\D2\100B16D2.exe")
Case "100B-14D2"
Shell ("C:\Chemin Dossier\D2\100B-14D2.exe")
Case "100B-12D2"
Shell ("C:\Chemin Dossier\D2\100B-12D2.exe")
Case "100B-10D2"
Shell ("C:\Chemin Dossier\D2\100B-10D2.exe")
Case "100B-8D2"
Shell ("C:\Chemin Dossier\D2\100B-8D2.exe")
Case "100B-6D2"
Shell ("C:\Chemin Dossier\D2\100B-6D2.exe")
Case "100B-4D2"
Shell ("C:\Chemin Dossier\D2\100B-4D2.exe")
Case "100B-2D2"
Shell ("C:\Chemin Dossier\D2\100B-2D2.exe")
Case "100B0D2"
Shell ("C:\Chemin Dossier\D2\100B0D2.exe")
Case "100B2D2"
Shell ("C:\Chemin Dossier\D2\100B2D2.exe")
Case "100B4D2"
Shell ("C:\Chemin Dossier\D2\100B4D2.exe")
Case "100B6D2"
Shell ("C:\Chemin Dossier\D2\100B6D2.exe")
Case "100B8D2"
Shell ("C:\Chemin Dossier\D2\100B8D2.exe")
Case "100B10D2"
Shell ("C:\Chemin Dossier\D2\100B10D2.exe")
Case "100B12D2"
Shell ("C:\Chemin Dossier\D2\100B12D2.exe")
Case "100B14D2"
Shell ("C:\Chemin Dossier\D2\100B14D2.exe")
Case "100B-19D2"
Shell ("C:\Chemin Dossier\D2\100B-19D2.exe")
Case "100B-17D2"
Shell ("C:\Chemin Dossier\D2\100B-17D2.exe")
Case "100B-15D2"
Shell ("C:\Chemin Dossier\D2\100B-15D2.exe")
Case "100B-13D2"
Shell ("C:\Chemin Dossier\D2\100B-13D2.exe")
Case "100B-11D2"
Shell ("C:\Chemin Dossier\D2\100B-11D2.exe")
Case "100B-9D2"
Shell ("C:\Chemin Dossier\D2\100B-9D2.exe")
Case "100B-7D2"
Shell ("C:\Chemin Dossier\D2\100B-7D2.exe")
Case "100B-5D2"
Shell ("C:\Chemin Dossier\D2\100B-5D2.exe")
Case "100B-3D2"
Shell ("C:\Chemin Dossier\D2\100B-3D2.exe")
Case "100B-1D2"
Shell ("C:\Chemin Dossier\D2\100B-1D2.exe")
Case "100B1D2"
Shell ("C:\Chemin Dossier\D2\100B1D2.exe")
Case "100B3D2"
Shell ("C:\Chemin Dossier\D2\100B3D2.exe")
Case "100B5D2"
Shell ("C:\Chemin Dossier\D2\100B5D2.exe")
Case "100B7D2"
Shell ("C:\Chemin Dossier\D2\100B7D2.exe")
Case "100B9D2"
Shell ("C:\Chemin Dossier\D2\100B9D2.exe")
Case "100B11D2"
Shell ("C:\Chemin Dossier\D2\100B11D2.exe")
Case "100B13D2"
Shell ("C:\Chemin Dossier\D2\100B13D2.exe")
Case "100B15D2"
Shell ("C:\Chemin Dossier\D2\100B15D2.exe")
Case "100B17D2"
Shell ("C:\Chemin Dossier\D2\100B17D2.exe")
Case "100B19D2"
Shell ("C:\Chemin Dossier\D2\100B19D2.exe")
Case "MinB0D2"
Shell ("C:\Chemin Dossier\D2\MinB0D2.exe")
Case "MinB2D2"
Shell ("C:\Chemin Dossier\D2\MinB2D2.exe")
Case "MinB4D2"
Shell ("C:\Chemin Dossier\D2\MinB4D2.exe")
Case "MinB6D2"
Shell ("C:\Chemin Dossier\D2\MinB6D2.exe")
Case "MinB8D2"
Shell ("C:\Chemin Dossier\D2\MinB8D2.exe")
Case "MinB10D2"
Shell ("C:\Chemin Dossier\D2\MinB10D2.exe")
Case "MinB12D2"
Shell ("C:\Chemin Dossier\D2\MinB12D2.exe")
Case "MinB14D2"
Shell ("C:\Chemin Dossier\D2\MinB14D2.exe")
Case "MinB16D2"
Shell ("C:\Chemin Dossier\D2\MinB16D2.exe")
Case "MinB18D2"
Shell ("C:\Chemin Dossier\D2\MinB18D2.exe")
Case "MinB20D2"
Shell ("C:\Chemin Dossier\D2\MinB20D2.exe")
Case "MinB1D2"
Shell ("C:\Chemin Dossier\D2\MinB1D2.exe")
Case "MinB3D2"
Shell ("C:\Chemin Dossier\D2\MinB3D2.exe")
Case "MinB5D2"
Shell ("C:\Chemin Dossier\D2\MinB5D2.exe")
Case "MinB7D2"
Shell ("C:\Chemin Dossier\D2\MinB7D2.exe")
Case "MinB9D2"
Shell ("C:\Chemin Dossier\D2\MinB9D2.exe")
Case "MinB11D2"
Shell ("C:\Chemin Dossier\D2\MinB11D2.exe")
Case "MinB13D2"
Shell ("C:\Chemin Dossier\D2\MinB13D2.exe")
Case "MinB15D2"
Shell ("C:\Chemin Dossier\D2\MinB15D2.exe")
Case "MinB17D2"
Shell ("C:\Chemin Dossier\D2\MinB17D2.exe")
Case "MinB19D2"
Shell ("C:\Chemin Dossier\D2\MinB19D2.exe")
Case "SHV-20D2"
Shell ("C:\Chemin Dossier\D2\SHV-20D2.exe")
Case "SHV-18D2"
Shell ("C:\Chemin Dossier\D2\SHV-18D2.exe")
Case "SHV-16D2"
Shell ("C:\Chemin Dossier\D2\SHV-16D2.exe")
Case "SHV-14D2"
Shell ("C:\Chemin Dossier\D2\SHV-14D2.exe")
Case "SHV-12D2"
Shell ("C:\Chemin Dossier\D2\SHV-12D2.exe")
Case "SHV-10D2"
Shell ("C:\Chemin Dossier\D2\SHV-10D2.exe")
Case "SHV-8D2"
Shell ("C:\Chemin Dossier\D2\SHV-8D2.exe")
Case "SHV-6D2"
Shell ("C:\Chemin Dossier\D2\SHV-6D2.exe")
Case "SHV-4D2"
Shell ("C:\Chemin Dossier\D2\SHV-4D2.exe")
Case "SHV-2D2"
Shell ("C:\Chemin Dossier\D2\SHV-2D2.exe")
Case "SHV-19D2"
Shell ("C:\Chemin Dossier\D2\SHV-19D2.exe")
Case "SHV-17D2"
Shell ("C:\Chemin Dossier\D2\SHV-17D2.exe")
Case "SHV-15D2"
Shell ("C:\Chemin Dossier\D2\SHV-15D2.exe")
Case "SHV-13D2"
Shell ("C:\Chemin Dossier\D2\SHV-13D2.exe")
Case "SHV-11D2"
Shell ("C:\Chemin Dossier\D2\SHV-11D2.exe")
Case "SHV-9D2"
Shell ("C:\Chemin Dossier\D2\SHV-9D2.exe")
Case "SHV-7D2"
Shell ("C:\Chemin Dossier\D2\SHV-7D2.exe")
Case "SHV-5D2"
Shell ("C:\Chemin Dossier\D2\SHV-5D2.exe")
Case "SHV-3D2"
Shell ("C:\Chemin Dossier\D2\SHV-3D2.exe")
Case "SHV-1D2"
Shell ("C:\Chemin Dossier\D2\SHV-1D2.exe")
Case "SHV0D2"
Shell ("C:\Chemin Dossier\D2\SHV0D2.exe")
Case "SHVD2"
Shell ("C:\Chemin Dossier\D2\SHVD2.exe")
Case "SNPFG1"
Shell ("C:\Chemin Dossier\G1\SNPFG1.exe")
Case "FDG1"
Shell ("C:\Chemin Dossier\G1\FDG1.exe")
Case "CLG1"
Shell ("C:\Chemin Dossier\G1\CLG1.exe")
Case "CKG1"
Shell ("C:\Chemin Dossier\G1\CKG1.exe")
Case "BG1"
Shell ("C:\Chemin Dossier\G1\BG1.exe")
Case "RG1"
Shell ("C:\Chemin Dossier\G1\RG1.exe")
Case "OPREPG1"
Shell ("C:\Chemin Dossier\G1\OPRCOG1.exe")
Case "OPRCOG1"
Shell ("C:\Chemin Dossier\G1\OPRCOG1.exe")
Case "OPRBTNG1"
Shell ("C:\Chemin Dossier\G1\OPRCOG1.exe")
Case "OPRSBG1"
Shell ("C:\Chemin Dossier\G1\OPRSBG1.exe")
Case "50B-20G1"
Shell ("C:\Chemin Dossier\G1\50B-20G1.exe")
Case "50B-18G1"
Shell ("C:\Chemin Dossier\G1\50B-18G1.exe")
Case "50B-16G1"
Shell ("C:\Chemin Dossier\G1\50B-16G1.exe")
Case "50B20G1"
Shell ("C:\Chemin Dossier\G1\50B20G1.exe")
Case "50B18G1"
Shell ("C:\Chemin Dossier\G1\50B18G1.exe")
Case "50B16G1"
Shell ("C:\Chemin Dossier\G1\50B16G1.exe")
Case "50B-14G1"
Shell ("C:\Chemin Dossier\G1\50B-14G1.exe")
Case "50B-12G1"
Shell ("C:\Chemin Dossier\G1\50B-12G1.exe")
Case "50B-10G1"
Shell ("C:\Chemin Dossier\G1\50B-10G1.exe")
Case "50B-8G1"
Shell ("C:\Chemin Dossier\G1\50B-8G1.exe")
Case "50B-6G1"
Shell ("C:\Chemin Dossier\G1\50B-6G1.exe")
Case "50B-4G1"
Shell ("C:\Chemin Dossier\G1\50B-4G1.exe")
Case "50B-2G1"
Shell ("C:\Chemin Dossier\G1\50B-2G1.exe")
Case "50B0G1"
Shell ("C:\Chemin Dossier\G1\50B0G1.exe")
Case "50B2G1"
Shell ("C:\Chemin Dossier\G1\50B2G1.exe")
Case "50B4G1"
Shell ("C:\Chemin Dossier\G1\50B4G1.exe")
Case "50B6G1"
Shell ("C:\Chemin Dossier\G1\50B6G1.exe")
Case "50B8G1"
Shell ("C:\Chemin Dossier\G1\50B8G1.exe")
Case "50B10G1"
Shell ("C:\Chemin Dossier\G1\50B10G1.exe")
Case "50B12G1"
Shell ("C:\Chemin Dossier\G1\50B12G1.exe")
Case "50B14G1"
Shell ("C:\Chemin Dossier\G1\50B14G1.exe")
Case "50B-19G1"
Shell ("C:\Chemin Dossier\G1\50B-19G1.exe")
Case "50B-17G1"
Shell ("C:\Chemin Dossier\G1\50B-17G1.exe")
Case "50B-15G1"
Shell ("C:\Chemin Dossier\G1\50B-15G1.exe")
Case "50B-13G1"
Shell ("C:\Chemin Dossier\G1\50B-13G1.exe")
Case "50B-11G1"
Shell ("C:\Chemin Dossier\G1\50B-11G1.exe")
Case "50B-9G1"
Shell ("C:\Chemin Dossier\G1\50B-9G1.exe")
Case "50B-7G1"
Shell ("C:\Chemin Dossier\G1\50B-7G1.exe")
Case "50B-5G1"
Shell ("C:\Chemin Dossier\G1\50B-5G1.exe")
Case "50B-3G1"
Shell ("C:\Chemin Dossier\G1\50B-3G1.exe")
Case "50B-1G1"
Shell ("C:\Chemin Dossier\G1\50B-1G1.exe")
Case "50B1G1"
Shell ("C:\Chemin Dossier\G1\50B1G1.exe")
Case "50B3G1"
Shell ("C:\Chemin Dossier\G1\50B3G1.exe")
Case "50B5G1"
Shell ("C:\Chemin Dossier\G1\50B5G1.exe")
Case "50B7G1"
Shell ("C:\Chemin Dossier\G1\50B7G1.exe")
Case "50B9G1"
Shell ("C:\Chemin Dossier\G1\50B9G1.exe")
Case "50B11G1"
Shell ("C:\Chemin Dossier\G1\50B11G1.exe")
Case "50B13G1"
Shell ("C:\Chemin Dossier\G1\50B13G1.exe")
Case "50B15G1"
Shell ("C:\Chemin Dossier\G1\50B15G1.exe")
Case "50B17G1"
Shell ("C:\Chemin Dossier\G1\50B17G1.exe")
Case "50B19G1"
Shell ("C:\Chemin Dossier\G1\50B19G1.exe")
Case "75B-20G1"
Shell ("C:\Chemin Dossier\G1\75B-20G1.exe")
Case "75B-18G1"
Shell ("C:\Chemin Dossier\G1\75B-18G1.exe")
Case "75B-16G1"
Shell ("C:\Chemin Dossier\G1\75B-16G1.exe")
Case "75B20G1"
Shell ("C:\Chemin Dossier\G1\75B20G1.exe")
Case "75B18G1"
Shell ("C:\Chemin Dossier\G1\75B18G1.exe")
Case "75B16G1"
Shell ("C:\Chemin Dossier\G1\75B16G1.exe")
Case "75B-14G1"
Shell ("C:\Chemin Dossier\G1\75B-14G1.exe")
Case "75B-12G1"
Shell ("C:\Chemin Dossier\G1\75B-12G1.exe")
Case "75B-10G1"
Shell ("C:\Chemin Dossier\G1\75B-10G1.exe")
Case "75B-8G1"
Shell ("C:\Chemin Dossier\G1\75B-8G1.exe")
Case "75B-6G1"
Shell ("C:\Chemin Dossier\G1\75B-6G1.exe")
Case "75B-4G1"
Shell ("C:\Chemin Dossier\G1\75B-4G1.exe")
Case "75B-2G1"
Shell ("C:\Chemin Dossier\G1\75B-2G1.exe")
Case "75B0G1"
Shell ("C:\Chemin Dossier\G1\75B0G1.exe")
Case "75B2G1"
Shell ("C:\Chemin Dossier\G1\75B2G1.exe")
Case "75B4G1"
Shell ("C:\Chemin Dossier\G1\75B4G1.exe")
Case "75B6G1"
Shell ("C:\Chemin Dossier\G1\75B6G1.exe")
Case "75B8G1"
Shell ("C:\Chemin Dossier\G1\75B8G1.exe")
Case "75B10G1"
Shell ("C:\Chemin Dossier\G1\75B10G1.exe")
Case "75B12G1"
Shell ("C:\Chemin Dossier\G1\75B12G1.exe")
Case "75B14G1"
Shell ("C:\Chemin Dossier\G1\75B14G1.exe")
Case "75B-19G1"
Shell ("C:\Chemin Dossier\G1\75B-19G1.exe")
Case "75B-17G1"
Shell ("C:\Chemin Dossier\G1\75B-17G1.exe")
Case "75B-15G1"
Shell ("C:\Chemin Dossier\G1\75B-15G1.exe")
Case "75B-13G1"
Shell ("C:\Chemin Dossier\G1\75B-13G1.exe")
Case "75B-11G1"
Shell ("C:\Chemin Dossier\G1\75B-11G1.exe")
Case "75B-9G1"
Shell ("C:\Chemin Dossier\G1\75B-9G1.exe")
Case "75B-7G1"
Shell ("C:\Chemin Dossier\G1\75B-7G1.exe")
Case "75B-5G1"
Shell ("C:\Chemin Dossier\G1\75B-5G1.exe")
Case "75B-3G1"
Shell ("C:\Chemin Dossier\G1\75B-3G1.exe")
Case "75B-1G1"
Shell ("C:\Chemin Dossier\G1\75B-1G1.exe")
Case "75B1G1"
Shell ("C:\Chemin Dossier\G1\75B1G1.exe")
Case "75B3G1"
Shell ("C:\Chemin Dossier\G1\75B3G1.exe")
Case "75B5G1"
Shell ("C:\Chemin Dossier\G1\75B5G1.exe")
Case "75B7G1"
Shell ("C:\Chemin Dossier\G1\75B7G1.exe")
Case "75B9G1"
Shell ("C:\Chemin Dossier\G1\75B9G1.exe")
Case "75B11G1"
Shell ("C:\Chemin Dossier\G1\75B11G1.exe")
Case "75B13G1"
Shell ("C:\Chemin Dossier\G1\75B13G1.exe")
Case "75B15G1"
Shell ("C:\Chemin Dossier\G1\75B15G1.exe")
Case "75B17G1"
Shell ("C:\Chemin Dossier\G1\75B17G1.exe")
Case "75B19G1"
Shell ("C:\Chemin Dossier\G1\75B19G1.exe")
Case "100B-20G1"
Shell ("C:\Chemin Dossier\G1\100B-20G1.exe")
Case "100B-18G1"
Shell ("C:\Chemin Dossier\G1\100B-18G1.exe")
Case "100B-16G1"
Shell ("C:\Chemin Dossier\G1\100B-16G1.exe")
Case "100B20G1"
Shell ("C:\Chemin Dossier\G1\100B20G1.exe")
Case "100B18G1"
Shell ("C:\Chemin Dossier\G1\100B18G1.exe")
Case "100B16G1"
Shell ("C:\Chemin Dossier\G1\100B16G1.exe")
Case "100B-14G1"
Shell ("C:\Chemin Dossier\G1\100B-14G1.exe")
Case "100B-12G1"
Shell ("C:\Chemin Dossier\G1\100B-12G1.exe")
Case "100B-10G1"
Shell ("C:\Chemin Dossier\G1\100B-10G1.exe")
Case "100B-8G1"
Shell ("C:\Chemin Dossier\G1\100B-8G1.exe")
Case "100B-6G1"
Shell ("C:\Chemin Dossier\G1\100B-6G1.exe")
Case "100B-4G1"
Shell ("C:\Chemin Dossier\G1\100B-4G1.exe")
Case "100B-2G1"
Shell ("C:\Chemin Dossier\G1\100B-2G1.exe")
Case "100B0G1"
Shell ("C:\Chemin Dossier\G1\100B0G1.exe")
Case "100B2G1"
Shell ("C:\Chemin Dossier\G1\100B2G1.exe")
Case "100B4G1"
Shell ("C:\Chemin Dossier\G1\100B4G1.exe")
Case "100B6G1"
Shell ("C:\Chemin Dossier\G1\100B6G1.exe")
Case "100B8G1"
Shell ("C:\Chemin Dossier\G1\100B8G1.exe")
Case "100B10G1"
Shell ("C:\Chemin Dossier\G1\100B10G1.exe")
Case "100B12G1"
Shell ("C:\Chemin Dossier\G1\100B12G1.exe")
Case "100B14G1"
Shell ("C:\Chemin Dossier\G1\100B14G1.exe")
Case "100B-19G1"
Shell ("C:\Chemin Dossier\G1\100B-19G1.exe")
Case "100B-17G1"
Shell ("C:\Chemin Dossier\G1\100B-17G1.exe")
Case "100B-15G1"
Shell ("C:\Chemin Dossier\G1\100B-15G1.exe")
Case "100B-13G1"
Shell ("C:\Chemin Dossier\G1\100B-13G1.exe")
Case "100B-11G1"
Shell ("C:\Chemin Dossier\G1\100B-11G1.exe")
Case "100B-9G1"
Shell ("C:\Chemin Dossier\G1\100B-9G1.exe")
Case "100B-7G1"
Shell ("C:\Chemin Dossier\G1\100B-7G1.exe")
Case "100B-5G1"
Shell ("C:\Chemin Dossier\G1\100B-5G1.exe")
Case "100B-3G1"
Shell ("C:\Chemin Dossier\G1\100B-3G1.exe")
Case "100B-1G1"
Shell ("C:\Chemin Dossier\G1\100B-1G1.exe")
Case "100B1G1"
Shell ("C:\Chemin Dossier\G1\100B1G1.exe")
Case "100B3G1"
Shell ("C:\Chemin Dossier\G1\100B3G1.exe")
Case "100B5G1"
Shell ("C:\Chemin Dossier\G1\100B5G1.exe")
Case "100B7G1"
Shell ("C:\Chemin Dossier\G1\100B7G1.exe")
Case "100B9G1"
Shell ("C:\Chemin Dossier\G1\100B9G1.exe")
Case "100B11G1"
Shell ("C:\Chemin Dossier\G1\100B11G1.exe")
Case "100B13G1"
Shell ("C:\Chemin Dossier\G1\100B13G1.exe")
Case "100B15G1"
Shell ("C:\Chemin Dossier\G1\100B15G1.exe")
Case "100B17G1"
Shell ("C:\Chemin Dossier\G1\100B17G1.exe")
Case "100B19G1"
Shell ("C:\Chemin Dossier\G1\100B19G1.exe")
Case "MinB0G1"
Shell ("C:\Chemin Dossier\G1\MinB0G1.exe")
Case "MinB2G1"
Shell ("C:\Chemin Dossier\G1\MinB2G1.exe")
Case "MinB4G1"
Shell ("C:\Chemin Dossier\G1\MinB4G1.exe")
Case "MinB6G1"
Shell ("C:\Chemin Dossier\G1\MinB6G1.exe")
Case "MinB8G1"
Shell ("C:\Chemin Dossier\G1\MinB8G1.exe")
Case "MinB10G1"
Shell ("C:\Chemin Dossier\G1\MinB10G1.exe")
Case "MinB12G1"
Shell ("C:\Chemin Dossier\G1\MinB12G1.exe")
Case "MinB14G1"
Shell ("C:\Chemin Dossier\G1\MinB14G1.exe")
Case "MinB16G1"
Shell ("C:\Chemin Dossier\G1\MinB16G1.exe")
Case "MinB18G1"
Shell ("C:\Chemin Dossier\G1\MinB18G1.exe")
Case "MinB20G1"
Shell ("C:\Chemin Dossier\G1\MinB20G1.exe")
Case "MinB1G1"
Shell ("C:\Chemin Dossier\G1\MinB1G1.exe")
Case "MinB3G1"
Shell ("C:\Chemin Dossier\G1\MinB3G1.exe")
Case "MinB5G1"
Shell ("C:\Chemin Dossier\G1\MinB5G1.exe")
Case "MinB7G1"
Shell ("C:\Chemin Dossier\G1\MinB7G1.exe")
Case "MinB9G1"
Shell ("C:\Chemin Dossier\G1\MinB9G1.exe")
Case "MinB11G1"
Shell ("C:\Chemin Dossier\G1\MinB11G1.exe")
Case "MinB13G1"
Shell ("C:\Chemin Dossier\G1\MinB13G1.exe")
Case "MinB15G1"
Shell ("C:\Chemin Dossier\G1\MinB15G1.exe")
Case "MinB17G1"
Shell ("C:\Chemin Dossier\G1\MinB17G1.exe")
Case "MinB19G1"
Shell ("C:\Chemin Dossier\G1\MinB19G1.exe")
Case "SHV-20G1"
Shell ("C:\Chemin Dossier\G1\SHV-20G1.exe")
Case "SHV-18G1"
Shell ("C:\Chemin Dossier\G1\SHV-18G1.exe")
Case "SHV-16G1"
Shell ("C:\Chemin Dossier\G1\SHV-16G1.exe")
Case "SHV-14G1"
Shell ("C:\Chemin Dossier\G1\SHV-14G1.exe")
Case "SHV-12G1"
Shell ("C:\Chemin Dossier\G1\SHV-12G1.exe")
Case "SHV-10G1"
Shell ("C:\Chemin Dossier\G1\SHV-10G1.exe")
Case "SHV-8G1"
Shell ("C:\Chemin Dossier\G1\SHV-8G1.exe")
Case "SHV-6G1"
Shell ("C:\Chemin Dossier\G1\SHV-6G1.exe")
Case "SHV-4G1"
Shell ("C:\Chemin Dossier\G1\SHV-4G1.exe")
Case "SHV-2G1"
Shell ("C:\Chemin Dossier\G1\SHV-2G1.exe")
Case "SHV-19G1"
Shell ("C:\Chemin Dossier\G1\SHV-19G1.exe")
Case "SHV-17G1"
Shell ("C:\Chemin Dossier\G1\SHV-17G1.exe")
Case "SHV-15G1"
Shell ("C:\Chemin Dossier\G1\SHV-15G1.exe")
Case "SHV-13G1"
Shell ("C:\Chemin Dossier\G1\SHV-13G1.exe")
Case "SHV-11G1"
Shell ("C:\Chemin Dossier\G1\SHV-11G1.exe")
Case "SHV-9G1"
Shell ("C:\Chemin Dossier\G1\SHV-9G1.exe")
Case "SHV-7G1"
Shell ("C:\Chemin Dossier\G1\SHV-7G1.exe")
Case "SHV-5G1"
Shell ("C:\Chemin Dossier\G1\SHV-5G1.exe")
Case "SHV-3G1"
Shell ("C:\Chemin Dossier\G1\SHV-3G1.exe")
Case "SHV-1G1"
Shell ("C:\Chemin Dossier\G1\SHV-1G1.exe")
Case "SHV0G1"
Shell ("C:\Chemin Dossier\G1\SHV0G1.exe")
Case "SHVG1"
Shell ("C:\Chemin Dossier\G1\SHVG1.exe")
Case "SNPFG2"
Shell ("C:\Chemin Dossier\G2\SNPFG2.exe")
Case "FDG2"
Shell ("C:\Chemin Dossier\G2\FDG2.exe")
Case "CLG2"
Shell ("C:\Chemin Dossier\G2\CLG2.exe")
Case "CKG2"
Shell ("C:\Chemin Dossier\G2\CKG2.exe")
Case "BG2"
Shell ("C:\Chemin Dossier\G2\BG2.exe")
Case Else
End Select
End SubPour satisfaire la limite de caractères imposée par ce forum, je n'ai collé ici que la moitié de la macro. L'originale est 2 fois + longue.
Cette macro lance l'éxécution de fichiers .exe selon la valeur d'une cellule.
J'ai plusieurs questions visant à optimiser cette macro :
1. D'abord est-ce que sa longueur peut la ralentir de manière significative?
Autrement dit, quelqu'un connait-t-il un moyen d'évaluer le temps nécessaire à excel pour éxécuter cette macro (je ne parle pas ici du temps d'éxécution des fichiers .exe, mais seulement de la macro elle-même)?
Si sa longueur est impactante, je pourrais la scinder en plusieurs macros.
2. Je souhaite remplacer dans la macro le chemin de dossier écrit "en dur" dans la macro : "C:\Chemin Dossier\" par le contenu d'une cellule (disons Sheets("Order").Cells(1, 1) ). Ainsi je pourrai faire évoluer le contenu de la cellule pour modifier le chemin, plutôt que de devoir modifier tout le contenu de la macro.
Quelqu'un sait-il comment rédiger cela?
Merci
Nicopat
bonjour,
tu peux simplifier grandement ta macro ainsi
Sub action()
Shell (Sheets("Order").Cells(1, 1) & "\" & Sheets("Order").Cells(1, 4).Value & ".exe")
end subn
Bonjour,
voir ci-dessus
Bonjour, salut h2so4,
Sur le même principe :
Sub action()
With Sheets("Order")
Shell ("C:\" & .Cells(1, 3) & .Cells(1, 4) & ".exe") 'Dans cet exemple la cellule C1 contient le texte "Chemin Dossier\D1\"
End With
End Subn
Bonjour, salut h2so4,
Sur le même principe :
Sub action() With Sheets("Order") Shell ("C:\" & .Cells(1, 3) & .Cells(1, 4) & ".exe") 'Dans cet exemple la cellule C1 contient le texte "Chemin Dossier\D1\" End With End Sub
Bonjour à tous,
Merci Pedro pour ta proposition. Tu as bien compris ce dont j'avais besoin, à savoir pouvoir faire appel au chemin de dossier qui serait pré-calculé dans une cellule du fichier. D'ailleurs, si la syntaxe le permet, même "C:\" ou "D:\" serait déjà inclus dans cette cellule.
Cependant, il y a un problème : lorsque je lance ta macro, ça lance le débogage et la ligne en jaune est :
Shell ("C:\" & .Cells(307, 3) & .Cells(308, 3) & ".exe")
n
bonjour,
comme indiqué dans mon dernier message, j'ai modifié le code que je t'avais donné dans mon message initial, apparemment tu ne l'as pas remarqué.
je le remets donc ici
bonjour,
tu peux simplifier grandement ta macro ainsi
Sub action() Shell (Sheets("Order").Cells(1, 1) & "\" & Sheets("Order").Cells(1, 4).Value & ".exe") end sub
la cellule 1,1 (ou A1) doit contenir le chemin complet d repertoire.
n
bonjour,
comme indiqué dans mon dernier message, j'ai modifié le code que je t'avais donné dans mon message initial, apparemment tu ne l'as pas remarqué.
je le remets donc ici
bonjour,
tu peux simplifier grandement ta macro ainsi
Sub action() Shell (Sheets("Order").Cells(1, 1) & "\" & Sheets("Order").Cells(1, 4).Value & ".exe") end subla cellule 1,1 (ou A1) doit contenir le chemin complet d repertoire.
Désolée, je n'avais pas vu la modif.
Cependant ça ne fonctionne pas (débogage -> ligne en jaune).
D'abord une remarque : ne manque-t-il pas ".Value" dans ta ligne de code?
Ensuite, voici précisément la situation (malheureusement je ne peux pas partager le fichier) :
Dans le Feuillet "Big DATA" :
la cellule C307 contient la chemin de l'exe : C:\Automation\website\D1
la cellule C308 contient le nom de l'exe : minB10D1
Et la macro est donc :
Sub actionlight()
Shell (Sheets("Big DATA").Cells(307, 3) & "\" & Sheets("Big DATA").Cells(308, 3).Value & ".exe")
End Subj'ai aussi essayé :
Sub actionlight()
Shell (Sheets("Big DATA").Cells(307, 3).Value & "\" & Sheets("Big DATA").Cells(308, 3).Value & ".exe")
End SubAucune de ces 2 macros ne fonctionne
(alors que ma macro initiale fonctionne correctement, donc cela ne peut être qu'une question de syntaxe)
bonjour,
quel message d'erreur reçois-tu ?
n
bonjour,
quel message d'erreur reçois-tu ?
Erreur d'éxécution 53. Fichier introuvable.
Débogage -> ligne jaune :
Shell (Sheets("Big DATA").Cells(307, 3) & "\" & Sheets("Big DATA").Cells(308, 3).Value & ".exe")
Pourtant, le fichier existe bien à l'emplacement indiqué. D'ailleurs il est bien lancé avec la macro initiale. A noter que tout est écrit à l'identique (même casse) entre l'emplacement écrit en dur dans la macro initiale et l'emplacement rédigé dans la cellule.
n
j'observe que dans la macro initiale, les .exe sont écrits entre des guillemets :
Par exemple :
Shell ("C:\Automation\website\D4\SHVD4.exe")
Or, dans la nouvelle macro que nous essayons de rédiger, je ne vois pas de guillemets.
Evidemment, j'ai essayé de les rajouter mais ça ne fonctionne pas non plus...
bonjour,
pour avoir les guillemets, mais je ne pense pas que ce soit cela le problème.
Sub action()
Shell (chr(34) & Sheets("Order").Cells(1, 1) & "\" & Sheets("Order").Cells(1, 4).Value & ".exe" & chr(34))
end subessaie ce code et dis-moi si tu reçois le msg fichier non trouvé.
Sub action()
nom_fichier=Sheets("Order").Cells(1, 1) & "\" & Sheets("Order").Cells(1, 4).Value & ".exe"
if dir(nom_fichier)="" then
msgbox "fichier " & nom_fichier & "non trouvé"
else
Shell (nom_fichier)
end if
end subn
bonjour,
pour avoir les guillemets, mais je ne pense pas que ce soit cela le problème.
Sub action() Shell (chr(34) & Sheets("Order").Cells(1, 1) & "\" & Sheets("Order").Cells(1, 4).Value & ".exe" & chr(34)) end sub
Merci,
Malheureusement, tu as raison, ça ne fonctionne toujours pas.
J'ai aussi éssayé cela car je ne sais pas s'il est normal qu'il n'y ait qu'une seule fois le ".Value" :
Sub action()
Shell (Chr(34) & Sheets("Big DATA").Cells(307, 3).Value & "\" & Sheets("Big DATA").Cells(308, 3).Value & ".exe" & Chr(34))
end sub[/quote]
mais rien ne marche
rebonjour,
essaie ce code et dis-moi si tu reçois le msg fichier non trouvé.
Sub action()
nom_fichier=Sheets("Order").Cells(1, 1) & "\" & Sheets("Order").Cells(1, 4).Value & ".exe"
if dir(nom_fichier)="" then
msgbox "fichier " & nom_fichier & "non trouvé"
else
Shell (nom_fichier)
end if
end subn
rebonjour,
essaie ce code et dis-moi si tu reçois le msg fichier non trouvé.
Sub action() nom_fichier=Sheets("Order").Cells(1, 1) & "\" & Sheets("Order").Cells(1, 4).Value & ".exe" if dir(nom_fichier)="" then msgbox "fichier " & nom_fichier & "non trouvé" else Shell (nom_fichier) end if end sub
Erreur d'exécution 52 :
Nom ou numéro de fichier incorrect
Ligne en jaune :
If Dir(nom_fichier) = "" Then
rebonjour,
essaie alors ceci et vérifie le nom de fichier affiché
Sub action()
nom_fichier=Sheets("Order").Cells(1, 1) & "\" & Sheets("Order").Cells(1, 4).Value & ".exe"
msgbox "nom du fichier à exécuter : " & nom_fichier
if dir(nom_fichier)="" then
msgbox "fichier " & nom_fichier & "non trouvé"
else
Shell (nom_fichier)
end if
end subG
Bonjour,
Une petite piste à explorer, si tu es certain que le fichier existe:
Il se peut que des caractères "espace" se soient glissés dans les cellules.
Tu peux déjà déclarer la variable nom_fichier en "string", et essayer l'instruction TRIM :
Sub Test()
Dim nom_fichier As String
nom_fichier = Trim(Sheets("Order").Cells(1, 1)) & "\" & Trim(Sheets("Order").Cells(1, 4).Value) & ".exe"
Shell (nom_fichier)
End Sub
Cordialement,
n
rebonjour,
essaie alors ceci et vérifie le nom de fichier affiché
Sub action() nom_fichier=Sheets("Order").Cells(1, 1) & "\" & Sheets("Order").Cells(1, 4).Value & ".exe" msgbox "nom du fichier à exécuter : " & nom_fichier if dir(nom_fichier)="" then msgbox "fichier " & nom_fichier & "non trouvé" else Shell (nom_fichier) end if end sub
Merci H2SO4,
Ce code m'a permis de me rendre compte qu'il y avait un caractère caché dans le chemin que j'avais indiqué dans la cellule.
Je ne sais pas à quoi cela est dû, mais voilà le code initial que j'avais indiqué :
=SI(Order!C5="PC";"C:\Automation\";"C:\Automation\")Dans mon fichier excel il y a 2 caractères cachés dans ce bout de code, entre les guillemets... Ca provenait du cop-coll que j'avais fait depuis l'onglet propriété du fichier .exe ciblé.
Une fois ces caractères cachés supprimés, ta macro fonctionne -> Merci beaucoup !!!
n
bonjour,
tu peux simplifier grandement ta macro ainsi
Sub action() Shell (Sheets("Order").Cells(1, 1) & "\" & Sheets("Order").Cells(1, 4).Value & ".exe") end sub
Bonjour,
Comment puis-je mettre une condition suspensive avant de lancer le .exe ?
Typiquement, je voudrais que si la valeur de la cellule Sheets("A").Cells(1, 1) soit "no", alors qu'il ne se passe rien, c'est à dire que le .exe ne soit pas lancé.
Merci