> Sub Nslookup()
> ' Macro enregistre 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
> Sub Nslookup()
> ' Macro enregistre 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
> Sub Nslookup()
> ' Macro enregistre 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
Cette adresse te donnera des infos sur les paramètres que
tu peux utiliser pour obtenir la ligne de commande que tu désires
avec Nslookup
http://support.microsoft.com/kb/200525/fr
Quelle est la syntaxe de ta commande lorsque tu la tapes directement
dans une fenêtre DOS ?
Cette commande, tu peux l'inscrire dans un fichier NotePad et tu
l'enregistres avec une extension .BAT
Ta question se résume : Comment passer une variable au batch file
située dans une cellule lorsque tu veux lancer son exécution.
Pour pouvoir faire ça, tu dois modifier la commande de ton batch file
par des variables
Voici un exemple avec la commande XCOPY
'La ligne de code suivante normale dans une fenêtre DOS
C:Xcopy /s/e/y c:excel c:denis
Cette ligne permet de copier tous les fichiers et répertoires(vides ou non) contenus
dans le répertoire excel vers le répertoire C:Denis . Tu ne dois pas oublier le dernier
back lash après Denis, car il indique que Denis est un répertoire et non un fichier. De
plus,
si des fichiers sont présents dans le répertoire de destination, ils seront écrasés sans
aucun
avertissement ( le paramêtre responsable est /Y)
Après avoir modifié ta commande par des variables, la syntaxe de la commande
que tu inscrit dans ton batch file est celle-ci:
xcopy /s/e/y %1 %2
%1 remplace c:excel
%2 remplace c:denis
lorsque tu lanceras ton batchFile
Pour lancer ton batchFile directement dans une fenêtre DOS
c:cheminMonFichier.bat c:excel c:denis
Pour lancer la même commande dans Excel :
La ligne de commande que tu cherches est :
D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
K = paramètre qui permet à la fenêtre DOS de demeurer active après l'exécution
C = Représente le chemin où est ton batchFile (ton fichier.bat)
A = remplace C:Excel dans mon exemple (variable 1)
B = Remplace c:denis dans mon exemple (variable 2) pour la commande de xcopy
Et pour lancer l'exécution de la commande D
Shell D, vbNormalFocus
La procédure regroupée dans un module standard
ressemblerait à ceci :
'-------------------------------------
Sub Test()
Dim D as String, C As String, A As String, B as String
A = "c:Fichier.bat"
B = "c:excel"
C = "c:denis"
D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
Shell D, vbNormalFocus
End Sub
'-------------------------------------
Voilà !
"ben" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai une commande qui s'étale sur plusieurs cellules.
J'aimerais lors de la sélection de celles-ci avec la souris lancer une
commande dos.
Je préfère une sélection manuelle que la concanténation des cellules.
Modèle sur une seule cellule :
> > Sub Nslookup()
>
> > ' Macro enregistre 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.
Cordialement.
Cette adresse te donnera des infos sur les paramètres que
tu peux utiliser pour obtenir la ligne de commande que tu désires
avec Nslookup
http://support.microsoft.com/kb/200525/fr
Quelle est la syntaxe de ta commande lorsque tu la tapes directement
dans une fenêtre DOS ?
Cette commande, tu peux l'inscrire dans un fichier NotePad et tu
l'enregistres avec une extension .BAT
Ta question se résume : Comment passer une variable au batch file
située dans une cellule lorsque tu veux lancer son exécution.
Pour pouvoir faire ça, tu dois modifier la commande de ton batch file
par des variables
Voici un exemple avec la commande XCOPY
'La ligne de code suivante normale dans une fenêtre DOS
C:Xcopy /s/e/y c:excel c:denis
Cette ligne permet de copier tous les fichiers et répertoires(vides ou non) contenus
dans le répertoire excel vers le répertoire C:Denis . Tu ne dois pas oublier le dernier
back lash après Denis, car il indique que Denis est un répertoire et non un fichier. De
plus,
si des fichiers sont présents dans le répertoire de destination, ils seront écrasés sans
aucun
avertissement ( le paramêtre responsable est /Y)
Après avoir modifié ta commande par des variables, la syntaxe de la commande
que tu inscrit dans ton batch file est celle-ci:
xcopy /s/e/y %1 %2
%1 remplace c:excel
%2 remplace c:denis
lorsque tu lanceras ton batchFile
Pour lancer ton batchFile directement dans une fenêtre DOS
c:cheminMonFichier.bat c:excel c:denis
Pour lancer la même commande dans Excel :
La ligne de commande que tu cherches est :
D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
K = paramètre qui permet à la fenêtre DOS de demeurer active après l'exécution
C = Représente le chemin où est ton batchFile (ton fichier.bat)
A = remplace C:Excel dans mon exemple (variable 1)
B = Remplace c:denis dans mon exemple (variable 2) pour la commande de xcopy
Et pour lancer l'exécution de la commande D
Shell D, vbNormalFocus
La procédure regroupée dans un module standard
ressemblerait à ceci :
'-------------------------------------
Sub Test()
Dim D as String, C As String, A As String, B as String
A = "c:Fichier.bat"
B = "c:excel"
C = "c:denis"
D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
Shell D, vbNormalFocus
End Sub
'-------------------------------------
Voilà !
"ben" <ben@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
B5503E7E-DA35-4590-B0A2-E97F8586DA94@microsoft.com...
Bonjour,
J'ai une commande qui s'étale sur plusieurs cellules.
J'aimerais lors de la sélection de celles-ci avec la souris lancer une
commande dos.
Je préfère une sélection manuelle que la concanténation des cellules.
Modèle sur une seule cellule :
> > Sub Nslookup()
>
> > ' Macro enregistre 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.
Cordialement.
Cette adresse te donnera des infos sur les paramètres que
tu peux utiliser pour obtenir la ligne de commande que tu désires
avec Nslookup
http://support.microsoft.com/kb/200525/fr
Quelle est la syntaxe de ta commande lorsque tu la tapes directement
dans une fenêtre DOS ?
Cette commande, tu peux l'inscrire dans un fichier NotePad et tu
l'enregistres avec une extension .BAT
Ta question se résume : Comment passer une variable au batch file
située dans une cellule lorsque tu veux lancer son exécution.
Pour pouvoir faire ça, tu dois modifier la commande de ton batch file
par des variables
Voici un exemple avec la commande XCOPY
'La ligne de code suivante normale dans une fenêtre DOS
C:Xcopy /s/e/y c:excel c:denis
Cette ligne permet de copier tous les fichiers et répertoires(vides ou non) contenus
dans le répertoire excel vers le répertoire C:Denis . Tu ne dois pas oublier le dernier
back lash après Denis, car il indique que Denis est un répertoire et non un fichier. De
plus,
si des fichiers sont présents dans le répertoire de destination, ils seront écrasés sans
aucun
avertissement ( le paramêtre responsable est /Y)
Après avoir modifié ta commande par des variables, la syntaxe de la commande
que tu inscrit dans ton batch file est celle-ci:
xcopy /s/e/y %1 %2
%1 remplace c:excel
%2 remplace c:denis
lorsque tu lanceras ton batchFile
Pour lancer ton batchFile directement dans une fenêtre DOS
c:cheminMonFichier.bat c:excel c:denis
Pour lancer la même commande dans Excel :
La ligne de commande que tu cherches est :
D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
K = paramètre qui permet à la fenêtre DOS de demeurer active après l'exécution
C = Représente le chemin où est ton batchFile (ton fichier.bat)
A = remplace C:Excel dans mon exemple (variable 1)
B = Remplace c:denis dans mon exemple (variable 2) pour la commande de xcopy
Et pour lancer l'exécution de la commande D
Shell D, vbNormalFocus
La procédure regroupée dans un module standard
ressemblerait à ceci :
'-------------------------------------
Sub Test()
Dim D as String, C As String, A As String, B as String
A = "c:Fichier.bat"
B = "c:excel"
C = "c:denis"
D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
Shell D, vbNormalFocus
End Sub
'-------------------------------------
Voilà !
"ben" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai une commande qui s'étale sur plusieurs cellules.
J'aimerais lors de la sélection de celles-ci avec la souris lancer une
commande dos.
Je préfère une sélection manuelle que la concanténation des cellules.
Modèle sur une seule cellule :
> > Sub Nslookup()
>
> > ' Macro enregistre 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.
Cordialement.
Cette adresse te donnera des infos sur les paramètres que
tu peux utiliser pour obtenir la ligne de commande que tu désires
avec Nslookup
http://support.microsoft.com/kb/200525/fr
Quelle est la syntaxe de ta commande lorsque tu la tapes directement
dans une fenêtre DOS ?
Cette commande, tu peux l'inscrire dans un fichier NotePad et tu
l'enregistres avec une extension .BAT
Ta question se résume : Comment passer une variable au batch file
située dans une cellule lorsque tu veux lancer son exécution.
Pour pouvoir faire ça, tu dois modifier la commande de ton batch file
par des variables
Voici un exemple avec la commande XCOPY
'La ligne de code suivante normale dans une fenêtre DOS
C:Xcopy /s/e/y c:excel c:denis
Cette ligne permet de copier tous les fichiers et répertoires(vides ou non) contenus
dans le répertoire excel vers le répertoire C:Denis . Tu ne dois pas oublier le
dernier
back lash après Denis, car il indique que Denis est un répertoire et non un fichier. De
plus,
si des fichiers sont présents dans le répertoire de destination, ils seront écrasés sans
aucun
avertissement ( le paramêtre responsable est /Y)
Après avoir modifié ta commande par des variables, la syntaxe de la commande
que tu inscrit dans ton batch file est celle-ci:
xcopy /s/e/y %1 %2
%1 remplace c:excel
%2 remplace c:denis
lorsque tu lanceras ton batchFile
Pour lancer ton batchFile directement dans une fenêtre DOS
c:cheminMonFichier.bat c:excel c:denis
Pour lancer la même commande dans Excel :
La ligne de commande que tu cherches est :
D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
K = paramètre qui permet à la fenêtre DOS de demeurer active après l'exécution
C = Représente le chemin où est ton batchFile (ton fichier.bat)
A = remplace C:Excel dans mon exemple (variable 1)
B = Remplace c:denis dans mon exemple (variable 2) pour la commande de xcopy
Et pour lancer l'exécution de la commande D
Shell D, vbNormalFocus
La procédure regroupée dans un module standard
ressemblerait à ceci :
'-------------------------------------
Sub Test()
Dim D as String, C As String, A As String, B as String
A = "c:Fichier.bat"
B = "c:excel"
C = "c:denis"
D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
Shell D, vbNormalFocus
End Sub
'-------------------------------------
Voilà !
"ben" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai une commande qui s'étale sur plusieurs cellules.
J'aimerais lors de la sélection de celles-ci avec la souris lancer une
commande dos.
Je préfère une sélection manuelle que la concanténation des cellules.
Modèle sur une seule cellule :
> > Sub Nslookup()
>
> > ' Macro enregistre 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.
Cordialement.
Cette adresse te donnera des infos sur les paramètres que
tu peux utiliser pour obtenir la ligne de commande que tu désires
avec Nslookup
http://support.microsoft.com/kb/200525/fr
Quelle est la syntaxe de ta commande lorsque tu la tapes directement
dans une fenêtre DOS ?
Cette commande, tu peux l'inscrire dans un fichier NotePad et tu
l'enregistres avec une extension .BAT
Ta question se résume : Comment passer une variable au batch file
située dans une cellule lorsque tu veux lancer son exécution.
Pour pouvoir faire ça, tu dois modifier la commande de ton batch file
par des variables
Voici un exemple avec la commande XCOPY
'La ligne de code suivante normale dans une fenêtre DOS
C:Xcopy /s/e/y c:excel c:denis
Cette ligne permet de copier tous les fichiers et répertoires(vides ou non) contenus
dans le répertoire excel vers le répertoire C:Denis . Tu ne dois pas oublier le
dernier
back lash après Denis, car il indique que Denis est un répertoire et non un fichier. De
plus,
si des fichiers sont présents dans le répertoire de destination, ils seront écrasés sans
aucun
avertissement ( le paramêtre responsable est /Y)
Après avoir modifié ta commande par des variables, la syntaxe de la commande
que tu inscrit dans ton batch file est celle-ci:
xcopy /s/e/y %1 %2
%1 remplace c:excel
%2 remplace c:denis
lorsque tu lanceras ton batchFile
Pour lancer ton batchFile directement dans une fenêtre DOS
c:cheminMonFichier.bat c:excel c:denis
Pour lancer la même commande dans Excel :
La ligne de commande que tu cherches est :
D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
K = paramètre qui permet à la fenêtre DOS de demeurer active après l'exécution
C = Représente le chemin où est ton batchFile (ton fichier.bat)
A = remplace C:Excel dans mon exemple (variable 1)
B = Remplace c:denis dans mon exemple (variable 2) pour la commande de xcopy
Et pour lancer l'exécution de la commande D
Shell D, vbNormalFocus
La procédure regroupée dans un module standard
ressemblerait à ceci :
'-------------------------------------
Sub Test()
Dim D as String, C As String, A As String, B as String
A = "c:Fichier.bat"
B = "c:excel"
C = "c:denis"
D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
Shell D, vbNormalFocus
End Sub
'-------------------------------------
Voilà !
"ben" <ben@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
B5503E7E-DA35-4590-B0A2-E97F8586DA94@microsoft.com...
Bonjour,
J'ai une commande qui s'étale sur plusieurs cellules.
J'aimerais lors de la sélection de celles-ci avec la souris lancer une
commande dos.
Je préfère une sélection manuelle que la concanténation des cellules.
Modèle sur une seule cellule :
> > Sub Nslookup()
>
> > ' Macro enregistre 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.
Cordialement.
Cette adresse te donnera des infos sur les paramètres que
tu peux utiliser pour obtenir la ligne de commande que tu désires
avec Nslookup
http://support.microsoft.com/kb/200525/fr
Quelle est la syntaxe de ta commande lorsque tu la tapes directement
dans une fenêtre DOS ?
Cette commande, tu peux l'inscrire dans un fichier NotePad et tu
l'enregistres avec une extension .BAT
Ta question se résume : Comment passer une variable au batch file
située dans une cellule lorsque tu veux lancer son exécution.
Pour pouvoir faire ça, tu dois modifier la commande de ton batch file
par des variables
Voici un exemple avec la commande XCOPY
'La ligne de code suivante normale dans une fenêtre DOS
C:Xcopy /s/e/y c:excel c:denis
Cette ligne permet de copier tous les fichiers et répertoires(vides ou non) contenus
dans le répertoire excel vers le répertoire C:Denis . Tu ne dois pas oublier le
dernier
back lash après Denis, car il indique que Denis est un répertoire et non un fichier. De
plus,
si des fichiers sont présents dans le répertoire de destination, ils seront écrasés sans
aucun
avertissement ( le paramêtre responsable est /Y)
Après avoir modifié ta commande par des variables, la syntaxe de la commande
que tu inscrit dans ton batch file est celle-ci:
xcopy /s/e/y %1 %2
%1 remplace c:excel
%2 remplace c:denis
lorsque tu lanceras ton batchFile
Pour lancer ton batchFile directement dans une fenêtre DOS
c:cheminMonFichier.bat c:excel c:denis
Pour lancer la même commande dans Excel :
La ligne de commande que tu cherches est :
D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
K = paramètre qui permet à la fenêtre DOS de demeurer active après l'exécution
C = Représente le chemin où est ton batchFile (ton fichier.bat)
A = remplace C:Excel dans mon exemple (variable 1)
B = Remplace c:denis dans mon exemple (variable 2) pour la commande de xcopy
Et pour lancer l'exécution de la commande D
Shell D, vbNormalFocus
La procédure regroupée dans un module standard
ressemblerait à ceci :
'-------------------------------------
Sub Test()
Dim D as String, C As String, A As String, B as String
A = "c:Fichier.bat"
B = "c:excel"
C = "c:denis"
D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
Shell D, vbNormalFocus
End Sub
'-------------------------------------
Voilà !
"ben" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai une commande qui s'étale sur plusieurs cellules.
J'aimerais lors de la sélection de celles-ci avec la souris lancer une
commande dos.
Je préfère une sélection manuelle que la concanténation des cellules.
Modèle sur une seule cellule :
> > Sub Nslookup()
>
> > ' Macro enregistre 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.
Cordialement.
Sélection multiple ou pas, "ActiveCell" signifie TOUJOURS
la cellule qui est ACTIVE dans la feuille ACTIVE à l'écran.
Cependant, si tu as une sélection multiple et que tu veuilles
changer quelle cellule doit être active, tu peux utiliser une
des deux commandes suivantes : L'expression important
à retenir est "Activate" au lieu de "Sélect". Il est imporant
de prendre note que la cellule choisie doit être à l'intérieur
d'une des plages déjà sélectionnées sinon tu vas perdre
la sélection déjà en place dans ta feuille.
les 2 commande sont : (selon tes préférences)
Cells(3,2).Activate OU Range("B3").Activate
"ben" a écrit dans le message de groupe de discussion :
Bonjour,
Je veux lors de la sélection multiple des cellules que seulement
celles-ci soient prise en compte.
ActiveCell avec sélection multiple .... ?.
Cordialement.
"michdenis" wrote:
> Cette adresse te donnera des infos sur les paramètres que
> tu peux utiliser pour obtenir la ligne de commande que tu désires
> avec Nslookup
> http://support.microsoft.com/kb/200525/fr
>
> Quelle est la syntaxe de ta commande lorsque tu la tapes directement
> dans une fenêtre DOS ?
>
> Cette commande, tu peux l'inscrire dans un fichier NotePad et tu
> l'enregistres avec une extension .BAT
>
> Ta question se résume : Comment passer une variable au batch file
> située dans une cellule lorsque tu veux lancer son exécution.
>
> Pour pouvoir faire ça, tu dois modifier la commande de ton batch file
> par des variables
>
> Voici un exemple avec la commande XCOPY
> 'La ligne de code suivante normale dans une fenêtre DOS
> C:Xcopy /s/e/y c:excel c:denis
>
> Cette ligne permet de copier tous les fichiers et répertoires(vides ou non) contenus
> dans le répertoire excel vers le répertoire C:Denis . Tu ne dois pas oublier le
> dernier
> back lash après Denis, car il indique que Denis est un répertoire et non un fichier. De
> plus,
> si des fichiers sont présents dans le répertoire de destination, ils seront écrasés sans
> aucun
> avertissement ( le paramêtre responsable est /Y)
>
> Après avoir modifié ta commande par des variables, la syntaxe de la commande
> que tu inscrit dans ton batch file est celle-ci:
> xcopy /s/e/y %1 %2
>
> %1 remplace c:excel
> %2 remplace c:denis
> lorsque tu lanceras ton batchFile
>
> Pour lancer ton batchFile directement dans une fenêtre DOS
> c:cheminMonFichier.bat c:excel c:denis
>
> Pour lancer la même commande dans Excel :
> La ligne de commande que tu cherches est :
>
> D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
>
> K = paramètre qui permet à la fenêtre DOS de demeurer active après l'exécution
> C = Représente le chemin où est ton batchFile (ton fichier.bat)
> A = remplace C:Excel dans mon exemple (variable 1)
> B = Remplace c:denis dans mon exemple (variable 2) pour la commande de xcopy
>
> Et pour lancer l'exécution de la commande D
> Shell D, vbNormalFocus
>
> La procédure regroupée dans un module standard
> ressemblerait à ceci :
> '-------------------------------------
> Sub Test()
> Dim D as String, C As String, A As String, B as String
> A = "c:Fichier.bat"
> B = "c:excel"
> C = "c:denis"
> D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
> Shell D, vbNormalFocus
> End Sub
> '-------------------------------------
>
> Voilà !
>
>
>
>
> "ben" a écrit dans le message de groupe de discussion :
>
> Bonjour,
>
> J'ai une commande qui s'étale sur plusieurs cellules.
> J'aimerais lors de la sélection de celles-ci avec la souris lancer une
> commande dos.
>
> Je préfère une sélection manuelle que la concanténation des cellules.
>
> Modèle sur une seule cellule :
> > > Sub Nslookup()
> >
> > > ' Macro enregistre 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.
>
> Cordialement.
>
>
Sélection multiple ou pas, "ActiveCell" signifie TOUJOURS
la cellule qui est ACTIVE dans la feuille ACTIVE à l'écran.
Cependant, si tu as une sélection multiple et que tu veuilles
changer quelle cellule doit être active, tu peux utiliser une
des deux commandes suivantes : L'expression important
à retenir est "Activate" au lieu de "Sélect". Il est imporant
de prendre note que la cellule choisie doit être à l'intérieur
d'une des plages déjà sélectionnées sinon tu vas perdre
la sélection déjà en place dans ta feuille.
les 2 commande sont : (selon tes préférences)
Cells(3,2).Activate OU Range("B3").Activate
"ben" <ben@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
5178B176-FC85-43E1-ABB1-2DFD3BA1660B@microsoft.com...
Bonjour,
Je veux lors de la sélection multiple des cellules que seulement
celles-ci soient prise en compte.
ActiveCell avec sélection multiple .... ?.
Cordialement.
"michdenis" wrote:
> Cette adresse te donnera des infos sur les paramètres que
> tu peux utiliser pour obtenir la ligne de commande que tu désires
> avec Nslookup
> http://support.microsoft.com/kb/200525/fr
>
> Quelle est la syntaxe de ta commande lorsque tu la tapes directement
> dans une fenêtre DOS ?
>
> Cette commande, tu peux l'inscrire dans un fichier NotePad et tu
> l'enregistres avec une extension .BAT
>
> Ta question se résume : Comment passer une variable au batch file
> située dans une cellule lorsque tu veux lancer son exécution.
>
> Pour pouvoir faire ça, tu dois modifier la commande de ton batch file
> par des variables
>
> Voici un exemple avec la commande XCOPY
> 'La ligne de code suivante normale dans une fenêtre DOS
> C:Xcopy /s/e/y c:excel c:denis
>
> Cette ligne permet de copier tous les fichiers et répertoires(vides ou non) contenus
> dans le répertoire excel vers le répertoire C:Denis . Tu ne dois pas oublier le
> dernier
> back lash après Denis, car il indique que Denis est un répertoire et non un fichier. De
> plus,
> si des fichiers sont présents dans le répertoire de destination, ils seront écrasés sans
> aucun
> avertissement ( le paramêtre responsable est /Y)
>
> Après avoir modifié ta commande par des variables, la syntaxe de la commande
> que tu inscrit dans ton batch file est celle-ci:
> xcopy /s/e/y %1 %2
>
> %1 remplace c:excel
> %2 remplace c:denis
> lorsque tu lanceras ton batchFile
>
> Pour lancer ton batchFile directement dans une fenêtre DOS
> c:cheminMonFichier.bat c:excel c:denis
>
> Pour lancer la même commande dans Excel :
> La ligne de commande que tu cherches est :
>
> D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
>
> K = paramètre qui permet à la fenêtre DOS de demeurer active après l'exécution
> C = Représente le chemin où est ton batchFile (ton fichier.bat)
> A = remplace C:Excel dans mon exemple (variable 1)
> B = Remplace c:denis dans mon exemple (variable 2) pour la commande de xcopy
>
> Et pour lancer l'exécution de la commande D
> Shell D, vbNormalFocus
>
> La procédure regroupée dans un module standard
> ressemblerait à ceci :
> '-------------------------------------
> Sub Test()
> Dim D as String, C As String, A As String, B as String
> A = "c:Fichier.bat"
> B = "c:excel"
> C = "c:denis"
> D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
> Shell D, vbNormalFocus
> End Sub
> '-------------------------------------
>
> Voilà !
>
>
>
>
> "ben" <ben@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
> B5503E7E-DA35-4590-B0A2-E97F8586DA94@microsoft.com...
> Bonjour,
>
> J'ai une commande qui s'étale sur plusieurs cellules.
> J'aimerais lors de la sélection de celles-ci avec la souris lancer une
> commande dos.
>
> Je préfère une sélection manuelle que la concanténation des cellules.
>
> Modèle sur une seule cellule :
> > > Sub Nslookup()
> >
> > > ' Macro enregistre 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.
>
> Cordialement.
>
>
Sélection multiple ou pas, "ActiveCell" signifie TOUJOURS
la cellule qui est ACTIVE dans la feuille ACTIVE à l'écran.
Cependant, si tu as une sélection multiple et que tu veuilles
changer quelle cellule doit être active, tu peux utiliser une
des deux commandes suivantes : L'expression important
à retenir est "Activate" au lieu de "Sélect". Il est imporant
de prendre note que la cellule choisie doit être à l'intérieur
d'une des plages déjà sélectionnées sinon tu vas perdre
la sélection déjà en place dans ta feuille.
les 2 commande sont : (selon tes préférences)
Cells(3,2).Activate OU Range("B3").Activate
"ben" a écrit dans le message de groupe de discussion :
Bonjour,
Je veux lors de la sélection multiple des cellules que seulement
celles-ci soient prise en compte.
ActiveCell avec sélection multiple .... ?.
Cordialement.
"michdenis" wrote:
> Cette adresse te donnera des infos sur les paramètres que
> tu peux utiliser pour obtenir la ligne de commande que tu désires
> avec Nslookup
> http://support.microsoft.com/kb/200525/fr
>
> Quelle est la syntaxe de ta commande lorsque tu la tapes directement
> dans une fenêtre DOS ?
>
> Cette commande, tu peux l'inscrire dans un fichier NotePad et tu
> l'enregistres avec une extension .BAT
>
> Ta question se résume : Comment passer une variable au batch file
> située dans une cellule lorsque tu veux lancer son exécution.
>
> Pour pouvoir faire ça, tu dois modifier la commande de ton batch file
> par des variables
>
> Voici un exemple avec la commande XCOPY
> 'La ligne de code suivante normale dans une fenêtre DOS
> C:Xcopy /s/e/y c:excel c:denis
>
> Cette ligne permet de copier tous les fichiers et répertoires(vides ou non) contenus
> dans le répertoire excel vers le répertoire C:Denis . Tu ne dois pas oublier le
> dernier
> back lash après Denis, car il indique que Denis est un répertoire et non un fichier. De
> plus,
> si des fichiers sont présents dans le répertoire de destination, ils seront écrasés sans
> aucun
> avertissement ( le paramêtre responsable est /Y)
>
> Après avoir modifié ta commande par des variables, la syntaxe de la commande
> que tu inscrit dans ton batch file est celle-ci:
> xcopy /s/e/y %1 %2
>
> %1 remplace c:excel
> %2 remplace c:denis
> lorsque tu lanceras ton batchFile
>
> Pour lancer ton batchFile directement dans une fenêtre DOS
> c:cheminMonFichier.bat c:excel c:denis
>
> Pour lancer la même commande dans Excel :
> La ligne de commande que tu cherches est :
>
> D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
>
> K = paramètre qui permet à la fenêtre DOS de demeurer active après l'exécution
> C = Représente le chemin où est ton batchFile (ton fichier.bat)
> A = remplace C:Excel dans mon exemple (variable 1)
> B = Remplace c:denis dans mon exemple (variable 2) pour la commande de xcopy
>
> Et pour lancer l'exécution de la commande D
> Shell D, vbNormalFocus
>
> La procédure regroupée dans un module standard
> ressemblerait à ceci :
> '-------------------------------------
> Sub Test()
> Dim D as String, C As String, A As String, B as String
> A = "c:Fichier.bat"
> B = "c:excel"
> C = "c:denis"
> D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
> Shell D, vbNormalFocus
> End Sub
> '-------------------------------------
>
> Voilà !
>
>
>
>
> "ben" a écrit dans le message de groupe de discussion :
>
> Bonjour,
>
> J'ai une commande qui s'étale sur plusieurs cellules.
> J'aimerais lors de la sélection de celles-ci avec la souris lancer une
> commande dos.
>
> Je préfère une sélection manuelle que la concanténation des cellules.
>
> Modèle sur une seule cellule :
> > > Sub Nslookup()
> >
> > > ' Macro enregistre 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.
>
> Cordialement.
>
>
Sélection multiple ou pas, "ActiveCell" signifie TOUJOURS
la cellule qui est ACTIVE dans la feuille ACTIVE à l'écran.
Cependant, si tu as une sélection multiple et que tu veuilles
changer quelle cellule doit être active, tu peux utiliser une
des deux commandes suivantes : L'expression important
à retenir est "Activate" au lieu de "Sélect". Il est imporant
de prendre note que la cellule choisie doit être à l'intérieur
d'une des plages déjà sélectionnées sinon tu vas perdre
la sélection déjà en place dans ta feuille.
les 2 commande sont : (selon tes préférences)
Cells(3,2).Activate OU Range("B3").Activate
"ben" a écrit dans le message de groupe de discussion :
Bonjour,
Je veux lors de la sélection multiple des cellules que seulement
celles-ci soient prise en compte.
ActiveCell avec sélection multiple .... ?.
Cordialement.
"michdenis" wrote:
> Cette adresse te donnera des infos sur les paramètres que
> tu peux utiliser pour obtenir la ligne de commande que tu désires
> avec Nslookup
> http://support.microsoft.com/kb/200525/fr
>
> Quelle est la syntaxe de ta commande lorsque tu la tapes directement
> dans une fenêtre DOS ?
>
> Cette commande, tu peux l'inscrire dans un fichier NotePad et tu
> l'enregistres avec une extension .BAT
>
> Ta question se résume : Comment passer une variable au batch file
> située dans une cellule lorsque tu veux lancer son exécution.
>
> Pour pouvoir faire ça, tu dois modifier la commande de ton batch file
> par des variables
>
> Voici un exemple avec la commande XCOPY
> 'La ligne de code suivante normale dans une fenêtre DOS
> C:Xcopy /s/e/y c:excel c:denis
>
> Cette ligne permet de copier tous les fichiers et répertoires(vides ou non) contenus
> dans le répertoire excel vers le répertoire C:Denis . Tu ne dois pas oublier le
> dernier
> back lash après Denis, car il indique que Denis est un répertoire et non un fichier.
> De
> plus,
> si des fichiers sont présents dans le répertoire de destination, ils seront écrasés
> sans
> aucun
> avertissement ( le paramêtre responsable est /Y)
>
> Après avoir modifié ta commande par des variables, la syntaxe de la commande
> que tu inscrit dans ton batch file est celle-ci:
> xcopy /s/e/y %1 %2
>
> %1 remplace c:excel
> %2 remplace c:denis
> lorsque tu lanceras ton batchFile
>
> Pour lancer ton batchFile directement dans une fenêtre DOS
> c:cheminMonFichier.bat c:excel c:denis
>
> Pour lancer la même commande dans Excel :
> La ligne de commande que tu cherches est :
>
> D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
>
> K = paramètre qui permet à la fenêtre DOS de demeurer active après l'exécution
> C = Représente le chemin où est ton batchFile (ton fichier.bat)
> A = remplace C:Excel dans mon exemple (variable 1)
> B = Remplace c:denis dans mon exemple (variable 2) pour la commande de xcopy
>
> Et pour lancer l'exécution de la commande D
> Shell D, vbNormalFocus
>
> La procédure regroupée dans un module standard
> ressemblerait à ceci :
> '-------------------------------------
> Sub Test()
> Dim D as String, C As String, A As String, B as String
> A = "c:Fichier.bat"
> B = "c:excel"
> C = "c:denis"
> D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
> Shell D, vbNormalFocus
> End Sub
> '-------------------------------------
>
> Voilà !
>
>
>
>
> "ben" a écrit dans le message de groupe de discussion
> :
>
> Bonjour,
>
> J'ai une commande qui s'étale sur plusieurs cellules.
> J'aimerais lors de la sélection de celles-ci avec la souris lancer une
> commande dos.
>
> Je préfère une sélection manuelle que la concanténation des cellules.
>
> Modèle sur une seule cellule :
> > > Sub Nslookup()
> >
> > > ' Macro enregistre 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.
>
> Cordialement.
>
>
Sélection multiple ou pas, "ActiveCell" signifie TOUJOURS
la cellule qui est ACTIVE dans la feuille ACTIVE à l'écran.
Cependant, si tu as une sélection multiple et que tu veuilles
changer quelle cellule doit être active, tu peux utiliser une
des deux commandes suivantes : L'expression important
à retenir est "Activate" au lieu de "Sélect". Il est imporant
de prendre note que la cellule choisie doit être à l'intérieur
d'une des plages déjà sélectionnées sinon tu vas perdre
la sélection déjà en place dans ta feuille.
les 2 commande sont : (selon tes préférences)
Cells(3,2).Activate OU Range("B3").Activate
"ben" <ben@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
5178B176-FC85-43E1-ABB1-2DFD3BA1660B@microsoft.com...
Bonjour,
Je veux lors de la sélection multiple des cellules que seulement
celles-ci soient prise en compte.
ActiveCell avec sélection multiple .... ?.
Cordialement.
"michdenis" wrote:
> Cette adresse te donnera des infos sur les paramètres que
> tu peux utiliser pour obtenir la ligne de commande que tu désires
> avec Nslookup
> http://support.microsoft.com/kb/200525/fr
>
> Quelle est la syntaxe de ta commande lorsque tu la tapes directement
> dans une fenêtre DOS ?
>
> Cette commande, tu peux l'inscrire dans un fichier NotePad et tu
> l'enregistres avec une extension .BAT
>
> Ta question se résume : Comment passer une variable au batch file
> située dans une cellule lorsque tu veux lancer son exécution.
>
> Pour pouvoir faire ça, tu dois modifier la commande de ton batch file
> par des variables
>
> Voici un exemple avec la commande XCOPY
> 'La ligne de code suivante normale dans une fenêtre DOS
> C:Xcopy /s/e/y c:excel c:denis
>
> Cette ligne permet de copier tous les fichiers et répertoires(vides ou non) contenus
> dans le répertoire excel vers le répertoire C:Denis . Tu ne dois pas oublier le
> dernier
> back lash après Denis, car il indique que Denis est un répertoire et non un fichier.
> De
> plus,
> si des fichiers sont présents dans le répertoire de destination, ils seront écrasés
> sans
> aucun
> avertissement ( le paramêtre responsable est /Y)
>
> Après avoir modifié ta commande par des variables, la syntaxe de la commande
> que tu inscrit dans ton batch file est celle-ci:
> xcopy /s/e/y %1 %2
>
> %1 remplace c:excel
> %2 remplace c:denis
> lorsque tu lanceras ton batchFile
>
> Pour lancer ton batchFile directement dans une fenêtre DOS
> c:cheminMonFichier.bat c:excel c:denis
>
> Pour lancer la même commande dans Excel :
> La ligne de commande que tu cherches est :
>
> D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
>
> K = paramètre qui permet à la fenêtre DOS de demeurer active après l'exécution
> C = Représente le chemin où est ton batchFile (ton fichier.bat)
> A = remplace C:Excel dans mon exemple (variable 1)
> B = Remplace c:denis dans mon exemple (variable 2) pour la commande de xcopy
>
> Et pour lancer l'exécution de la commande D
> Shell D, vbNormalFocus
>
> La procédure regroupée dans un module standard
> ressemblerait à ceci :
> '-------------------------------------
> Sub Test()
> Dim D as String, C As String, A As String, B as String
> A = "c:Fichier.bat"
> B = "c:excel"
> C = "c:denis"
> D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
> Shell D, vbNormalFocus
> End Sub
> '-------------------------------------
>
> Voilà !
>
>
>
>
> "ben" <ben@discussions.microsoft.com> a écrit dans le message de groupe de discussion
> :
> B5503E7E-DA35-4590-B0A2-E97F8586DA94@microsoft.com...
> Bonjour,
>
> J'ai une commande qui s'étale sur plusieurs cellules.
> J'aimerais lors de la sélection de celles-ci avec la souris lancer une
> commande dos.
>
> Je préfère une sélection manuelle que la concanténation des cellules.
>
> Modèle sur une seule cellule :
> > > Sub Nslookup()
> >
> > > ' Macro enregistre 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.
>
> Cordialement.
>
>
Sélection multiple ou pas, "ActiveCell" signifie TOUJOURS
la cellule qui est ACTIVE dans la feuille ACTIVE à l'écran.
Cependant, si tu as une sélection multiple et que tu veuilles
changer quelle cellule doit être active, tu peux utiliser une
des deux commandes suivantes : L'expression important
à retenir est "Activate" au lieu de "Sélect". Il est imporant
de prendre note que la cellule choisie doit être à l'intérieur
d'une des plages déjà sélectionnées sinon tu vas perdre
la sélection déjà en place dans ta feuille.
les 2 commande sont : (selon tes préférences)
Cells(3,2).Activate OU Range("B3").Activate
"ben" a écrit dans le message de groupe de discussion :
Bonjour,
Je veux lors de la sélection multiple des cellules que seulement
celles-ci soient prise en compte.
ActiveCell avec sélection multiple .... ?.
Cordialement.
"michdenis" wrote:
> Cette adresse te donnera des infos sur les paramètres que
> tu peux utiliser pour obtenir la ligne de commande que tu désires
> avec Nslookup
> http://support.microsoft.com/kb/200525/fr
>
> Quelle est la syntaxe de ta commande lorsque tu la tapes directement
> dans une fenêtre DOS ?
>
> Cette commande, tu peux l'inscrire dans un fichier NotePad et tu
> l'enregistres avec une extension .BAT
>
> Ta question se résume : Comment passer une variable au batch file
> située dans une cellule lorsque tu veux lancer son exécution.
>
> Pour pouvoir faire ça, tu dois modifier la commande de ton batch file
> par des variables
>
> Voici un exemple avec la commande XCOPY
> 'La ligne de code suivante normale dans une fenêtre DOS
> C:Xcopy /s/e/y c:excel c:denis
>
> Cette ligne permet de copier tous les fichiers et répertoires(vides ou non) contenus
> dans le répertoire excel vers le répertoire C:Denis . Tu ne dois pas oublier le
> dernier
> back lash après Denis, car il indique que Denis est un répertoire et non un fichier.
> De
> plus,
> si des fichiers sont présents dans le répertoire de destination, ils seront écrasés
> sans
> aucun
> avertissement ( le paramêtre responsable est /Y)
>
> Après avoir modifié ta commande par des variables, la syntaxe de la commande
> que tu inscrit dans ton batch file est celle-ci:
> xcopy /s/e/y %1 %2
>
> %1 remplace c:excel
> %2 remplace c:denis
> lorsque tu lanceras ton batchFile
>
> Pour lancer ton batchFile directement dans une fenêtre DOS
> c:cheminMonFichier.bat c:excel c:denis
>
> Pour lancer la même commande dans Excel :
> La ligne de commande que tu cherches est :
>
> D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
>
> K = paramètre qui permet à la fenêtre DOS de demeurer active après l'exécution
> C = Représente le chemin où est ton batchFile (ton fichier.bat)
> A = remplace C:Excel dans mon exemple (variable 1)
> B = Remplace c:denis dans mon exemple (variable 2) pour la commande de xcopy
>
> Et pour lancer l'exécution de la commande D
> Shell D, vbNormalFocus
>
> La procédure regroupée dans un module standard
> ressemblerait à ceci :
> '-------------------------------------
> Sub Test()
> Dim D as String, C As String, A As String, B as String
> A = "c:Fichier.bat"
> B = "c:excel"
> C = "c:denis"
> D = Environ("comspec") & " /K " & C & " " & A & " " & B & ""
> Shell D, vbNormalFocus
> End Sub
> '-------------------------------------
>
> Voilà !
>
>
>
>
> "ben" a écrit dans le message de groupe de discussion
> :
>
> Bonjour,
>
> J'ai une commande qui s'étale sur plusieurs cellules.
> J'aimerais lors de la sélection de celles-ci avec la souris lancer une
> commande dos.
>
> Je préfère une sélection manuelle que la concanténation des cellules.
>
> Modèle sur une seule cellule :
> > > Sub Nslookup()
> >
> > > ' Macro enregistre 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.
>
> Cordialement.
>
>
> Sub Nslookup()
> ' Macro enregistre 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
> Sub Nslookup()
> ' Macro enregistre 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
> Sub Nslookup()
> ' Macro enregistre 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
Peut-être ce que tu as besoin et ceci :
Tu colles ce code dans le module feuille où l'action doit
se dérouler.
A chaque fois que tu cliques sur une cellule dans la plage
A1:A10 (tu peux choisir celle que tu désires) la commande
et la fenêtre Dos va se lancer. Pour ce faire, j'ai supposé
que la dite cellule contenait la valeur de variable dont a
besoin ta commande pour s'exécuter normalement.
'--------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Commande As String
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target <> "" Then
Commande = Environ("comspec") & " /k " & _
"c:winntsystem32nslookup.exe " & Target
Shell Commande, vbNormalFocus
End If
End If
End Sub
'----------------------------------
"ben" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai une commande qui s'étale sur plusieurs cellules.
J'aimerais lors de la sélection de celles-ci avec la souris lancer une
commande dos.
Je préfère une sélection manuelle que la concanténation des cellules.
Modèle sur une seule cellule :
> > Sub Nslookup()
>
> > ' Macro enregistre 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.
Cordialement.
Peut-être ce que tu as besoin et ceci :
Tu colles ce code dans le module feuille où l'action doit
se dérouler.
A chaque fois que tu cliques sur une cellule dans la plage
A1:A10 (tu peux choisir celle que tu désires) la commande
et la fenêtre Dos va se lancer. Pour ce faire, j'ai supposé
que la dite cellule contenait la valeur de variable dont a
besoin ta commande pour s'exécuter normalement.
'--------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Commande As String
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target <> "" Then
Commande = Environ("comspec") & " /k " & _
"c:winntsystem32nslookup.exe " & Target
Shell Commande, vbNormalFocus
End If
End If
End Sub
'----------------------------------
"ben" <ben@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
B5503E7E-DA35-4590-B0A2-E97F8586DA94@microsoft.com...
Bonjour,
J'ai une commande qui s'étale sur plusieurs cellules.
J'aimerais lors de la sélection de celles-ci avec la souris lancer une
commande dos.
Je préfère une sélection manuelle que la concanténation des cellules.
Modèle sur une seule cellule :
> > Sub Nslookup()
>
> > ' Macro enregistre 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.
Cordialement.
Peut-être ce que tu as besoin et ceci :
Tu colles ce code dans le module feuille où l'action doit
se dérouler.
A chaque fois que tu cliques sur une cellule dans la plage
A1:A10 (tu peux choisir celle que tu désires) la commande
et la fenêtre Dos va se lancer. Pour ce faire, j'ai supposé
que la dite cellule contenait la valeur de variable dont a
besoin ta commande pour s'exécuter normalement.
'--------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Commande As String
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target <> "" Then
Commande = Environ("comspec") & " /k " & _
"c:winntsystem32nslookup.exe " & Target
Shell Commande, vbNormalFocus
End If
End If
End Sub
'----------------------------------
"ben" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai une commande qui s'étale sur plusieurs cellules.
J'aimerais lors de la sélection de celles-ci avec la souris lancer une
commande dos.
Je préfère une sélection manuelle que la concanténation des cellules.
Modèle sur une seule cellule :
> > Sub Nslookup()
>
> > ' Macro enregistre 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.
Cordialement.
| Cela marche pour une ligne, cependant j'aimerais
| le faire en sélectionnant plusieurs lignes ?.
Sub addResrv_ip()
' il faut sélectionner plusieurs valeurs de la ligne 5 et/ou 6
Dim Cell As Range, Ligne As Range, Valeur
'vérifier si Selection est une plage de cellules
if typename(selection) = "Range" then
'Boucle sur chaque ligne de la sélection
For each Ligne in Selection.Rows
'Boucle sur chaque cellule de la ligne
For Each Cell In Ligne.Cells
valeur = valeur & " " & Cell.Value
' résultats intermédiaires
' msgbox valeur
Next Cell
MsgBox valeur
toexe = "cmd.exe /k" & valeur
RetVal = Shell(toexe, 1)
Next
End if
End Sub
| Cela marche pour une ligne, cependant j'aimerais
| le faire en sélectionnant plusieurs lignes ?.
Sub addResrv_ip()
' il faut sélectionner plusieurs valeurs de la ligne 5 et/ou 6
Dim Cell As Range, Ligne As Range, Valeur
'vérifier si Selection est une plage de cellules
if typename(selection) = "Range" then
'Boucle sur chaque ligne de la sélection
For each Ligne in Selection.Rows
'Boucle sur chaque cellule de la ligne
For Each Cell In Ligne.Cells
valeur = valeur & " " & Cell.Value
' résultats intermédiaires
' msgbox valeur
Next Cell
MsgBox valeur
toexe = "cmd.exe /k" & valeur
RetVal = Shell(toexe, 1)
Next
End if
End Sub
| Cela marche pour une ligne, cependant j'aimerais
| le faire en sélectionnant plusieurs lignes ?.
Sub addResrv_ip()
' il faut sélectionner plusieurs valeurs de la ligne 5 et/ou 6
Dim Cell As Range, Ligne As Range, Valeur
'vérifier si Selection est une plage de cellules
if typename(selection) = "Range" then
'Boucle sur chaque ligne de la sélection
For each Ligne in Selection.Rows
'Boucle sur chaque cellule de la ligne
For Each Cell In Ligne.Cells
valeur = valeur & " " & Cell.Value
' résultats intermédiaires
' msgbox valeur
Next Cell
MsgBox valeur
toexe = "cmd.exe /k" & valeur
RetVal = Shell(toexe, 1)
Next
End if
End Sub