CreatorRibbonX ImageMso V 11 Reloaded

[DéDé62]

bonjour @DéDé62

'collection fonction WMI patricktoulon
'fermer seulement les instances d'exel  crées par vba
Sub FermerAutresInstancesExcel()
    Dim objWMI As Object, col As Object, obj As Object, pidMain As Long, cmdL
    Set objWMI = GetObject("winmgmts:")
    Set col = objWMI.ExecQuery("Select * From Win32_Process Where Name='EXCEL.EXE'")
    For Each obj In col
        cmdL = LCase(obj.commandline)
       If InStr(1, cmdL, "automation", vbTextCompare) > 0 Or InStr(1, cmdL, "-embedding", vbTextCompare) > 0 Then
            obj.Terminate
        End If
    Next obj
End Sub

je l'ajouterais dans la V12 appelée dans le QueryClose du userform

Bonsoir Patrick,
un grand merci pour ta procedure qui fonctionne à merveille! (testée par son appel en fin de la Sub 'UserForm_QueryClose')