Discussion :

[algasys]

Bonjour Tout le Monde,

Je précise d'emblée que je n'y connais rien en VBA.
Je cherche donc une solution "simple" et... rapide!

Je cherche à déclencher l'exécution d'un soft x à partir d'un clic sur une cellule.

J'ai essayé avec un lien hypertexte. Je n'obtiens que l'ouverture de la cible et non son exécution. Mais je crois qu'il doit y avoir la possibilité de faire cela d'une manière ou d'une autre.

Quelqu'un aurait il le temps de me donner une méthode pour le faire?

Je vous remercie à l'avance.

Bonne année

Alain

[ESVBA]

mettre un truc du genre dans le lien pointant dans un "dossier actif" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c:\windows\System32\mspaint.exe

comme lien

CA fonctionne bien sauf l'inquisition du système de sécurité.


Sinon en vba, faire ALT-F11, CTRL-R si besoin pour afficher la fenêtre, double clic sur la feuille devant utiliser ce lien et le code suivant pour activer le lien par le double-clic sur la cellule "A3":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("A3")) Is Nothing Then
        x = Shell("C:\windows\System32\mspaint.exe", vbNormalFocus)
    End If
End Sub

ESVBA

[algasys]

Je réponds avec un certain retard mais je vous remercie pour votre aide précieuse.

mettre un truc du genre dans le lien pointant dans un "dossier actif" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c:\windows\System32\mspaint.exe

comme lien

ca ca fonctionne.

CA fonctionne bien sauf l'inquisition du système de sécurité.

Par contre, je ne constate rien de ce genre...

Sinon en vba, faire ALT-F11, CTRL-R si besoin pour afficher la fenêtre, double clic sur la feuille devant utiliser ce lien et le code suivant pour activer le lien par le double-clic sur la cellule "A3":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("A3")) Is Nothing Then
        x = Shell("C:\windows\System32\mspaint.exe", vbNormalFocus)
    End If
End Sub

J'ai fait tout cela et j'ai même changé la sécurité des macros mais rien ne se passe...

Je me contenterai donc de la première solution.

Encore grand merci pour l'aide apportée.

Alain

[ESVBA]

bonsoir algasys,

Par contre, je ne constate rien de ce genre...


Citation:
Sinon en vba, faire ALT-F11, CTRL-R si besoin pour afficher la fenêtre, double clic sur la feuille devant utiliser ce lien et le code suivant pour activer le lien par le double-clic sur la cellule "A3":
Code :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A3")) Is Nothing Then
x = Shell("C:\windows\System32\mspaint.exe", vbNormalFocus)
End If
End Sub

J'ai fait tout cela et j'ai même changé la sécurité des macros mais rien ne se passe...

Je me contenterai donc de la première solution.

Encore grand merci pour l'aide apportée.

Fonctionne très bien, il faut faire un double-clic sur la cellule "A3" de la feuille contenant la macro "Sub Work... End Sub"

Enfin si ça fonctionne de l'autre manière...

ESVBA

[algasys]

Ben non! j'ai beau faire double clic, que dalle! J'ai même ré-introduit la macro pour etre certain de n'avoir pas fait d'erreur... J'abandonne par manque de temps.

Merci pour l'aide