Lien hypertext dans usf

[BLACKHAYES]

Bonjour le forum,

voila j'aimerais le code pour que quand "clic" sur un "bouton", cela appelle un logiciel qui est sur mon pc.

j'ai essayé avec l'enregistreur mais il ne me donne riencar dès que je sors de l'editeur vba, il ne fait plus rien

Ex: quand clic sur "CommandButton1"
appel de '"Outlook"
et ouverture de celui ci

mais ca sera pour un autre logiciel

merci d'avance

 

[Staple1600]

Re : Lien hypertext dans usf

Bonjour

Voir dans l'aide VBA:
Shell

Shell, fonction, exemple

Cet exemple utilise la fonction Shell pour exécuter une application indiquée par l'utilisateur. Sur Macintosh, le nom de l'unité par défaut est "HD", les éléments constitutifs du chemin d'accès étant séparés par des deux-points au lieu des barres obliques inversées. De même, vous devez remplacer \Windows par des dossiers Macintosh.
' Si vous attribuez la valeur 1 au deuxième argument,
' l'application s'ouvre à sa taille normale
' et devient l'application active.
Dim RetVal
' Exécute la calculatrice.
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)

 

[BLACKHAYES]

Re : Lien hypertext dans usf

c'est encore un peu complique pour moi;

je n ai pas le debut du code ?

 

[Staple1600]

Re : Lien hypertext dans usf

Re


Il faut savoir utiliser tous les outils à disposition sur XLD en complément de l'aide VBA

Tu as essayé la macro issue de l'aide VBA (voir mon précédent message)
pour comprendre la syntaxe de Shell ?

 

[BLACKHAYES]

Re : Lien hypertext dans usf

en fait moi je voudrais ouvrir un "exe" avec mon bouton dans mon usf

 

[Staple1600]

Re : Lien hypertext dans usf

Re


Sois attentif, stp

Ce n'est pas un exe cela ?
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)



Tu n'as donc pas tester comme je te le suggérait ?

 

[BLACKHAYES]

Re : Lien hypertext dans usf

si, mais je ne sais pas quoi mettre en debut de code
Private Sub command_Button_Clic()
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)

End Sub

ne fonctionne pas,

je ne suis qu'un début en vba (désolé)

 

[BLACKHAYES]

Re : Lien hypertext dans usf

je cherche en ce moment sur la "Recherche" et je ne trouve pas mon bonheur !!??

 

[Staple1600]

Re : Lien hypertext dans usf

Re

Testes ceci

Sub test_Shell()
Dim RetVal
' Exécute la calculatrice.
RetVal = Shell("C:\WINDOWS\SYSTEM32\CALC.EXE", 1)
End Sub

Il suffit d'adapter en mettant le bon path
(Donc celui de ton exe)

 

[BLACKHAYES]

Re : Lien hypertext dans usf

NON ca ne fonctionne pas,

pour infos, ce code doit etre dans un bouton, donc "Private Sub CommandButton12_Click"

Et mon "exe" se trouve dans : C:\Programme Files logiciels\codutil593\codutil.exe"

mon bouton se trouve dans mon "Usf11"

que faire !!?

 

[Staple1600]

Re : Lien hypertext dans usf

Re


La macro test_Shell fonctionne chez moi.

Désolé de pouvoir t'en dire plus.

 

[BLACKHAYES]

Re : Lien hypertext dans usf

je met ton code dans mon bouton et c'est tout et ca doit fonctionner !!

il n'y a pas de private Sub_CommandButton12-click()

a mettre avant ?

je ne comprends pas pourquoi ca ne fonctionne pas

 

[Staple1600]

Re : Lien hypertext dans usf

Re


Je ne peux que te répéter que ce code fonctionne chez moi.

Non pas avec un bouton mais dans une macro (créée juste pour faire le test)

J'ai donc insérer un module dans un classeur
J'ai collé le code de la macro nommé test_Shell
puis j'ai fait Outils/Macros/test_Shell -> Exécuter

et la calculatrice de Windows s'est affichée.

 

[Staple1600]

Re : Lien hypertext dans usf

Re


Voici un autre code cette fois-ci associé à un CommandButton présent sur un UserForm

Private Sub CommandButton1_Click()
Dim Test
Test = Shell("C:\Windows\system32\Winver.exe", 1)
End Sub

Et là aussi, cela fonctionne (je viens de tester)
J'affiche l'userform et je clique sur le bouton.

 

[BLACKHAYES]

Re : Lien hypertext dans usf

Re


Voici un autre code cette fois-ci associé à un CommandButton présent sur un UserForm

Private Sub CommandButton1_Click()
Dim Test
Test = Shell("C:\Windows\system32\Winver.exe", 1)
End Sub

Et là aussi, cela fonctionne (je viens de tester)
J'affiche l'userform et je clique sur le bouton.

Bonjour le Forum,

alors j'ai essayé ton nouveau code, et la ca fonctionne très bien

par contre je n'arriva pas a inserer a la place du tien, l'adresse de mon programme a ouvrir

qui est :

Private Sub CommandButton12_Click()
Dim Test
Test = Shell("C:\Programme Files Logiciels\Codutil593\Codutil.exe", 1)

End Sub