probleme dans le lancement d'application

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... :)

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\notepad.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

'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.

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

arf j'ai oublié le notepad

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.

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

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...

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

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...

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