[R] Problème avec la fonction Run

[newton]

Bonjour,

Je viens ici poser ma question(désolé si je me suis trompé) car, même via une recherche, je n'ai pas trouvé.

Je souhaiterai dire, si plusieurs conditions sont réunies, lancer un fichier soit lancé avec un programme qui est déjà installé.
Voici mon code :

► Afficher le texte

Code : Tout sélectionner

; Version AutoIt :    3.3.6.1
; Langue     :        Francais
; Plateforme :        Windows 7 64
; Autheur    :        Newton
;
; Fonction du script: Gestion de document souvant utilisé
;
;
;
; Version 1.0 : 01/12/2011
;           - Première Version.


;Liste des identifiants

$id1="Proviseur"
$id2="CPE1"
$id3="CPE2"
$id4="CPE3"
$id5="CPE4"

;Liste des mots de passe

$mdp1="MissionInvisible"
$mdp2="CodeLyoko"
$mdp3="OliveEtTom"
$mdp4="SnowKids"
$mdp5="IronMan"

;Liste des document

$retenue=10
$exclusion=20
$rapport=30
$plainte="40"

;Demande de l'identifiant de l'utilisateur"
$id=InputBox("Identifiant", "Veulliez indiquer votre identifiant", "Votre identifiant", "*")
;Demande du mot de passe
$mdp=InputBox("Mot de passe", "Veulliez indiquer votre mot de passe", "Votre mot de passe", "*")
;Vérification des identifiants
If ($id=$id1 and $mdp=$mdp1) Then
    ;Demande du numéro du document
    $docnum=InputBox("document", "Veulliez indiquer le numéro document", "document", "*")
        If $num=$retenue Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "retenue.doc")
    ElseIf $docnum=$exclusion Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "exclusion.doc")
    ElseIf $docnum=$rapport Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "incident.doc")
    ElseIf $docnum=$plainte Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "pb_eleve.doc")
    Else
        MsgBox(0,"Erreur","Erreur")
    EndIf;utilisateur 2
    ElseIf ($id=$id2 and $mdp=$mdp2) Then
    ;Demande du numéro du document
    $docnum=InputBox("document", "Veulliez indiquer le numéro document", "document", "*")
        If $docnum=$retenue Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "retenue.doc")
    ElseIf $docnum=$exclusion Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "exclusion.doc")
    ElseIf $docnum=$rapport Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "incident.doc")
    ElseIf $docnum=$plainte Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "pb_eleve.doc")
    Else
        MsgBox(0,"Erreur","Erreur")
    EndIf;utilisateur 3
    ElseIf ($id=$id2 and $mdp=$mdp2) Then
    ;Demande du numéro du document
    $docnum=InputBox("document", "Veulliez indiquer le numéro document", "document", "*")
        If $docnum=$retenue Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "retenue.doc")
    ElseIf $docnum=$exclusion Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "exclusion.doc")
    ElseIf $docnum=$rapport Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "incident.doc")
    ElseIf $docnum=$plainte Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "pb_eleve.doc")
    Else
        MsgBox(0,"Erreur","Erreur")
    EndIf;utilisateur 4
    ElseIf ($id=$id3 and $mdp=$mdp3) Then
    ;Demande du numéro du document
    $docnum=InputBox("document", "Veulliez indiquer le numéro document", "document", "*")
        If $docnum=$retenue Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "retenue.doc")
    ElseIf $docnum=$exclusion Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "exclusion.doc")
    ElseIf $docnum=$rapport Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "incident.doc")
    ElseIf $docnum=$plainte Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "pb_eleve.doc")
    Else
        MsgBox(0,"Erreur","Erreur")
    EndIf;utilisateur 4
    ElseIf ($id=$id4 and $mdp=$mdp4) Then
    ;Demande du numéro du document
    $docnum=InputBox("document", "Veulliez indiquer le numéro document", "document", "*")
        If $docnum=$retenue Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "retenue.doc")
    ElseIf $docnum=$exclusion Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "exclusion.doc")
    ElseIf $docnum=$rapport Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "incident.doc")
    ElseIf $docnum=$plainte Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "pb_eleve.doc")
    Else
        MsgBox(0,"Erreur","Erreur")
    EndIf;utilisateur 5
    ElseIf ($id=$id5 and $mdp=$mdp5) Then
    ;Demande du numéro du document
    $docnum=InputBox("document", "Veulliez indiquer le numéro document", "document", "*")
        If $docnum=$retenue Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "retenue.doc")
    ElseIf $docnum=$exclusion Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "exclusion.doc")
    ElseIf $docnum=$rapport Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "incident.doc")
    ElseIf $docnum=$plainte Then
        Run( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "pb_eleve.doc")
    Else
        MsgBox(0,"Erreur","Erreur")
    EndIf;utilisateur 3

    Else
        MsgBox(0,"Erreur","Erreur")
EndIf
 

Merci de me dire ce qui ne va pas ou quelle solution appliqué car il me lance les 3 premières inputbox mais pas la suite.
Encore Merci d'avance,

Newton

[TT22]

Essaye de remplacer Run() par ShellExecute()
Ce qui donne ça :

► Afficher le texte

Code : Tout sélectionner

; Version AutoIt :    3.3.6.1
; Langue     :        Francais
; Plateforme :        Windows 7 64
; Autheur    :        Newton
;
; Fonction du script: Gestion de document souvant utilisé
;
;
;
; Version 1.0 : 01/12/2011
;           - Première Version.


;Liste des identifiants

$id1="Proviseur"
$id2="CPE1"
$id3="CPE2"
$id4="CPE3"
$id5="CPE4"

;Liste des mots de passe

$mdp1="MissionInvisible"
$mdp2="CodeLyoko"
$mdp3="OliveEtTom"
$mdp4="SnowKids"
$mdp5="IronMan"

;Liste des document

$retenue=10
$exclusion=20
$rapport=30
$plainte="40"

;Demande de l'identifiant de l'utilisateur"
$id=InputBox("Identifiant", "Veulliez indiquer votre identifiant", "Votre identifiant", "*")
;Demande du mot de passe
$mdp=InputBox("Mot de passe", "Veulliez indiquer votre mot de passe", "Votre mot de passe", "*")
;Vérification des identifiants
If ($id=$id1 and $mdp=$mdp1) Then
    ;Demande du numéro du document
    $docnum=InputBox("document", "Veulliez indiquer le numéro document", "document", "*")
        If $num=$retenue Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "retenue.doc")
    ElseIf $docnum=$exclusion Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "exclusion.doc")
    ElseIf $docnum=$rapport Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "incident.doc")
    ElseIf $docnum=$plainte Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "pb_eleve.doc")
    Else
        MsgBox(0,"Erreur","Erreur")
    EndIf;utilisateur 2
    ElseIf ($id=$id2 and $mdp=$mdp2) Then
    ;Demande du numéro du document
    $docnum=InputBox("document", "Veulliez indiquer le numéro document", "document", "*")
        If $docnum=$retenue Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "retenue.doc")
    ElseIf $docnum=$exclusion Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "exclusion.doc")
    ElseIf $docnum=$rapport Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "incident.doc")
    ElseIf $docnum=$plainte Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "pb_eleve.doc")
    Else
        MsgBox(0,"Erreur","Erreur")
    EndIf;utilisateur 3
    ElseIf ($id=$id2 and $mdp=$mdp2) Then
    ;Demande du numéro du document
    $docnum=InputBox("document", "Veulliez indiquer le numéro document", "document", "*")
        If $docnum=$retenue Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "retenue.doc")
    ElseIf $docnum=$exclusion Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "exclusion.doc")
    ElseIf $docnum=$rapport Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "incident.doc")
    ElseIf $docnum=$plainte Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "pb_eleve.doc")
    Else
        MsgBox(0,"Erreur","Erreur")
    EndIf;utilisateur 4
    ElseIf ($id=$id3 and $mdp=$mdp3) Then
    ;Demande du numéro du document
    $docnum=InputBox("document", "Veulliez indiquer le numéro document", "document", "*")
        If $docnum=$retenue Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "retenue.doc")
    ElseIf $docnum=$exclusion Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "exclusion.doc")
    ElseIf $docnum=$rapport Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "incident.doc")
    ElseIf $docnum=$plainte Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "pb_eleve.doc")
    Else
        MsgBox(0,"Erreur","Erreur")
    EndIf;utilisateur 4
    ElseIf ($id=$id4 and $mdp=$mdp4) Then
    ;Demande du numéro du document
    $docnum=InputBox("document", "Veulliez indiquer le numéro document", "document", "*")
        If $docnum=$retenue Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "retenue.doc")
    ElseIf $docnum=$exclusion Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "exclusion.doc")
    ElseIf $docnum=$rapport Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "incident.doc")
    ElseIf $docnum=$plainte Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "pb_eleve.doc")
    Else
        MsgBox(0,"Erreur","Erreur")
    EndIf;utilisateur 5
    ElseIf ($id=$id5 and $mdp=$mdp5) Then
    ;Demande du numéro du document
    $docnum=InputBox("document", "Veulliez indiquer le numéro document", "document", "*")
        If $docnum=$retenue Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "retenue.doc")
    ElseIf $docnum=$exclusion Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "exclusion.doc")
    ElseIf $docnum=$rapport Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "incident.doc")
    ElseIf $docnum=$plainte Then
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "pb_eleve.doc")
    Else
        MsgBox(0,"Erreur","Erreur")
    EndIf;utilisateur 3

    Else
        MsgBox(0,"Erreur","Erreur")
EndIf

[PandiPanda]

Il lancera toujours que 3 (au MAXIMUM) inputbox()
pour le simple fait, que vous utiliser des if-elseif-else ....

Je vous met ci dessous un exemple parlant ^^ (voir le spoiler)

► Afficher le texte

Code : Tout sélectionner

Local $cpt=5
MsgBox(0,'PARTIE 1',"PARTIE 1 de l'exemple !!!")

If $cpt=5 Then
    MsgBox(0,'','cas 1')
ElseIf $cpt > 3 Then
    MsgBox(0,'',"cas 2 que je n'ai seulement si $cpt est différent de 5")
EndIf

MsgBox(0,'PARTIE 2',"PARTIE 2 de l'exemple !!!")

If $cpt = 5 Then
    MsgBox(0,'','cas 1')
EndIf
If $cpt > 3 Then
    MsgBox(0,'',"cas 2 qui se fait maintenant :O !!")
EndIf

[newton]

Salut,

Merci pour ta réponse. Ceci fonctionne à merveille. Je marque le sujet en résolu.

PS pour PandiPanda : Ceci est normal et était simplement pout indiqué ou se trouvait le problème. Merci quand m^me de ton aide

Newton

[Zippo]

Petite astuce, au lieu d'avoir des millions de elseif opté pour un Switch.

[newton]

Petite astuce, au lieu d'avoir des millions de elseif opté pour un Switch.

Bonjour,

Pourrais-tu m'expliquer cette méthode car je ne l'ai jamais utilisé et même avec le tutoriel du site du 0 je ne vois pas comment cela fonctionne.

Merci d’avance.

[zeshrek]

1/ lancer Scite4autoit
2/ taper le mot "switch" (sans les guillemets)
3/ appuyer sur F1


De rien !

[SlyK]

Hello,

Si tu souhaites une explication en français sur le switch, je vais te faire un petit exemple.

La fonction switch est utilisée dans beaucoup de langage et est très utile pour justement éviter d'avoir une tonne de if qui se suivent. Cette fonction va te permettre de changer la suite du programme suivant la valeur d'une variable.

Voici un exemple si tu n'as pas compris:

Code : Tout sélectionner

Switch @HOUR
    Case 6 To 11
        MsgBox(0, "C'est le matin !", "Bien reveillé ?")
    Case 12 To 17
        MsgBox(0, "C'est l'après midi !", "Il faut aller travailler !")
    Case 18 To 21
        MsgBox(0, "Il fait nuit !", "Il faudra bientôt aller dormir !")
    Case Else
        MsgBox(0, "Mais...", "Qu'est-ce que tu fais encore debout ?")
EndSwitch

Ici, je vais chercher l'heure qu'il est.
Suivant la valeur de la variable, j'affiche une MsgBox différente.
Si aucune des réponses est VRAI, j'affiche ce qui se trouve dans le Case Else.

[newton]

Salut,

Donc si j'ai bien compris, mon code devient :

► Afficher le texte

Code : Tout sélectionner

; Version AutoIt :    3.3.6.1
; Langue     :        Francais
; Plateforme :        Windows 7 64
; Autheur    :        Newton
;
; Fonction du script: Gestion de document souvant utilisé
;
;
;
; Version 1.0 : 01/12/2011
;           - Première Version.


;Liste des identifiants

$id1="Proviseur"
$id2="CPE1"
$id3="CPE2"
$id4="CPE3"
$id5="CPE4"

;Liste des mots de passe

$mdp1="MissionInvisible"
$mdp2="CodeLyoko"
$mdp3="OliveEtTom"
$mdp4="SnowKids"
$mdp5="IronMan"

;Liste des document

$retenue=10
$exclusion=20
$rapport=30
$plainte=40

;Demande de l'identifiant de l'utilisateur"
$id=InputBox("Identifiant", "Veulliez indiquer votre identifiant", "Votre identifiant", "*")
;Demande du mot de passe
$mdp=InputBox("Mot de passe", "Veulliez indiquer votre mot de passe", "Votre mot de passe", "*")
;Vérification des identifiants
Switch $id and $mdp
    Case $id1 and $mdp1
    ;Demande du numéro du document
    $docnum=InputBox("document", "Veulliez indiquer le numéro document", "document", "*")
     Switch $docnum
        Case $retenue
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "retenue.doc")
        Case $exclusion
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "exclusion.doc")
        Case $rapport
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "incident.doc")
        Case $plainte
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "pb_eleve.doc")
        Case Else
        MsgBox(0,"Erreur","Erreur")
    EndSwitch
    Case $id2 and $mdp2
    ;Demande du numéro du document
    $docnum=InputBox("document", "Veulliez indiquer le numéro document", "document", "*")
     Switch $docnum
        Case $retenue
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "retenue.doc")
        Case $exclusion
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "exclusion.doc")
        Case $rapport
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "incident.doc")
        Case $plainte
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "pb_eleve.doc")
        Case Else
        MsgBox(0,"Erreur","Erreur")
    EndSwitch
    Case $id3 and $mdp3
    Switch $docnum
        Case $retenue
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "retenue.doc")
        Case $exclusion
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "exclusion.doc")
        Case $rapport
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "incident.doc")
        Case $plainte
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "pb_eleve.doc")
        Case Else
        MsgBox(0,"Erreur","Erreur")
    EndSwitch
    Case $id4 and $mdp4
    ;Demande du numéro du document
    $docnum=InputBox("document", "Veulliez indiquer le numéro document", "document", "*")
             Switch $docnum
        Case $retenue
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "retenue.doc")
        Case $exclusion
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "exclusion.doc")
        Case $rapport
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "incident.doc")
        Case $plainte
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "pb_eleve.doc")
        Case Else
        MsgBox(0,"Erreur","Erreur")
    EndSwitch
    Case $id4 and $mdp4
    ;Demande du numéro du document
    $docnum=InputBox("document", "Veulliez indiquer le numéro document", "document", "*")
             Switch $docnum
        Case $retenue
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "retenue.doc")
        Case $exclusion
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "exclusion.doc")
        Case $rapport
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "incident.doc")
        Case $plainte
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "pb_eleve.doc")
        Case Else
        MsgBox(0,"Erreur","Erreur")
    EndSwitch
    Case $id5 and $mdp5
    ;Demande du numéro du document
    $docnum=InputBox("document", "Veulliez indiquer le numéro document", "document", "*")
             Switch $docnum
        Case $retenue
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "retenue.doc")
        Case $exclusion
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "exclusion.doc")
        Case $rapport
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "incident.doc")
        Case $plainte
        ShellExecute( "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe", "pb_eleve.doc")
        Case Else
        MsgBox(0,"Erreur","Erreur")
    EndSwitch

    Case Else
        MsgBox(0,"Erreur","Erreur")
EndSwitch

Merci à tous pour m'avoir aider et surtout à SlyK pour son exemple simple mais explicite.

Newton