“VBA Exécuter la commande shell avec des arguments” Réponses codées

VBA Exécuter la commande shell avec des arguments

Sub ExecuteShell(path As String, ParamArray arg() As Variant)
    Dim element As Variant
    Dim cmd As String

    cmd = path & " " 'insert any pre-arguments charaters

    For Each element In arg
        cmd = cmd & element & ", "
    Next element

    'remove last comma
    cmd = Left(cmd, Len(cmd) - 2)

    Call Shell(cmd)

End Sub