probleme dans le lancement d'application

Question

Bon voila j'ai 2 questions:

-quand j'utilise"shell" pour lancer une application à partir de mon programme ça marche mais ça se lance en mode reduit, dans la barre des taches.

-pour lancer un txt je met ça: call shell NOTEPAD.exe ("c:\Program Files\MonDossier\LisezMoi.txt")

 mais je voudrai pouvoir eviter le C:\Program Files parce que tout le monde installe pas sur C:, et si c'est la cas, le bouton marche pu.

 please help... :)

cs_CanisLupus · Answer

Salut,

Pour la façon dont se lance ton appli par le shell, tout est dans l'aide de VB. Par défaut c en réduit.

pour le fichier que tu veux ouvrir avec notepad, tu peux mettre une variable.

Par ex

Dim Ret
Dim fichier as string

fichier = chemin+nom du fichier

Ret = Shell("C:\WINDOWS
otepad.exe " & fichier, 3)

l'appli s'affiche en max et a le focus.
s'il trouve pas, ret =0 sinon c son id.

Reste plus qu'à jouer avec les on error ou à inclure une recherche du fichier sur le disque.

Cordialement

CanisLupus

cs_BiSi · Answer

'lut

Bon alors pour l'état de lancement par shell, c'est le deuxième argument (oprionnel) de cette comande.
C'est à dir que pour lancer le notapad disons "normalement", tu mets:

Call Shell "Notepad.exe", vbnormalfocus


Ensuite pour le fichier texte, si j'ai bien compris, tu veus ouvrir un fichier texte se trouvant dans le même répertoire que l'application lancée. Si c'est ca, alors tu peus faire comme ceci:


Private Sub xxxx()
    Shell PathSlash(App.Path) & "LisezMoi.txt", vbNormalFocus
End Sub

Function PathSlash(Path As String)
    PathSlash = Path
    If Right(PathSlash, 1) <> "" Then PathSlash = PathSlash & ""
End Function


ou app.path contient le chemain complet de l'application visual basic
et ou PathSlash est juste une petite fonction pour ajouter le "" entre le fichier et le répertoire s'il n'est pas présent.

Voilà, j'espère que ca t'aidera, bon courage

.oO( BiSi )Oo.

ShareVB · Answer

salut

tu peux faire simplement :

shell "notepad.exe " & nomdufichier$, vbmaximized

ca va t'ouvrir le fichier désigné par la chaine de caracteres nomdufichier$ dans notepad en agrandi

voila

ShareVB

cs_BiSi · Answer

arf j'ai oublié le notepad  :blush) 


Private Sub xxxx()
    Shell "notepad.exe """ & PathSlash(App.Path) & "VBEXT.SRG""", vbNormalFocus
End Sub


désolé, en plus  CanisLupus m'a devancé lol

.oO( BiSi )Oo.

Taraldarion · Answer

Heu bon merci, j'ai vais essayer de traduire tout ça en format "mon language de mec qui y connais rien" pi je vais voir si ça marche :) merci a tous

Taraldarion · Answer

heu bon j'ai un peu de mal lol, en plus j'ai pas l'aide VB elle marche pas y'a un truc pas installé :( voila ce que j'ai:

Call Shell("NOTEPAD.EXE c:\Program Files\Ive Descriptif\LisezMoi.txt")

ce que j'essai d'avoir c cette formule mais que ça se lance pas en reduit, et que si qql a installer sur un disque D: ça lance quand meme le fichier quand on appuis sur le bouton...

cs_CanisLupus · Answer

Bon, d'abord, à la place de :

Call Shell("NOTEPAD.EXE c:\Program Files\Ive Descriptif\LisezMoi.txt")

tu mets :

Call Shell("NOTEPAD.EXE c:\Program Files\Ive Descriptif\LisezMoi.txt",3)

résumé de la valeur du param :
0 = La fenêtre est masquée et activée.  
1= La fenêtre est activée et rétablie à sa taille et à sa position d'origine. 
2 =La fenêtre est affichée sous forme d'icône et activée. 
3 =La fenêtre est agrandie et activée. 
4 =La fenêtre est rétablie à sa taille et à sa position les plus récentes. La fenêtre active reste active. 
6 =La fenêtre est affichée sous forme d'icône. La fenêtre active reste active. 

Et pis, à la place d'un call, tu mets

ret=Shell("NOTEPAD.EXE c:\Program Files\Ive Descriptif\LisezMoi.txt",3)

Comme g écris + haut, ret est <>0 si le fichier est au bon endroit, sinon, tu teste un autre endroit.

ret=Shell("NOTEPAD.EXE d:\Ive Descriptif\LisezMoi.txt",3)

etc ... mais là, c une autre histoire de savoir où l'utilisateur a installé ton appli. Comme l'a écrit Bisi, si ton fichier txt est dans le répertoire de ton appli, le mieux c :

ret=Shell("NOTEPAD.EXE " & app.path & "\LisezMoi.txt",3)

dans ce cas, le ret, c juste pour ne pas planter l'appli si ton utilisateur a supprimé le LisezMoi.txt.

Cordialement, bon prog

CanisLupus

Taraldarion · Answer

bon pour l'affichage de la fenetre c ok merci. pour 

ret=Shell("NOTEPAD.EXE " & app.path & "\LisezMoi.txt",3)

ça m'affiche bien le fichier mais comme dans app.path j'ai :

c:\program Files\Ive Descriptif

 si c sur d: ben ça s'affiche pu...

cs_CanisLupus · Answer

Bon, on résume, tu me dis si g bien compris.

Dans ton appli, tu veux faire afficher un LisezMoi.txt qui, normalement doit se trouver dans le même répertoire que ton appli.

Là-dessus, un utilisateur peut l'installer ailleurs que là où tu l'as prévu (normal).

Donc, si tu utilises app.path (qui est le répertoire où est installée l'appli) ça ne doit poser aucun problème car app.path contiendra le nom du rep où l'exe se trouve.

Mais, si je comprend bien, tu fais tes tests comme si c'était installé sur c: mais en collant le txt ailleurs (sur d:). Là ça ne peut pas marcher.

Fais une install ailleurs que sur c:program files ..... et tu verras que ça fonctionnera aussi.

Cordialement

CanisLupus

Taraldarion · Answer

j'ai 2 pc le prog est installé sur c: sur l'un et d: sur l'autre.
mais dans app.path je met c:\Program Files\Ive Descriptif\ c peut etre ça qui va pas non?

Taraldarion · Answer

Autant pour moi, je réflechi pas. C bon j'ai reussi, il fallai metre: \Program Files\Ive Descriptif en app.path et non avec C:, ou juste \Ive Descriptif

 je vous remerci à tous pour votre aide plus que precieuse.

 Amicalement Tar

Taraldarion · Answer

hum, désolé lol mais j'ai une autre formule a qui je foudrai appliquer le truc pour c: ou d: c'est celle la:

Shell ("c:\Program Files\Ive Descriptif\MAJ.exe"), vbNormalFocus

ça doit donner quoi pour que ça ressemble a ce qu'on fesai au dessu?

Taraldarion · Answer

bon ben non.. a force d'essai erreur j'ai fini par trouver la bonne syntaxe. merci à tous

cs_BiSi · Answer

Tant mieux alors. De toute facon, y a pas 36 solutions, faut perceverer lol ;-)

bon code

.oO( BiSi )Oo.

Probleme dans le lancement d'application

14 réponses

Discussions similaires