Exécuter une commande système

Le
bob123
Bonjour,

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

Merci d'avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #22009531
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" news:4be666a7$0$17792$
Bonjour,

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

Merci d'avance

bob123
Le #22019131
Juste pour lancer un dir par exemple ?

"Philippe.R" %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" news:4be666a7$0$17792$
Bonjour,

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

Merci d'avance




michdenis
Le #22021951
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
'--------------------------------
Philippe.R
Le #22024081
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" news:4be6aa19$0$21819$
Juste pour lancer un dir par exemple ?

"Philippe.R" %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" news:4be666a7$0$17792$
Bonjour,

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

Merci d'avance








bob123
Le #22034301
OK merci

"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
'--------------------------------



Publicité
Poster une réponse
Anonyme