Execution de programe externe ...

Bonjour SuperGolgoth,

Remplace dans la procédure A1:A10 par la plage de cellules de ton choix.
Adapte le chemin où se retrouvent tes fichiers .txt dans la ligne de code suivante :
File = "C:" & Rg.Text & ".txt"

assure-toi que cette ligne de code est exacte c'est à dire que le fichier notepas.exe se retrouve bien dans le
répertoire de Windows. Pour les systèmes d'exploitation Windows 2000 pro et Nt, cela devrait etre : C:Winntnotepad.exe

'----------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rg As Range, File As String
Set Rg = Intersect(Target, Range("A1:A10"))
If Not Rg Is Nothing Then
If Rg <> "" Then
File = "C:" & Rg.Text & ".txt"
Fichier = "C:windowsnotepad.exe " & File
Shell Fichier, 1
End If
End If
Set Rg = Nothing

End Sub
'-----------------------------------------


Salutations!


"SuperGolgoth" <supergolgoth@NOSPAM.free.fr> a écrit dans le message de news:mn.0b0f7d462a25e988.11904@NOSPAM.free.fr...
Bonjour a tous,
Est-ce que quelqu'un peut me dire comment faire en sorte que quand je
clique sur une cellule contenant une donnée, excel execute un programme
externe (ex notepad) avec en parametre le contenu de la-dite cellule
...
ex notepad toto.txt
(toto.txt etant le contenu de la cellule en question)
Alors, lien hypertexte, bouton/macro, ...?
le pb avec bouton/macro c'est qu'il faut a chaque cellule creer la
macro et faire le bouton ... alors imaginez un tableau avec une
cinquantaine de ligne ... donc 50 macros a creer, et 50 boutons ...
beurk !
moi je serai plutot partant pour un lien hypertexte, mais je ne sais
pas comment faire executer un prog par ce biais ...
Merci de votre aide avisée ...

--
~~~~~~~~~~~~~~~~~~~~~~~~~~~
Life is simple :
Eat, sleep, and surf the net
~~~~~~~~~~~~~~~~~~~~~~~~~~~