Récupérer la valeur envoyée par la fonction shell [Résolu]

[cestimagik]

Bonjour,

dans l'aide de VB, on nous dit que la fonction shell renvoie une valeur du type Variant(Double). J'aimerais savoir comment récupérer cette valeur afin de déterminer le moment où la fonction shell sera terminée.

Merci d'avance.

[ouskel'n'or]

Tout dépend ce que tu souhaites avoir

Code :

1
2
    n = "WINWORD.EXE "
    DemWord = Shell(n, 3)

ce qui donne 2400 pour la valeur de DemWord
Dis-nous en plus

[cestimagik]

eh bien j'aimerais ouvrir un fichier. En revanche, il faut que le programme qui lit le fichier soit lancé pour que le fichier puisse être lu. et comme le programme met un certain temps à s'ouvrir, il faudrait que mon fichier se lance lorsque la fenêtre du programme s'ouvre.

j'ouvre mon programme avec un shell et j'aimerais savoir quand est-ce que la fonction shell est terminée, ou a ouvert mon programme.

Merci d'avance.

[ouskel'n'or]

Pour faire patienter le système lors du lancement de ton appli, ajoute DoEvents sur la ligne suivante
Tu peux aussi utiliser un timer

Code :

1
2
3
4
5
6
7
8
9
Function TimerFonction(Durée)
Dim Début
Dim fin As Boolean
    Début = Timer   ' Relève l'heure de début.
    Do
        fin = Timer > Début + Durée
        DoEvents    ' Passe le contrôle à d'autres processus.
    Loop While Not fin
End Function

Et tu as également un exemple d'utilisation dans l'aide
A+

NB - SilkyRoad a récemment donné une solution permettant de savoir si un appli était ou non lancée. Je ne sais pas si ça correspond à ton attente mais une recherche dans ses réponses pourraient te renseigner (courant décembre)