Commentaire d'un code

Question

slt! je travaille dans une application existante,les modif que je dois faire sont difficile puisque je ne peut voir aucun formulaire parceque le chemin d'acces n'est pas valide je c pas comment faire pour changer le chemin d'acces .et je trouve ce code qui me parait concerner quelq'un pourrait me le commenter? 


   Private Sub Commande130_Click()
On Error GoTo Err_Commande130_Click


    Dim stAppName As String


    stAppName = "C:\AB\NB.EXE \osteo\jsosteo.nbk"
    Call Shell(stAppName, 1)


Exit_Commande130_Click:
    Exit Sub


Err_Commande130_Click:
    MsgBox Err.Description
    Resume Exit_Commande130_Click
    
End Sub


Booba

gallyhc · Answer

Bonjour,

Visiblement ton application execute simplement un autre programme ce nomant "C:\AB\NB.EXE" et lui envois la ligne de commande suivante "\osteo\jsosteo.nbk", donc voila pourquoi tu as "stAppName = "C:\AB\NB.EXE \osteo\jsosteo.nbk""

Bonne programmation,
[Gally Home Corp]

ScSami · Answer

En effet, Gally a tout &#224; fait raison!

"C:\AB\NB.EXE \osteo\jsosteo.nbk" &#231;a signifit : Lancer le programme C:\AB\NB.EXE en ouvrant le fichier [chemin courant]\osteo\josteo.nbk

Tu peux d&#233;j&#224; essay&#233; avec en mettent un "." devant ".\osteo..."

Sinon, ouvre ton explorateur Windows (qui devrait toujours &#234;tre ouvert sur tous les ordinateurs du monde!!!!!!!) et v&#233;rifie la validit&#233; des deux chemins!

Sinon, sans savoir ce que tu cherches exactement &#224; obtenir on ne peut pas t'en dire plus!

(Pense &#224; toujours nous pr&#233;ciser avec quoi tu travailles !!! C'est important. Parce qu'on est pas dans ta t&#234;te pour le deviner!).

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

katsankat · Answer

Il manque la lettre du lecteur &#224; \osteo\jsosteo.nbk : le shell a besoin d'un chemin absolu.



J'en profite pour signaler que le label Exit_Commande130_Click: est strictement inutile c'est lui qu'il faut commenter.



Enfin, il n'est pas indispensable de d&#233;clarer la variable stAppName mais ce n'est pas la question.

ScSami · Answer

Je rejoins &#233;galement Katsenkat sauf peut-&#234;tre sur le premier point qui est &#224; v&#233;rifier car le shell peut, dans la plupart des cas, r&#233;soudre des chemins relatifs. D'o&#249; d'ailleurs ma suggestion de pr&#233;ciser, via le point devant l'anti-slash, qu'il s'agit bien d'un chemin de ce type m&#234;me si c'est inutile lorsque cette solution est viable (l'utilisation de chemins relatifs!).

Si tu utilises la variable stAppName, il faut la d&#233;clarer (question d'hygi&#232;ne ;-). Mais en l'&#233;tat des choses, il serait car&#233;ment pr&#233;f&#233;rable de mettre la chaine directement dans ton Call.

En revanche, je m'int&#233;roge sur ton Call Shell(fichier, argument). Je ne connaissais pas! Parce que sinon tu as directement l'instruction Shell
Shell "chemin.exe \blabla"
!

Eh puis, dans la mesure du possible, &#233;vite de mettre des backspace "_" aux noms persos car &#231;a n'arrange en rien la lisibilit&#233; du code, bien au contraire (c'est subjectif, certes et je ne pol&#233;miquerais pas sur ce point) et on les confond vite avec les proc&#233;dures &#233;v&#233;nementielles!

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

katsankat · Answer

La fonction shell retourne un long. Son utilisation:

dim ret as long

ret = shell ("c:\windows
otepad.exe", vbmaximized)



L' argument peut prendre diff&#233;rentes valeurs: vbminimized, vbnormal ou
vbmaximized; ces constantes peuvent &#234;tre remplac&#233;es par 0, 1 ou 2.

ScSami · Answer

Merci pour l'info Kat 

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

Commentaire d'un code

6 réponses

Discussions similaires