lancer une commande dos depuis une cellule

shell("cmd.exe /k"),vbMaximizedFocus

On 16 fév, 14:16, ben <b...@discussions.microsoft.com> wrote:

Bonjour,

J'aimerais que la fenêtre de l'invite de commmande (dos) reste ouverte afin
que je puisse voir le résultat en dos...

Sub Nslookup()

    ' Macro enregistrée le 16/02/2009
    ligne = ActiveCell.Row
    colonne = ActiveCell.Column
    cible = Cells(ligne, colonne)
    'MsgBox cible
    toexe = "c:winntsystem32nslookup.exe" & " " & cible
    retval = Shell(toexe, 1)

End Sub

Merci d'avance.
Cordialement.

En complément ou en remplacement de mon RetVal ?.

Cordialement.

"gmlsteph@gmail.com" wrote:

shell("cmd.exe /k"),vbMaximizedFocus

On 16 fév, 14:16, ben <b...@discussions.microsoft.com> wrote:
> Bonjour,
>
> J'aimerais que la fenêtre de l'invite de commmande (dos) reste ouverte afin
> que je puisse voir le résultat en dos...
>
> Sub Nslookup()
>
> ' Macro enregistrée le 16/02/2009
> ligne = ActiveCell.Row
> colonne = ActiveCell.Column
> cible = Cells(ligne, colonne)
> 'MsgBox cible
> toexe = "c:winntsystem32nslookup.exe" & " " & cible
> retval = Shell(toexe, 1)
>
> End Sub
>
> Merci d'avance.
> Cordialement.

À quoi sert la variable Ret

Si on définit cette variable dans le haut du module avec
dim ou public selon les besoins, on peut utiliser cette
variable pour activer la fenêtre DOS, le cas échant.
Évidemment cela suppose qu'elle n'a pas été fermé.

Dim Ret As Long
'-------------------------
Sub Ok()
Ret = Shell("cmd.exe /k", vbMaximizedFocus)
End Sub
'-------------------------

'Pour rendre la fenêtre active à nouveau si besoin,
'-----------------------
Sub test()
AppActivate Ret
End Sub
'-------------------------



"ben" <ben@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
67BF0167-3063-47AB-A87A-31CB3A65416D@microsoft.com...
En complément ou en remplacement de mon RetVal ?.

Cordialement.

"gmlsteph@gmail.com" wrote:

shell("cmd.exe /k"),vbMaximizedFocus

On 16 fév, 14:16, ben <b...@discussions.microsoft.com> wrote:
> Bonjour,
>
> J'aimerais que la fenêtre de l'invite de commmande (dos) reste ouverte afin
> que je puisse voir le résultat en dos...
>
> Sub Nslookup()
>
> ' Macro enregistrée le 16/02/2009
> ligne = ActiveCell.Row
> colonne = ActiveCell.Column
> cible = Cells(ligne, colonne)
> 'MsgBox cible
> toexe = "c:winntsystem32nslookup.exe" & " " & cible
> retval = Shell(toexe, 1)
>
> End Sub
>
> Merci d'avance.
> Cordialement.

je ne cherche même pas à saisir pas ce que tu essaye de faire et dans
le fond cela n'a pas d'importance
un batch irait ou un script , sans doute, mais plus précisément le
souci était de savoir
comment garder la fenêtre d'execution ouverte
la ligne avec cmd est un exemple.


--
lSteph

On 16 fév, 14:35, gmlst...@gmail.com wrote:

shell("cmd.exe /k"),vbMaximizedFocus

On 16 fév, 14:16, ben <b...@discussions.microsoft.com> wrote:



> Bonjour,

> J'aimerais que la fenêtre de l'invite de commmande (dos) reste ouvert e afin
> que je puisse voir le résultat en dos...

> Sub Nslookup()

>     ' Macro enregistrée le 16/02/2009
>     ligne = ActiveCell.Row
>     colonne = ActiveCell.Column
>     cible = Cells(ligne, colonne)
>     'MsgBox cible
>     toexe = "c:winntsystem32nslookup.exe" & " " & cible
>     retval = Shell(toexe, 1)

> End Sub

> Merci d'avance.
> Cordialement.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Voici un exemple : Adapte le chemin pour un répertoire
existant sur ta machine.
La commande Dir / S en dos liste tous les fichiers et sous-répertoires
du répertoire énoncé.

Pour conserver la fenêtre DOS active, c'est le paramètre K dans la ligne
de commande cmd.exe /k qui fait le boulot
Si tu ouvres une fenêtre DOS, tu tapes cmd.exe /? et tu vas avoir tous
les paramètres associés à la commande et leur signification.
'------------------------------
Sub test()
Dim Commande As String, Chemin As String
Chemin = "c:userspowerUserDocuments*.*"
Commande = "Dir /S " & Chemin
Shell "Cmd.exe /K " & Commande, vbNormalFocus
End Sub
'------------------------------



<gmlsteph@gmail.com> a écrit dans le message de groupe de discussion :
a040a293-e798-4cae-a7f7-2fbd24e62b77@33g2000yqm.googlegroups.com...
je ne cherche même pas à saisir pas ce que tu essaye de faire et dans
le fond cela n'a pas d'importance
un batch irait ou un script , sans doute, mais plus précisément le
souci était de savoir
comment garder la fenêtre d'execution ouverte
la ligne avec cmd est un exemple.


--
lSteph

On 16 fév, 14:35, gmlst...@gmail.com wrote:

shell("cmd.exe /k"),vbMaximizedFocus

On 16 fév, 14:16, ben <b...@discussions.microsoft.com> wrote:



> Bonjour,

> J'aimerais que la fenêtre de l'invite de commmande (dos) reste ouverte afin
> que je puisse voir le résultat en dos...

> Sub Nslookup()

> ' Macro enregistrée le 16/02/2009
> ligne = ActiveCell.Row
> colonne = ActiveCell.Column
> cible = Cells(ligne, colonne)
> 'MsgBox cible
> toexe = "c:winntsystem32nslookup.exe" & " " & cible
> retval = Shell(toexe, 1)

> End Sub

> Merci d'avance.
> Cordialement.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -