ࡱ> !# Y bjbjWW  ==] -2 \22b22 $3տ2 . A!"#$% [4@4NormalCJOJQJkHmH 2A@2Police par dfaut  Montangero$C:\MENDEL\COURS\TDT_EAO\GRAMMAIR.DOTPatrick Mendelsohn3D:\Mes documents\cours licence\tdt_eao\GRAMMAIR.DOTmao4C:\Doc\TECFA\~Travaux\Staf11\MacrosWord\GRAMMAIR.DOTmao:C:\Doc\TECFA\~Travaux\Staf11\MacrosWord\cantonsSuisses.dotmao:C:\Doc\TECFA\~Travaux\Staf11\MacrosWord\cantonsSuisses.dotV V  t(TemplateProject.pronom.MAINpronom pronom.MAIN;i ?a x?t??i?q?Y? q ? y ? 9? 1?! ?????i??q ?y ? ? ? EAO Pronom EAO PronomPKPPPP0 (TemplateProject.pronom.MAINpronom pronom.MAIN;  Quitter le DocumentQuitter Quitter.MAINTemplateProject.Quitter.MAINTemplateProject.pronom.MAIN TEMPLATEPROJECT.PRONOM.MAIN TEMPLATEPROJECT.QUITTER.MAIN@@GTimes New Roman5Symbol3& Arial"V sFfsFf!V 0Salle TP - utilisateurmao Oh+'0  $ @ L X dpxssSalle TP - utilisateurallallcantonsSuisses.dotemao3oMicrosoft Word 8.0e@@@տ@տ ՜.+,D՜.+,X px   TECFA - FPSE1j  Titre 6> _PID_GUIDAN{AA565108-41FA-11D4-9E62-83CEE2FA3F11} "&?%'-()*+,.F/0;23456789:<=>@ABCDEGHRoot EntryBH,'* F^{$3տ$@,X1Table  WordDocument  4@SummaryInformationnP(DocumentSummaryInformation8AH  PAMacrosi# @AH |t2տ$3տVBA pt2տ 3տThisDocument$ p  !"#$%&'()*+,-./012345679;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstvwxyz{|}~x# (SLSS<N0{00020906-0000-0000-C000-000000000046}8($HMExAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |CreatablFalse ^PredeclaIdTru "@ExposeTemplateD0eriv$eCustomiz2Quitter lpronom 1l__SRP_2\__SRP_38exO}keqG9P C0@ME " ( B@ Cl`XYAttribute VB_Name = "Quitter" Public Sub MAIN() WordBasic.FileClose  EndH rU~} - 1a) Q 9 i  9 Y 1 I ! Q 9YQy A @tlt;lt;lt;lt;lt;lt;lt;lt;lt; lt; lt; lt; lt; lt;lt;lt;lt;lt;lt;lt;lt;lt;lt;1(`@%(P%:@%p"$ @pp7(`%(P8%(@X%(0%p"$ @pp7(`%(P[%(@X%(0%p"$ @pp=(`%(P %(@%(0 %: %p"$ @ppD(`%(P%(@%(0q%t`: %p"$ @p!pp"$ @p"p2p"$ @pW #W$4p6 C @p"$ @pW %$(`]cp6 \8=:`&%p"$ @p (P]pp5 \60:`&%p"$ @p `1xp5 :W '"lt.@@p"$ @p(-p5 %(`%p"$ @p)pW  * :`+lxFP:@,%p"$ @p(p6 @88xt$p krU $`pa^  *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\PROGRAM FILES\FICHIERS COMMUNS\MICROSOFT SHARED\VBA\VBA332.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C_VBA_PROJECT:diru__SRP_0__SRP_1 J000-000000000046}#8.0#409#C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSWORD8.OLB#Microsoft Word 8.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automation*\G{B4A2D582-FE43-11D2-9E61-B783445A0810}#2.0#0#C:\WINDOWS\SYSTEM\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{FDB3C752-1C86-11D4-9E62-CA6F6C6AAD10}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object LibraryeqG9ThisDocument 139477165*DQuitter 239477165*D pronom 639477222*D"0Px]y(6 LeqG9"*\Rffff*639477222*\R1*#17b*\R1*#c1*\R0*#c `H..PxX`0 "$0hME/ " 8hPh 8P $177(D=H,D  4 &C Z8=0:%*W ( Z@ $pArgovie + $Ble + $ Fribourg + $Berne + $Genve+ $Glaris + $Grisons+ $Lucerne + $@Microsoft Word B@&8X B@([X B@*  %Choisis un canton puis clique sur OK. B@fq$ $ListBox1 B@, B@.ZxE !2!4.0! Invoque la bote de dialogue dlg 0 !6%4 V On n'a pas appuy sur annuler, et l'index de la slection est dans le champ .ListBox1 %8 %8'  0!<$ $ B@: B@> $@(  ) B@:hhlA@rA@tA@vA@x"SZ = new Array("Schwytz", "1291");$UW = new Array("Unterwald", "1291");"LU = new Array("Lucerne", "1332");!ZH = new Array("Zrich", "1351");!GL = new Array("Glaris", "1352");ZG = new Array("Zoug", "1352");!GL = new Array("Glaris", "1352"); BE = new Array("Berne", "1353");#FR = new Array("Fribourg", "1481");"SO = new Array("Soleure", "1481");BS = new Array("Ble", "1501");%SH = new Array("Schaffouse" ,"1501");$AZ = new Array("Appenzell", "1513");%SG = new Array("Saint-Gall", "1803");"GR = new Array("Grisons", "1803");"AG = new Array("Argovie", "1803");$TG = new Array("Thurgovie", "1803");!TI = new Array("Tessin", "1803");VD = new Array("Vaud", "1803");VD = new Array("Vaud", "1803");!VS = new Array("Valais", "1814");$NE = new Array("Neuchtel", "1814");!GE = new Array("Genve", "1814");A@zA@|A@zA@~A@A@A@ ,;AppenzellA@ A@A@A@A@A@A@A@A@A@A@A@Jura+ $~ Neuchtel + $ Schaffouse + $ Saint-Gall + $Soleure+ $ Unterwald+ $Vaud+ $Zrich+ $Schwytz + $Tessin+ $Zoug+ $ Thurgovie+ $ Appenzell + $Uri+ $Valais+ $WAttribute VB_Name = "pronom" Public Sub MAIN() Dim Word$ Re0Mot__$(&760)Appenzell 212rgovie.2BlE 3ern 4FourgC5Genveq6laris,7onsB8 Jura 9 LucD 1rNeuchtel rSaint0-Gal tSchaffousT1w wytz&xSoleurwTessinyxTh yUnterwaldc =Uri=VPalaiH2C=Vau2==$u BWW2_In%t D2?@FK@3OfdLi(0h Chr(3^+ "P(" +b,$")DE If  0QVAb?QVAb?QVAb?0QTX/RedimREM Wordk VBAWin16~Win32MacGRAMMAIR stdole`MSFormsC ThisDocument< _Evaluate Officeu TemplateProjectEModule1b QuitterxhMAIN, WordBasic FileClose_ pronom;rMot___& BeginDialogFOKButton| CancelButtonListBox EndDialogmPdlg- CurValuesȤ UserDialogDialogf Selection$ WW2_InsertuMListBox1 EndOfLinemChrK~DocumentjUriSZ._UWt_LU&^ZH`GLd]ZG`BE\FRE]SO#_BS\SH_AZ\SG_GRj]AG\TG@_TIB_VD_VS_NE`^GE]]JU]Schwytz Unterwald4LucernecZrich\?GlarisZougނBerne_FribourgB!SoleureBle SchaffouseBSaint<GallGrisons#FArgovieԱ ThurgovieTessinVaudF!Valais NeuchtelGenve`HJuraG Appenzell _B_str_Mot__u9 _B_var_Chr\;l#   6ֲ0* pHdTemplateProjectQH@  = | eqG9 J< 9stdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE Autom`ation/MSFor ms>SFErms/z pFB4A2D582-FE43-11D2-9E61-B783445A00810F3.TWD#Microsoft = ` Ob Libprary9P04rPFDB3C752-1(C86P4P2-CA6F6C6A ADPJP\VB$E\(EX(.E .`M CxOfficDxO@u`ficBx,,2DF8D04C-5BFA-101B-BDE5@xAA@w42UPROGRAM FILES\MICROSOFT OFFICE\MSO97.DLLHZ# 8.0Z"BThisDocumentN2@1Th@6sDcu(en@ HB1B,B"B+BBQuitter 2*QitQrOP!JA߀pronom"qEc2prn`m   " K)^rU~~~~~~~~~~g QVAb?   AA Y9IiIAGRAMMAIR ThisDocumentTemplateProjectModule1QuitterpronomFAC:\PROGRAM FILES\FICHIERS COMMUNS\MICROSOFT SHARED\VBA\VBA332.DLLVBA q )( F4C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSWORD8.OLBWord  180F Appenzell C:\WINDOWS\SYSTEM\stdole2.tlbstdole  QHբCaDZC:\WINDOWS\SYSTEM\MSForms.TWDMSForms 1X.E .`M RdzboljC:\WINDOWS\TEMP\VBE\MSForms.EXD 1hL-[DR 2C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice )xMAIN  Argovie  Ble  Berne  Fribourg  Genve Glaris  Grisons Jura Lucerne Neuchtel Saint-Gall Schaffouse Schwytz Soleure Tessin Thurgovie Unterwald Uri Valais Vaud Zoug Zrich F Microsoft Word F  BeginDialogOKButton CancelButton %Choisis un canton puis clique sur OK.Text ListBox1ListBox EndDialog CurValues UserDialogDialog Selection$ListBox1 WW2_Insert EndOfLine VBA332.DLL q`  ( )\rU tThisDocumentThisDocumentQuitterQuitterpronompronomPROJECTwmVPROJECTCompObjjObjectPool$3տ$3տID="{AA565113-41FA-11D4-9E62-83CEE2FA3F11}" Document=ThisDocument/&H00000000 Module=Quitter Module=pronom Name="TemplateProject" HelpContextID="0" CMG="44469F17E349E749E749E749E7" DPB="7A78A165D666D666D6" GC="B0B26B8C6C8C6C73" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C Quitter=0, 0, 0, 0, C pronom=44, 44, 836, 533,   FDocument Microsoft Word MSWordDocWord.Document.89q