Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Exécuter une commande système

5 réponses
Avatar
bob123
Bonjour,

Comment exécuter une commande système
en VBA excel ?

Merci d'avance

5 réponses

Avatar
Philippe.R
Bonjour,
Pour ce faire, il te faudra probablement recourir aux API de Windows.
Quelques piste là :
http://frederic.sigonneau.free.fr/Systeme.htm
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"bob123" a écrit dans le message de
news:4be666a7$0$17792$
Bonjour,

Comment exécuter une commande système
en VBA excel ?

Merci d'avance

Avatar
bob123
Juste pour lancer un dir par exemple ?

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
%23H%
Bonjour,
Pour ce faire, il te faudra probablement recourir aux API de Windows.
Quelques piste là :
http://frederic.sigonneau.free.fr/Systeme.htm
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"bob123" a écrit dans le message de
news:4be666a7$0$17792$
Bonjour,

Comment exécuter une commande système
en VBA excel ?

Merci d'avance




Avatar
michdenis
Bonjour,

Ta question n'est pas très explicite sur ce que tu entends pas commande système?

On peut utiliser ce type de commande à l'invite :

Si tu veux que la fenêtre se ferme immédiatement et toute seule à la fin de
l'exécution de la commande, tu modifies le /k pour /c dans les lignes de commande

Les commandes ont plusieurs paramètres, pour les connaître, à l'invite de
commande, tu tapes ta commande et suivi d'un espace et /?
Exemple Dir /?

Employer la commande Dir()
'----------------------------
Sub TEST()
Commande = Environ("comspec") & " /k dir c:UsersDmDocuments "
Shell Commande, vbNormalFocus
'----------------------------


Exemple de commande : Pour copier tous les fichiers et sous-répertoires
de c:AAADenis dans le répertoire de destination c:Michel
/s -> inclus les sous-répertoires
/e -> Inclus les sous-répertoires même vides...
Source destination
commande = Environ("comspec") & " /k XCOPY C:AAADenis c:Michel /s/e "
Shell commande, vbNormalFocus

========================
Supprimer tous les fichiers et sous-répertoires
y compris le répertoire lui-même Michel
--------------------------------
Sub TEST()
commande = Environ("comspec") & " /k RD C:Michel /S/Q "
Shell commande, vbNormalFocus
End Sub
'--------------------------------
Avatar
Philippe.R
Re,
Regarde la réponse de Denis, c'est justement l'exemple qu'il développe.
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"bob123" a écrit dans le message de
news:4be6aa19$0$21819$
Juste pour lancer un dir par exemple ?

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
%23H%
Bonjour,
Pour ce faire, il te faudra probablement recourir aux API de Windows.
Quelques piste là :
http://frederic.sigonneau.free.fr/Systeme.htm
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"bob123" a écrit dans le message de
news:4be666a7$0$17792$
Bonjour,

Comment exécuter une commande système
en VBA excel ?

Merci d'avance








Avatar
bob123
OK merci

"michdenis" a écrit dans le message de news:

Bonjour,

Ta question n'est pas très explicite sur ce que tu entends pas commande
système?

On peut utiliser ce type de commande à l'invite :

Si tu veux que la fenêtre se ferme immédiatement et toute seule à la fin
de
l'exécution de la commande, tu modifies le /k pour /c dans les lignes de
commande

Les commandes ont plusieurs paramètres, pour les connaître, à l'invite de
commande, tu tapes ta commande et suivi d'un espace et /?
Exemple Dir /?

Employer la commande Dir()
'----------------------------
Sub TEST()
Commande = Environ("comspec") & " /k dir c:UsersDmDocuments "
Shell Commande, vbNormalFocus
'----------------------------


Exemple de commande : Pour copier tous les fichiers et sous-répertoires
de c:AAADenis dans le répertoire de destination c:Michel
/s -> inclus les sous-répertoires
/e -> Inclus les sous-répertoires même vides...
Source destination
commande = Environ("comspec") & " /k XCOPY C:AAADenis c:Michel /s/e "
Shell commande, vbNormalFocus

======================== >
Supprimer tous les fichiers et sous-répertoires
y compris le répertoire lui-même Michel
--------------------------------
Sub TEST()
commande = Environ("comspec") & " /k RD C:Michel /S/Q "
Shell commande, vbNormalFocus
End Sub
'--------------------------------