Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[TERMINE] Formulaire de demande
Auteur Message
Répondre en citant
Message [TERMINE] Formulaire de demande 
Dans le cadre de mon travail, je dois créer un formulaire où lorsque les champs sont remplis, et que l'on appuie sur envoi, les informations seront stockées dans un fichier excel.

Beaucoup de difficultés pour moi, car je ne suis qu'un débutant dans ce langage.
J'ai l'aide d'un ami de formation, mais je sais qu'il ne peut pas m'accorder tout le temps que j'aimerais.

Le projet est donc le suivant :

- Créer un formulaire de demande

J'ai utilisé Koda, mais comme je débute, je n'arrive pas à creer une liste déroulante ! ! !

- Certains choix ne peuvent apparaitre que selon le choix précédent

Je choisi l'option, pc fixe ou wyse, j'aimerais donc que les choix des écrans apparaissent. Si je choisit PC portable, les choix des écrans ne doivent pas apparaitre.


- Au clic sur envoi, les données doivent être enregistrés dans un fichier excel.

Là je ne sais pas comment faire, on me conseille d'utilise l'include excel.au3 mais je vois pas comment.

- Le fichier doit etre envoyé par mail.

Dans l'exemple que je donne, j'ai une nouvelle boite qui s'ouvre mais c'est tout et je vois pas comment je peux faire.
La boite qui s'ouvre est très pratique, car cela permet de dire à l'utilisateur 'demande envoyé'

Voici le code :

Code:

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         Sydneysyd

 Script Function:
   Demande de création d'un poste informatique

#ce ----------------------------------------------------------------------------
#include "chemin complet ou relatif du fichier"
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\DAVID\Desktop\Form1.kxf

;Création d'une "Graphique Unit Interface"
$Form1 = GUICreate("Form1", 615, 438, 192, 124)

;Insertion des options
$Nom = GUICtrlCreateInput("Nom", 24, 32, 113, 21)
$Pc_Fixe = GUICtrlCreateCheckbox("Pc_Fixe", 24, 64, 113, 17)
$Portable = GUICtrlCreateCheckbox("Portable", 24, 88, 129, 17)
$Wyse = GUICtrlCreateCheckbox("Wyse", 24, 112, 113, 17)
$Envoi = GUICtrlCreateButton("Envoi", 40, 160, 81, 25)
$Ecran_17 = GUICtrlCreateCheckbox("Ecran_17", 192, 72, 81, 17)
$Ecran_15 = GUICtrlCreateCheckbox("Ecran_15", 192, 96, 81, 17)
$Ecran_16 = GUICtrlCreateCheckbox("Ecran_16", 192, 120, 65, 17)

;Activation de la GUI
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;Boucle infini de ta GUI, en francais:
;Tant que 1 est egale à 1 je boucle
While 1
    ;Dans la variable $nMsg est stocké l'ID du bouton sur lequelle on clique, qui lui même est récupérer par la fonction GUIGetMsg()
    $nMsg = GUIGetMsg()

    ;Switch est un équivalent de IF, traduction
    ;Si $nMsg est égale à $GUI_EVENT_CLOSE alors je vais dans la case de $GUI_EVENT_CLOSE et la il executera la commande Exit)
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Envoi ; Si on clic sur envoi un message apparaitra.
            MsgBox(4096, "Titre", "Message" & @CRLF & "SDemande envoyée")
    EndSwitch
WEnd


Partie Formulaire

Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\david\desktop\test formulaire\form1.kxf
$Form1_1 = GUICreate("Form1", 615, 438, 192, 124)
$Nom = GUICtrlCreateInput("Nom", 24, 32, 113, 21)
$Pc_Fixe = GUICtrlCreateCheckbox("Pc_Fixe", 24, 64, 113, 17)
$Portable = GUICtrlCreateCheckbox("Portable", 24, 88, 129, 17)
$Wyse = GUICtrlCreateCheckbox("Wyse", 24, 112, 113, 17)
$Envoi = GUICtrlCreateButton("Envoi", 40, 160, 81, 25)
$Ecran_17 = GUICtrlCreateCheckbox("Ecran_17", 192, 72, 81, 17)
$Ecran_15 = GUICtrlCreateCheckbox("Ecran_15", 192, 96, 81, 17)
$Ecran_16 = GUICtrlCreateCheckbox("Ecran_16", 192, 120, 65, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit

   EndSwitch
WEnd


Je pense vraiment que l'on peut faire un super truc avec ce genre de code, mais je n'ai rien trouvé sur le net pour m'aider. (Les flux vidéos n'étant pas autorisé à mon travail).

Merci d'avance pour votre aide !



Dernière édition par Sydney le Mer 23 Nov 2011 - 11:07; édité 1 fois

______________________________________________________
-Il n'y a qu'en affrontant les plus forts que l'on progresse-

Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [TERMINE] Formulaire de demande 
il faut que tu ouvres excel.au3 et que tu regardes les fonctions données tu dois y avoir des exemples

http://www.autoit.fr/forum/viewtopic.php?f=3&t=8735&p=57956&hil…




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [TERMINE] Formulaire de demande 
Salut,

Pour l'interface, tu as suivis le tutoriel du site du zéro ? http://www.siteduzero.com/tutoriel-3-228547-la-programmation-avec-autoit.html#part_439769

Un exemple pour une liste déroulante :
Code:
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("TestGUI", 286, 57, 263, 181)
$List = GUICtrlCreateCombo("Choix1", 24, 16, 233, 25)
GUICtrlSetData(-1, "Choix2|Choix3")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit

   EndSwitch
WEnd


Pour envoyer le fichier par email, je ne connais pas de fonction intégrée. Tu devras utiliser un UDF (Il y en a plusieurs sur le forum Autoit Français).

Je n'ai jamais utilisé l'UDF excel.au3, regarde dans l'aide d'Autoit (F1) tu y trouveras sûrement ce que tu cherche à faire en modifiant les exemples.

A+




______________________________________________________
Répondre en citant
Message [TERMINE] Formulaire de demande 
Salut,

Merci pour votre aide.

Je viens de modifier les fichiers et j'ai pas mal avancé.

Je vous donne les codes

Code:

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         myName

 Script Function:
   Template AutoIt script.

#ce ----------------------------------------------------------------------------

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


#Region ### START Koda GUI section ### Form=c:\users\david\desktop\formulaire.kxf
$Form1_1 = GUICreate("Form1", 953, 688, 185, 101)
$Label1 = GUICtrlCreateLabel("FORMULAIRE DE DEMANDE", 288, 8, 433, 33)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Informations = GUICtrlCreateGroup("Informations", 8, 40, 921, 201)
$Demandeur = GUICtrlCreateGroup("Demandeur", 16, 56, 305, 105)
$Nom = GUICtrlCreateInput("Nom", 24, 80, 137, 21)
$Service = GUICtrlCreateCombo("Service", 24, 104, 137, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Groupe = GUICtrlCreateCombo("Groupe", 176, 104, 137, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Prenom = GUICtrlCreateInput("Prénom", 176, 80, 137, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$NouvelA = GUICtrlCreateGroup("Nouvel Arrivant", 328, 56, 593, 105)
$Nomnouvel = GUICtrlCreateInput("Nom", 336, 80, 113, 21)
$Prenomnouvel = GUICtrlCreateInput("Prénom", 464, 80, 129, 21)
$servic = GUICtrlCreateCombo("Service", 336, 112, 113, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Group = GUICtrlCreateCombo("Groupe", 464, 112, 129, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Mail = GUICtrlCreateLabel("Mail", 728, 72, 29, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Ouitel = GUICtrlCreateRadio("Oui", 608, 96, 49, 17)
$Nontel = GUICtrlCreateRadio("Non", 608, 120, 57, 17)
$telephone = GUICtrlCreateLabel("Téléphone", 609, 72, 70, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$datearr = GUICtrlCreateGroup("Date d'arrivée prévue", 328, 168, 305, 49)
$Date1 = GUICtrlCreateDate("2011/11/21 09:48:29", 344, 184, 273, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Datedem = GUICtrlCreateGroup("Date de la demande", 16, 168, 305, 49)
$Date2 = GUICtrlCreateDate("2011/11/21 09:50:32", 32, 184, 273, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Ancien = GUICtrlCreateGroup("Ancien Matériel", 8, 248, 177, 305)
$Ouiancien = GUICtrlCreateRadio("Oui", 40, 296, 57, 17)
$Nonancien = GUICtrlCreateRadio("Non", 40, 320, 57, 17)
$Ancienposte = GUICtrlCreateGroup("Ancien Poste ? ", 24, 272, 145, 81)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$infoancienposte = GUICtrlCreateGroup("Informations", 24, 360, 145, 177)
$Input1 = GUICtrlCreateInput("Nom du poste", 32, 384, 129, 21)
$pcfixeancien = GUICtrlCreateRadio("PC Fixe", 32, 408, 97, 17)
$pcportableancien = GUICtrlCreateRadio("PC Portable", 32, 432, 97, 17)
$Wyseancien = GUICtrlCreateRadio("Wyse", 32, 456, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Imprimer = GUICtrlCreateButton("Imprimer", 832, 592, 105, 33)
$nouveaumateriel = GUICtrlCreateGroup("Nouveau Matériel", 200, 248, 393, 305)
$posteinfo = GUICtrlCreateGroup("Poste Informatique", 208, 280, 209, 97)
$PCfixe = GUICtrlCreateRadio("PC Fixe", 216, 352, 81, 17)
$Wysenouveau = GUICtrlCreateRadio("Wyse", 216, 304, 65, 17)
$PC = GUICtrlCreateRadio("PC Portable", 216, 328, 73, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ecranchoix = GUICtrlCreateGroup("Ecran", 208, 392, 209, 137)
$pcportableecr = GUICtrlCreateGroup("PC Portable", 216, 416, 89, 97)
$pouce17 = GUICtrlCreateRadio("17 Pouces", 224, 440, 73, 17)
$pouce15 = GUICtrlCreateRadio("15 Pouces", 224, 464, 73, 17)
$pouce13 = GUICtrlCreateRadio("13 Pouces", 224, 488, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$pcfixeecr = GUICtrlCreateGroup("PC Fixe / Wyse", 320, 416, 89, 97)
$pouce21 = GUICtrlCreateRadio("21 Pouces", 328, 440, 73, 17)
$pouce19 = GUICtrlCreateRadio("19 Pouces", 328, 464, 73, 17)
$pouce17fixe = GUICtrlCreateRadio("17 Pouces", 328, 488, 73, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$imprimantes = GUICtrlCreateGroup("Imprimantes", 432, 280, 145, 97)
$impnetb = GUICtrlCreateCheckbox("Imprimante N/B", 440, 304, 97, 17)
$Fax = GUICtrlCreateCheckbox("Fax", 440, 328, 97, 17)
$Multifonctions = GUICtrlCreateCheckbox("Multifonctions Couleurs", 440, 352, 137, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$periph = GUICtrlCreateGroup("Autres périphériques", 432, 400, 145, 129)
$perpih1 = GUICtrlCreateInput("Périphérique 1", 440, 424, 129, 21)
$periph2 = GUICtrlCreateInput("Périphérique 2", 440, 448, 129, 21)
$periph3 = GUICtrlCreateInput("Périphérique 3", 440, 472, 129, 21)
$periph4 = GUICtrlCreateInput("Périphérique 4", 440, 496, 129, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Logiciels = GUICtrlCreateGroup("Logiciels", 600, 248, 329, 305)
$bureautique = GUICtrlCreateGroup("Bureautique", 616, 264, 305, 121)
$office = GUICtrlCreateCheckbox("Microsoft Office", 624, 288, 97, 17)
$Access = GUICtrlCreateCheckbox("Access", 720, 312, 73, 17)
$Checkbox1 = GUICtrlCreateCheckbox("Powerpoint", 640, 344, 81, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Word", 640, 312, 57, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Excel", 640, 328, 65, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Publisher", 720, 328, 73, 17)
$Lotus = GUICtrlCreateCheckbox("Lotus Notes", 824, 288, 81, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$metiers = GUICtrlCreateGroup("Métiers", 616, 392, 305, 153)
$adelia = GUICtrlCreateCheckbox("Adelia Stuido", 624, 416, 89, 17)
$ccmx = GUICtrlCreateCheckbox("CCMX", 624, 432, 49, 17)
$crysrepo = GUICtrlCreateCheckbox("Crystal Reports", 624, 448, 89, 17)
$dtm = GUICtrlCreateCheckbox("DTM", 624, 464, 49, 17)
$toshop = GUICtrlCreateCheckbox("Photoshop", 624, 480, 81, 17)
$sap = GUICtrlCreateCheckbox("SAP", 624, 496, 89, 17)
$as = GUICtrlCreateCheckbox("AS400", 744, 416, 73, 17)
$ccs = GUICtrlCreateCheckbox("CCS", 744, 432, 49, 17)
$dbadmin = GUICtrlCreateCheckbox("DB2 Admin", 744, 448, 81, 17)
$Infass = GUICtrlCreateCheckbox("InfassT", 744, 464, 73, 17)
$prodcic = GUICtrlCreateCheckbox("ProdCIC", 744, 480, 65, 17)
$sas = GUICtrlCreateCheckbox("SAS", 744, 496, 65, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Audacity", 832, 416, 65, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Ciel", 832, 432, 49, 17)
$Checkbox7 = GUICtrlCreateCheckbox("Dreamweaver", 832, 448, 89, 17)
$notepad = GUICtrlCreateCheckbox("Notepad ++", 832, 464, 89, 17)
$query = GUICtrlCreateCheckbox("Query", 832, 480, 81, 17)
$xrt = GUICtrlCreateCheckbox("XRT", 832, 496, 81, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Signature = GUICtrlCreateGroup("Signature du demandeur", 8, 560, 177, 89)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("Signature du responsable de service", 200, 560, 193, 89)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Signature du coordinateur", 400, 560, 193, 89)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$commentaires = GUICtrlCreateEdit("", 600, 568, 217, 81)
GUICtrlSetData(-1, "commentaires")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
      Case $GUI_EVENT_CLOSE
            Exit

   Case $Nonancien
               GUICtrlSetState ($Input1, $GUI_DISABLE)
            GUICtrlSetState ($pcfixeancien, $GUI_DISABLE)
            GUICtrlSetState ($pcportableancien, $GUI_DISABLE)
            GUICtrlSetState ($Wyseancien, $GUI_DISABLE)
   Case $Ouiancien
               GUICtrlSetState ($Input1, $GUI_ENABLE)
            GUICtrlSetState ($pcfixeancien, $GUI_ENABLE)
            GUICtrlSetState ($pcportableancien, $GUI_ENABLE)
            GUICtrlSetState ($Wyseancien, $GUI_ENABLE)
   Case $Wysenouveau
            GUICtrlSetState ($pouce17, $GUI_DISABLE)
            GUICtrlSetState ($pouce15, $GUI_DISABLE)
            GUICtrlSetState ($pouce13, $GUI_DISABLE)
            GUICtrlSetState ($pouce21, $GUI_ENABLE)
            GUICtrlSetState ($pouce19, $GUI_ENABLE)
            GUICtrlSetState ($pouce17fixe, $GUI_ENABLE)
   Case $PC
            GUICtrlSetState ($pouce17, $GUI_ENABLE)
            GUICtrlSetState ($pouce15, $GUI_ENABLE)
            GUICtrlSetState ($pouce13, $GUI_ENABLE)
            GUICtrlSetState ($pouce21, $GUI_DISABLE)
            GUICtrlSetState ($pouce19, $GUI_DISABLE)
            GUICtrlSetState ($pouce17fixe, $GUI_DISABLE)
   Case $PCfixe
            GUICtrlSetState ($pouce17, $GUI_DISABLE)
            GUICtrlSetState ($pouce15, $GUI_DISABLE)
            GUICtrlSetState ($pouce13, $GUI_DISABLE)
            GUICtrlSetState ($pouce21, $GUI_ENABLE)
            GUICtrlSetState ($pouce19, $GUI_ENABLE)
            GUICtrlSetState ($pouce17fixe, $GUI_ENABLE)

Case $Imprimer
   $PFile = "C:\test.pdf"
Run(@ProgramFilesDir & '\Adobe\Reader 10.0\Reader\AcroRd32.exe /p "' & $PFile & '"' ,'' ,@SW_HIDE)
    MsgBox(4096, "InfoDem 1.1", "Demande envoyée ! ")

    EndSwitch
WEnd


Je vous met les fichiers en pièces jointes.

Il me reste à faire :

- La liste déroulante (je vais regarder l'exemple de Sablier94)
- Lorsque l'on appuie sur envoi, le fichier doit être un pdf et qui s'imprime automatiquement.

Ma difficulté sur ce dernier point : comment récuperer les informations de la boite de dialogue afin de le mettre en pdf ?


fichier autoit : http://www.sendspace.com/file/3tfrki
fichier kxf : http://www.sendspace.com/file/h94vlo




______________________________________________________
-Il n'y a qu'en affrontant les plus forts que l'on progresse-

Visiter le site web du posteur
Répondre en citant
Message [TERMINE] Formulaire de demande 
Liste déroulante terminée !

Merci à Sablier94 ^^

Code:

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         myName

 Script Function:
   Template AutoIt script.

#ce ----------------------------------------------------------------------------

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


#Region ### START Koda GUI section ### Form=c:\users\david\desktop\formulaire.kxf
$Form1_1 = GUICreate("Form1", 953, 688, 185, 101)
$Label1 = GUICtrlCreateLabel("FORMULAIRE DE DEMANDE", 288, 8, 433, 33)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Informations = GUICtrlCreateGroup("Informations", 8, 40, 921, 201)
$Demandeur = GUICtrlCreateGroup("Demandeur", 16, 56, 305, 105)
$Nom = GUICtrlCreateInput("Nom", 24, 80, 137, 21)
$Service = GUICtrlCreateCombo("Service", 24, 104, 137, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData (-1, "ACCUEIL|AREAS|CE|CIVILE|CLAIM|CLIENTELE ADP|CLIENTELE IARD D&P|COMMERCIAUX ADP|COMMERCIAUX IARD D&P|COMMUNICATION|COMPTABILITE|CONCESSION|CORPS|CREDIT|DAF|DIRECTION|DIRECTION ADP|DIRECTION CREDIT|DIRECTION FAB|DIRECTION FAM|DIRECTION FAP|DIRECTION IARD|DOMMAGES|ENERGIE|FACULTES|FLOTTE|GESTION CREDIT|IARD|IARD PARIS|INDEMNISATION|INDEMNISATION AUTO|INDEMNISATION FA|PARTICULIERS|PETIT ACCUEIL|PRAEVENTIA|PREVOYANCE|PREVOYANCE COTISATIONS|PREVOYANCE EMPRUNTEURS|PREVOYANCE INCAPACITE|PRODUCTION AUTOMOBILE|PRODUCTION CONSTRUCTION|PRODUCTION IARD|PRODUCTION IARD D&P|QUALITE|RECOURS|RH|RISQUES SPECIAUX|SALLE FORMATION|SALLE LAGUNE|SALLE PEREIRE|SALLE PYLA|SALLE REUNION|SANTE|SANTE AFFILIATION|SANTE TECHNIQUE|SANTE TELEPHONIE|SERVICE CLIENTS|SERVICE INFORMATIQUE|SERVICE SANTE|SERVICES GENERAUX|SINISTRES AUTOMOBILE|SINISTRES IARD|STANDARD|STATISTIQUES|VMA|XENASSUR|")
$Groupe = GUICtrlCreateCombo("Groupe", 176, 104, 137, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "AMV|FAB|FAM|FAP|FAR|FAT|XENASSUR")
$Prenom = GUICtrlCreateInput("Prénom", 176, 80, 137, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$NouvelA = GUICtrlCreateGroup("Nouvel Arrivant", 328, 56, 593, 105)
$Nomnouvel = GUICtrlCreateInput("Nom", 336, 80, 113, 21)
$Prenomnouvel = GUICtrlCreateInput("Prénom", 464, 80, 129, 21)
$servic = GUICtrlCreateCombo("Service", 336, 112, 113, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData (-1, "ACCUEIL|AREAS|CE|CIVILE|CLAIM|CLIENTELE ADP|CLIENTELE IARD D&P|COMMERCIAUX ADP|COMMERCIAUX IARD D&P|COMMUNICATION|COMPTABILITE|CONCESSION|CORPS|CREDIT|DAF|DIRECTION|DIRECTION ADP|DIRECTION CREDIT|DIRECTION FAB|DIRECTION FAM|DIRECTION FAP|DIRECTION IARD|DOMMAGES|ENERGIE|FACULTES|FLOTTE|GESTION CREDIT|IARD|IARD PARIS|INDEMNISATION|INDEMNISATION AUTO|INDEMNISATION FA|PARTICULIERS|PETIT ACCUEIL|PRAEVENTIA|PREVOYANCE|PREVOYANCE COTISATIONS|PREVOYANCE EMPRUNTEURS|PREVOYANCE INCAPACITE|PRODUCTION AUTOMOBILE|PRODUCTION CONSTRUCTION|PRODUCTION IARD|PRODUCTION IARD D&P|QUALITE|RECOURS|RH|RISQUES SPECIAUX|SALLE FORMATION|SALLE LAGUNE|SALLE PEREIRE|SALLE PYLA|SALLE REUNION|SANTE|SANTE AFFILIATION|SANTE TECHNIQUE|SANTE TELEPHONIE|SERVICE CLIENTS|SERVICE INFORMATIQUE|SERVICE SANTE|SERVICES GENERAUX|SINISTRES AUTOMOBILE|SINISTRES IARD|STANDARD|STATISTIQUES|VMA|XENASSUR|")
$Group = GUICtrlCreateCombo("Groupe", 464, 112, 129, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "AMV|FAB|FAM|FAP|FAR|FAT|XENASSUR")
$Mail = GUICtrlCreateLabel("Mail", 728, 72, 29, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Ouitel = GUICtrlCreateRadio("Oui", 608, 96, 49, 17)
$Nontel = GUICtrlCreateRadio("Non", 608, 120, 57, 17)
$telephone = GUICtrlCreateLabel("Téléphone", 609, 72, 70, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$datearr = GUICtrlCreateGroup("Date d'arrivée prévue", 328, 168, 305, 49)
$Date1 = GUICtrlCreateDate("2011/11/21 09:48:29", 344, 184, 273, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Datedem = GUICtrlCreateGroup("Date de la demande", 16, 168, 305, 49)
$Date2 = GUICtrlCreateDate("2011/11/21 09:50:32", 32, 184, 273, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Ancien = GUICtrlCreateGroup("Ancien Matériel", 8, 248, 177, 305)
$Ouiancien = GUICtrlCreateRadio("Oui", 40, 296, 57, 17)
$Nonancien = GUICtrlCreateRadio("Non", 40, 320, 57, 17)
$Ancienposte = GUICtrlCreateGroup("Ancien Poste ? ", 24, 272, 145, 81)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$infoancienposte = GUICtrlCreateGroup("Informations", 24, 360, 145, 177)
$Input1 = GUICtrlCreateInput("Nom du poste", 32, 384, 129, 21)
$pcfixeancien = GUICtrlCreateRadio("PC Fixe", 32, 408, 97, 17)
$pcportableancien = GUICtrlCreateRadio("PC Portable", 32, 432, 97, 17)
$Wyseancien = GUICtrlCreateRadio("Wyse", 32, 456, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Imprimer = GUICtrlCreateButton("Imprimer", 832, 592, 105, 33)
$nouveaumateriel = GUICtrlCreateGroup("Nouveau Matériel", 200, 248, 393, 305)
$posteinfo = GUICtrlCreateGroup("Poste Informatique", 208, 280, 209, 97)
$PCfixe = GUICtrlCreateRadio("PC Fixe", 216, 352, 81, 17)
$Wysenouveau = GUICtrlCreateRadio("Wyse", 216, 304, 65, 17)
$PC = GUICtrlCreateRadio("PC Portable", 216, 328, 73, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ecranchoix = GUICtrlCreateGroup("Ecran", 208, 392, 209, 137)
$pcportableecr = GUICtrlCreateGroup("PC Portable", 216, 416, 89, 97)
$pouce17 = GUICtrlCreateRadio("17 Pouces", 224, 440, 73, 17)
$pouce15 = GUICtrlCreateRadio("15 Pouces", 224, 464, 73, 17)
$pouce13 = GUICtrlCreateRadio("13 Pouces", 224, 488, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$pcfixeecr = GUICtrlCreateGroup("PC Fixe / Wyse", 320, 416, 89, 97)
$pouce21 = GUICtrlCreateRadio("21 Pouces", 328, 440, 73, 17)
$pouce19 = GUICtrlCreateRadio("19 Pouces", 328, 464, 73, 17)
$pouce17fixe = GUICtrlCreateRadio("17 Pouces", 328, 488, 73, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$imprimantes = GUICtrlCreateGroup("Imprimantes", 432, 280, 145, 97)
$impnetb = GUICtrlCreateCheckbox("Imprimante N/B", 440, 304, 97, 17)
$Fax = GUICtrlCreateCheckbox("Fax", 440, 328, 97, 17)
$Multifonctions = GUICtrlCreateCheckbox("Multifonctions Couleurs", 440, 352, 137, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$periph = GUICtrlCreateGroup("Autres périphériques", 432, 400, 145, 129)
$perpih1 = GUICtrlCreateInput("Périphérique 1", 440, 424, 129, 21)
$periph2 = GUICtrlCreateInput("Périphérique 2", 440, 448, 129, 21)
$periph3 = GUICtrlCreateInput("Périphérique 3", 440, 472, 129, 21)
$periph4 = GUICtrlCreateInput("Périphérique 4", 440, 496, 129, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Logiciels = GUICtrlCreateGroup("Logiciels", 600, 248, 329, 305)
$bureautique = GUICtrlCreateGroup("Bureautique", 616, 264, 305, 121)
$office = GUICtrlCreateCheckbox("Microsoft Office", 624, 288, 97, 17)
$Access = GUICtrlCreateCheckbox("Access", 720, 312, 73, 17)
$Checkbox1 = GUICtrlCreateCheckbox("Powerpoint", 640, 344, 81, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Word", 640, 312, 57, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Excel", 640, 328, 65, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Publisher", 720, 328, 73, 17)
$Lotus = GUICtrlCreateCheckbox("Lotus Notes", 824, 288, 81, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$metiers = GUICtrlCreateGroup("Métiers", 616, 392, 305, 153)
$adelia = GUICtrlCreateCheckbox("Adelia Stuido", 624, 416, 89, 17)
$ccmx = GUICtrlCreateCheckbox("CCMX", 624, 432, 49, 17)
$crysrepo = GUICtrlCreateCheckbox("Crystal Reports", 624, 448, 89, 17)
$dtm = GUICtrlCreateCheckbox("DTM", 624, 464, 49, 17)
$toshop = GUICtrlCreateCheckbox("Photoshop", 624, 480, 81, 17)
$sap = GUICtrlCreateCheckbox("SAP", 624, 496, 89, 17)
$as = GUICtrlCreateCheckbox("AS400", 744, 416, 73, 17)
$ccs = GUICtrlCreateCheckbox("CCS", 744, 432, 49, 17)
$dbadmin = GUICtrlCreateCheckbox("DB2 Admin", 744, 448, 81, 17)
$Infass = GUICtrlCreateCheckbox("InfassT", 744, 464, 73, 17)
$prodcic = GUICtrlCreateCheckbox("ProdCIC", 744, 480, 65, 17)
$sas = GUICtrlCreateCheckbox("SAS", 744, 496, 65, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Audacity", 832, 416, 65, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Ciel", 832, 432, 49, 17)
$Checkbox7 = GUICtrlCreateCheckbox("Dreamweaver", 832, 448, 89, 17)
$notepad = GUICtrlCreateCheckbox("Notepad ++", 832, 464, 89, 17)
$query = GUICtrlCreateCheckbox("Query", 832, 480, 81, 17)
$xrt = GUICtrlCreateCheckbox("XRT", 832, 496, 81, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Signature = GUICtrlCreateGroup("Signature du demandeur", 8, 560, 177, 89)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("Signature du responsable de service", 200, 560, 193, 89)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Signature du coordinateur", 400, 560, 193, 89)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$commentaires = GUICtrlCreateEdit("", 600, 568, 217, 81)
GUICtrlSetData(-1, "commentaires")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
      Case $GUI_EVENT_CLOSE
            Exit

   Case $Nonancien
               GUICtrlSetState ($Input1, $GUI_DISABLE)
            GUICtrlSetState ($pcfixeancien, $GUI_DISABLE)
            GUICtrlSetState ($pcportableancien, $GUI_DISABLE)
            GUICtrlSetState ($Wyseancien, $GUI_DISABLE)
   Case $Ouiancien
               GUICtrlSetState ($Input1, $GUI_ENABLE)
            GUICtrlSetState ($pcfixeancien, $GUI_ENABLE)
            GUICtrlSetState ($pcportableancien, $GUI_ENABLE)
            GUICtrlSetState ($Wyseancien, $GUI_ENABLE)
   Case $Wysenouveau
            GUICtrlSetState ($pouce17, $GUI_DISABLE)
            GUICtrlSetState ($pouce15, $GUI_DISABLE)
            GUICtrlSetState ($pouce13, $GUI_DISABLE)
            GUICtrlSetState ($pouce21, $GUI_ENABLE)
            GUICtrlSetState ($pouce19, $GUI_ENABLE)
            GUICtrlSetState ($pouce17fixe, $GUI_ENABLE)
   Case $PC
            GUICtrlSetState ($pouce17, $GUI_ENABLE)
            GUICtrlSetState ($pouce15, $GUI_ENABLE)
            GUICtrlSetState ($pouce13, $GUI_ENABLE)
            GUICtrlSetState ($pouce21, $GUI_DISABLE)
            GUICtrlSetState ($pouce19, $GUI_DISABLE)
            GUICtrlSetState ($pouce17fixe, $GUI_DISABLE)
   Case $PCfixe
            GUICtrlSetState ($pouce17, $GUI_DISABLE)
            GUICtrlSetState ($pouce15, $GUI_DISABLE)
            GUICtrlSetState ($pouce13, $GUI_DISABLE)
            GUICtrlSetState ($pouce21, $GUI_ENABLE)
            GUICtrlSetState ($pouce19, $GUI_ENABLE)
            GUICtrlSetState ($pouce17fixe, $GUI_ENABLE)

Case $Imprimer
   $PFile = "C:\test.pdf"
Run(@ProgramFilesDir & '\Adobe\Reader 10.0\Reader\AcroRd32.exe /p "' & $PFile & '"' ,'' ,@SW_HIDE)
    MsgBox(4096, "InfoDem 1.1", "Demande envoyée ! ")

    EndSwitch
WEnd


Il ne reste plus que l'impression et la recupération des informations de la boite de dialogue !

Pour le moment je ne trouve rien.




______________________________________________________
-Il n'y a qu'en affrontant les plus forts que l'on progresse-

Visiter le site web du posteur
Répondre en citant
Message [TERMINE] Formulaire de demande 
Impression :
http://autoitscript.fr/forum/viewtopic.php?f=11&t=4794
http://www.autoitscript.com/forum/topic/73993-printing-from-autoit/

quitte à adapter un vbs en autoit




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [TERMINE] Formulaire de demande 
Merci Laddy pour ces liens.

Le premier ne m'aide pas tant que ça, car son fichier au3 me donne des messages d'erreur.

Le second me servira mais dans ce cas, il faudrait que je puisse definir mon interface une fois rempli comme un fichier 'image' (genre alt+impecran) et dans ce cas enregister le impecran en tant que fichier jpeg dans le dossier temp et l'imprimer par la suite au format paysage.

Je ne vois pas comment faire dans ce cas, pourtant je pense que cette solution est la plus simple.

J'oubliais !
A la place du choix de date dans le calendrier j'aimerais mettre une date fixe, j'ai regarde le fichier date.au3 mais je ne capte pas comment je peux associer la la date du jour au bouton Datedem




______________________________________________________
-Il n'y a qu'en affrontant les plus forts que l'on progresse-

Visiter le site web du posteur
Répondre en citant
Message [TERMINE] Formulaire de demande 
Bon, je viens de terminer le projet, tout fonctionne à merveille.
Je vais donc mettre le logiciel dans la catégorie des programmations (je dois encore mettre quelques modifs et c'est bon)

Merci à Laddy et Sablier94 pour leur aide, très précisieuse ainsi qu'à flydee (un ami de formation ayant été developpeur java).




______________________________________________________
-Il n'y a qu'en affrontant les plus forts que l'on progresse-

Visiter le site web du posteur
Message [TERMINE] Formulaire de demande 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch