Lien hypertext dans usf

Staple1600

XLDnaute Barbatruc

• 23 Juillet 2011

• #2

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)

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 23 Juillet 2011

• #3

Re : Lien hypertext dans usf

c'est encore un peu complique pour moi;

je n ai pas le debut du code ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Juillet 2011

• #4

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 ?

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 23 Juillet 2011

• #5

Re : Lien hypertext dans usf

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Juillet 2011

• #6

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 ?

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 23 Juillet 2011

• #7

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é)

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 23 Juillet 2011

• #8

Re : Lien hypertext dans usf

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Juillet 2011

• #9

Re : Lien hypertext dans usf

Re

Testes ceci

Code:

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)

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 23 Juillet 2011

• #10

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 !!?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Juillet 2011

• #11

Re : Lien hypertext dans usf

Re


La macro test_Shell fonctionne chez moi.

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

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 23 Juillet 2011

• #12

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Juillet 2011

• #13

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Juillet 2011

• #14

Re : Lien hypertext dans usf

Re


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

Code:

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.

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 24 Juillet 2011

• #15

Re : Lien hypertext dans usf

Staple1600 à dit:

Re


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

Code:

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif