аЯрЁБс>ўџ ўџџџr}џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџˆ ўџџџo !"#$š&'()*?,-./0123456789:;<=>%@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnўџџџœqs§џџџ€uvwxyz{|}~pRoot Entryџџџџџџџџ РFр™(ў‹ЬУ€mx™ŒЬУpWorkbook2џџџџџџџџи._VBA_PROJECT_CUR"0.`Єє’ŒЬУ .;”ŒЬУVBAџџџџ/`Єє’ŒЬУ@ћ”ŒЬУ  !"#$%&'()*+,-./01234ўџџџ6789:;<=ўџџџ?@ўџџџBCDEFўџџџHIJKLMNOPQRSTUVўџџџXYўџџџ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€h"?П р h"П р!x "€П р!Рр#XР “€џ“€џ’т8џџџџџџџџџџџџ€€€€€€€€€ъъъ€€€™™џ™3fџџЬЬџџffџ€€fЬъыЏ€џџџџџџ€€€€€џЬџЬЬџЬџЬџџ™™Ьџџ™ЬЬ™џџЬ™3fџ3ЬЬ™ЬџЬџ™џfff™–––3f3™f333™3™3f33™333\џџџ`… йPG… O$ListŒ!!Ўўџўџџџџџ!  ;  ;џ" NomDeSociete: Triы:№2№јxž     3 №П Р@@ё  їќT Extension Repertory Files nameSize Date/TimeThe: FILES LISTџƒ `9/ŒjвZone_d_impre гЬI‡сАСт\pss BАa= !гК ThisWorkbookœЏМ=рH@,0<X@"Зк1ШџArial1ШџArial1ШџArial1ШџArial1№џArial1.№џTimes New Roman1џArial1џМArial1џArial1.џМTimes New Roman1џArial1ШџArial1.hџМTimes New Roman1№џМArial1ШџArial1.@џМTimes New Roman1@џМArial1@џArial1.@џМTimes New Roman1.№џМTimes New Roman1.ШџTimes New Roman1мџМArial1 џTahoma1  МArial1Ш Arial#,##0\ "F";\-#,##0\ "F"!#,##0\ "F";[Red]\-#,##0\ "F""#,##0.00\ "F";\-#,##0.00\ "F"'"#,##0.00\ "F";[Red]\-#,##0.00\ "F";*6_-* #,##0\ "F"_-;\-* #,##0\ "F"_-;_-* "-"\ "F"_-;_-@_-8)3_-* #,##0\ _F_-;\-* #,##0\ _F_-;_-* "-"\ _F_-;_-@_-C,>_-* #,##0.00\ "F"_-;\-* #,##0.00\ "F"_-;_-* "-"??\ "F"_-;_-@_-@+;_-* #,##0.00\ _F_-;\-* #,##0.00\ _F_-;_-* "-"??\ _F_-;_-@_-Є"$"#,##0_);\("$"#,##0\)!Ѕ"$"#,##0_);[Red]\("$"#,##0\)"І"$"#,##0.00_);\("$"#,##0.00\)'Ї""$"#,##0.00_);[Red]\("$"#,##0.00\)7Ј2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).Љ)_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?Њ:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6Ћ1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)Ќddd ­0\ \% Ўd/m/yyЏ ddd\ d/m/yy А0.00\%Б 0.0000\ "%" В0.##\h Г0.0#\% Д0.0000_Е-#\ ###\ ##0.00\ \Ќ ;[Blue]\-#\ ###\ ##0.00\ \Ќ $Ж[Red][<0]\-00\%;[<99]0.0\%;00\%7З2[Black][>0]?0.##\h;[Red][=0]"voir h";[Green]0.##\hsИ7#\ ###\ ##0.00[$ Ќ -409];[Blue]\-#\ ###\ ##0.00[$ Ќ -409]Й #,##0;\-#,##0К#,##0;[Red]\-#,##0Л#,##0.00;\-#,##0.00М#,##0.00;[Red]\-#,##0.00Нdd/mm/yyyy\ h:mmО" "П #,##0.00" " Р#,### С0" "%Т 0.00\ "F" У#,##0.0Ф0\%*Х%[Black][>0]?0.##\h;[Red][<0.1]"Warn"; Ц?.##\h/Ч*[Black][>0]?0.##\h;[Red][<0.1]"attention";,Ш'[Black][>0]?0.##\h;[Red][<0.1]"attent";Щ#\% Ъ??.##\hЫ #,##0.000Ь #,##0.0000Э0.0 Ю\-\ 0.00Я "$"#,##0.00а[$-40C]dddd\ d\ mmmm\ yyyy0б+_(* #,##0_);_(* \(#,##0\);_(* "-"??_);_(@_)вdd\ mmm\ yy\-hh:mm\ AM/PMрѕџ Ррѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р РрєџєР р `Р р @Р р HР р LР р HР р LР р!XР р!XР р  HР р "XР р "XР р!PР р !XР р "XР р!XР р "XР р"XР р HР р"XР р!XР р HР р"xР р"XР р"XР р HР р ssionestb Тb{ЗїПїAїП”ќП–ЗїПр™‚ˆ™‚<Тb иjвќУbр™‚lТbI_їПр™‚ˆ™‚ŒФbD“j˜Тb.ёe0sT0(а0ŒФb™‚Ќ’™‚МТbжœёe0sT0ŒФbŒФbЌ’™‚РФbњДёeˆ™‚0sT0ŒФbazp0Тjв цУb  цУbТjв ˜Уb(а0тїПмjв„іS0œУblЩ0Х0ШјП ъ№eшУb|Уb{ЗїПс„ КPageGggџџџџD гЬI у(Ч)  ќЉёвMbP?_*+‚€%СЇЄ&L&"Arial,Italique"&08Total size in MO : 1,71 5 fichiers dans le rщpertoire : D:\Calculs\"&R&"Arial,Italique"&08Listing of files in the station data-processing : sswt&L&"Arial,Italique"&10D:\Crщation site Devis\program\listfileus.xls&R&"Arial,Italique"&08Print the &D&CPage &P of &Nƒ„&ffffffц?'ffffffц?(ш?)333333у?M†HP LaserJet 1100дАw ™ 4dXX210 x 297 mmHP LaserJet 1100LPT1:DDT„мdHЁ" PXX{ЎGсzд?{ЎGсzд?U } $} q%} Ч } Ч-} уNoms des fichiers?AT0@ § *§ +§ +§ +§ ,зZьЊ№Š№d№r№( № №d№R’ №d C №ПџП№№]F!4ЯЦ d юbьZ№R’ №d C №ПџП№№]F!мЯЦ юbьZ№R’ №d C №ПџП№№]F!„аЦ d юbьZ№R’ №d C №ПџП№№]F!,бЦ d юbьZ№R’ №d C №ПџП№№]F!дбЦ d юbьx№x’ №d “ №6€L{в…‹ПCƒCПП№„юя№],@L{в|вЦА їPв9ь №Ж$ < Tri fichiers<5 €B>ž  A КListggџџџџD ThisWorkbook%џџџџ3 __SRP_b џџџџ5__SRP_aџџџџџџџџџџџџ>“ListingFilesџџџџ+5“Жџџџџџџџџ<џџu­ЈaU3зК›шшaдРFt­ЈaU3зК›шшaдџџџџџџџџџџџџxњ9 ‡џџџџрLтLџџ#ˆt­ЈaU3зК›шшaдu­ЈaU3зК›шшaдџџU ђђС џџџџ4џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSLџџџџSџџџџS”џџџџ6"џџџџ<џџš џџџџ<џџ<џџџџџџN0{00020819-0000-0000-C000-000000000046}е™э?)$*\Rffff*7b3e376fb0$*\Rffff*723fed99dbп(0@`џџџџџџџџ`|џoџџџџџџџџh”K#џџџџ`џџџџџџџџˆ|џo€џџџџl ”Tђ/†iƒ џџџџ џџ џџџџџџ€ўџџџџџџџџџШџџ џџџџџџџџ$џџџџџџџџ@ƒўџџџџџџџџџџџџџџџџџџџџџџџџџ $‚ џџџџўџџџ8џџўџџџџџџџџџџџџџџџ $ƒўџџџџџџџhџџџџџџџџџџџџџџџџџџ $ƒўџџџџџџџ˜џџџџџџџџџџџџџџџџџџ $‚ џџџџўџџџШџџўџџџџџџџџџџџџџџџ $ƒўџџџџџџџјџџџџџџџџџџџџџџџџџџ $ƒўџџџџџџџ(џџџџџџџџџџџџџџџџџџ $‚ џџџџўџџџXџџўџџџџџџџџџџџџџџџ $ƒўџџџџџџџˆџџџџџџџџџџџџџџџџџџ $ƒўџџџџџџџИџџџџџџџџџџџџџџџџ $ $ $ $ $џџџџ‚ џџџџўџџџРџџўџџџџџџџџџџџџџџџƒўџџџџџџџШџџџџџџџџџџџџџџџџџџƒўџџџџџџџаџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџиџџўџџџџџџџџџџџџџџџџџџџ@ƒўџџџџџџџИџџџџџџџџџџџџџџџџџџ $ƒўџџџџџџџшџџџџџџџџџџџџџџџџџџ $‚ џџџџўџџџџџўџџџџџџџџџџџџџџџ $ $0џџџџшƒўџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0"џџџџџџџџџџџџџџџџ&Юџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџиџџџџџџџџ№џџџџxџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџрџџџџџџџџ џџџџ@џџџџџџџџ џџџџџџџџ№8@phџџџџџџџџџџџџџџџџџџџџџџаMEџџџџџџџџџџўЪ€ џџџџ€ џџџџ€€ џџџџ"€ˆ˜ € "0Ш€ џџџџ" аиџџџџ`ХџџxиOn Error Resume Nextџџџџи CreationMenuListFileџџи AjouteMenuAddinListFileиEnd SubСHAA0A"и Call Imformationslџџ @Си ThisWorkbook.Saveи End IfA&lџџџџџџАџџџџhи Call ParamщtrageCouleurџџџџnБAttribute VB_Name = "ThisWorkbook" ŒBasŒ0{00020P819-0C$0046} |Creatab‚l†False ^Predecla‰Id‹Tru "@ExposeTemplateD0eriv$eCuРstomizˆ2 Option 1licit P$( Sub Š_Open ()€€rror ResužNe x Call ‚v(MenuListFileUˆS Ajo€НСAddin’"ЂeBar‰'#ParamщtrageCoule€ur EndYaBeforeClРR(Cancel As BooPleanš6 Т6D0elet‘%rU€€€ бIqЉRбRљRџџџџБ4!SISџџџџџџџџџџџџЊ` `ё 1 џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ“џ ? P Kџџ    $ DKџџ lџ$ 44SrU€€€ џџџџџџџџ@$щ `hџџџџџџџџ() `l џџџџџџџџ!#prU€€€ џџџџџџџџ,Љ pџџџџџџџџџџџџЁЙ,q ,pџџџџџџџџџџџџб4џџџџ$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџ$б`§џџџџџџџџџџџ$љ`§џџџџџџџџџџџсprU€€€€~}  0рџџџџџџџџH ˆ џџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџ` ME,џџџџџџџџўЪ~€€ џџџџ€ € џџџџ€ €`€р€ џџџџH€0€ џџџџH€H€ џџџџ€p€x€€€ˆ€€˜€ €Ј€А€И€ џџџџ"РШ€ џџџџ€ "0€и€р€ј€€€€(€0€8€X€`€h€p€x€€€(€€ џџџџ€ џџџџ€˜€ € €( €р2€ џџџџ  08@D€> %(3 *H€ џџџџ ј45 %?Dа>5€ џџџџ2H 5 iИ:€ џџџџ€ џџџџ`6+ А66˜6 6€ џџџџ и€ џџџџшј (€ џџџџf!(5€ џџџџАР,=и€ џџџџ#  @fШи;аш€ џџџџ2-0€ џџџџtL№€ џџџџ˜АШ€ џџџџB.Ј1r=5 X(‹ˆD6h№€ џџџџј   ,  2+( ` h p € џџџџ`x Ш  0  1Ј2€0И22 € @ 2 2 2а2 2 ˆ(2H2€ џџџџ "P2`2€ џџџџr@@= h@wАx $€€ џџџџB)И9  €   € џџџџ&Eи8&E9&E(9 EP9&Ep9H˜9€ џџџџ  *(  '8  H P  X  ` h *p  ˆ    :˜ "TИ р ш "W№    (o(  P  X 2x ˜ %А #а ш № ј   5 5( 5@ 4ˆX€ џџџџ f+А1Ш€ џџџџ  р № € џџџџ€ш€ џџџџ€ џџџџ"Ш0Р0 h %P8 `8 €6 ˆ6h %А3а p6а0€ џџџџ€ џџџџ"€Ј€А€и€№€p€x€р.€ш€№€ј€€р€аЖџџT0@џџSHGetPathFromIDListA0@SHBrowseForFolderAџџџџџџџџџџџџџџџџџџџџx2n(t џџџџрL˜LџџџџŠ(**~zџџџџпџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€@џџ6(џџ–> џџџџ<ьџџ< џџ<џџ<џџ<џџ<џџ< џџ<$џџ<(џџ<,џџ<0џџ<4џџ<8џџ<<џџ<@џџ џџh€@Јџџh€BРџџh€Dиџџh€Fџџџџџџ`„(x№ўџџџџџџџџ$$NRVNRV$`„Jџџџџќўџџ џџ`„Lџџџџzџџџ џџ`„Nџџџџxџџџџџ`„Pџџџџvџџџџџ`„Rџџџџtџџџџџ`„Tџџџџrџџџџџ`„Vџџџџpџџџџџ`„XРlџџџџџ`„ZЈhџџџџџ`„\џџџџdџџџџџ`„^џџџџ`џџџџџ`„(\џџџџџ`„`џџџџXџџџџџ`„b`Tџџџџџ`„dPPџџџџџ`„†џџџџєўџџџџ$$$`„jџџџџ@џџџ џџ`„lџџџџ<џџџџџ`„n€,џџџ џџ`„pџџџџ*џџџџџ`„rи$џџџџџ`„t№"џџџџџ$NRVNRV`„x`џџџџџ`„zx џџџџџ`„|hџџџџџ`„€џџџџpџџџџџ`„‚џџџџ`џџџ џџ`„„Pџџџ џџ`„†џџџџ@џџџ џџ`„ˆџџџџ8џџџџџ`„Šџџџџ4џџџџџ`„Žџџџџ,џџџџџ`„ŒH џџџ џџ`„џџџџ$џџџџџ`„’0"џџџџџ „”џџџџџџџР$$NRVNRVт€&ш џџџџ@џџџџџџџџƒ$џџџџџџ(џџџџџџџџџџџџџџ H `џџџџџџџџ@ш§oџџџџџџџџџџššс„ƒ$џџџџџџ˜џџџџџџџџџџџџџџџџџџ$ƒ$џџџџџџџџџџџџџџџџџџџџџџџџƒ$џџџџџџШџџџџџџџџџџџџџџџџџџrtƒ$џџџџџџџџџџџџџџџџџџџџџџџџƒ$џџџџџџ(џџџџџџџџџџџџџџ№NRVNRVƒ$џџџџџџXџџџџџџџџџџџџџџџџџџ H0`џџџџџџџџЈXџkџџџџџџџџџџг„8 H€`џџџџџџџџШ :§oџџџџџџџџџџММ„џџџџƒ$џџџџџџ(џџџџџџџџџџџџџџџџџџ$rtƒ$џџџџџџџџџџџџџџџџџџџџџџџџ`„vџџџџџџџџџџџ`„Lєўџџџџџџџџ$$NRV$NRV$NRVƒ$џџџџџџ№џџџџџџџџџџџџџџ џџ$ƒ$џџџџџџ џџџџџџџџџџџџџџ џџ$$$NRVNRV ‚џџџџ`џџџџџџџџИ8џkџџџџџџџџџџ{„8т€Аџџџџџџџџ@џџџџџџџџџџџџ$NRVƒ$џџџџџџАџџџџџџџџџџџџџџџџџџт€Вˆ џџ џџ@џџџџџџџџˆ $А x‚Аƒ$џџџџџџИџџџџџџџџџџџџџџNRV`„„@јўџџ џџџџџџџџфОШš˜КЄАџџ`„hџџџџьўџџџџџџƒ$џџџџџџРџџџџџџџџџџџџџџ џџNRVNRVNRVNRVNRVƒ$џџџџџџИџџџџџџџџџџџџџџџџџџƒ$џџџџџџЈџџџџџџџџџџџџџџ џџџџџџџџџџА€0ˆ џџџџџџџџџџџџш 0РH рџџџџƒ$џџџџџџџџџџџџџџџџџџџџ`„fp№ўџџџџџџџџƒ$џџџџџџ˜џџџџџџџџџџџџџџџџџџƒ$џџџџџџ( џџџџџџџџџџџџџџџџџџƒ$џџџџџџ0 џџџџџџџџџџџџџџџџџџƒ$џџџџџџА џџџџџџџџџџџџџџџџџџџџџџџџџџА€0ˆ џџџџџџџџџџџџш 0РH рџџџџƒ$џџџџџџ џџџџџџџџџџџџџџџџџџ (р˜јџџџџЈ џџџџШˆ X H8џџџџ˜ h (џџџџ€ р€џџџџџџџџџџџџџџџџxџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџЈ @ўџ`ьўџџ џџ @@ўџXмўџџ џџ @ўџр иўџџџџ  ‚ џџrtNRVNRVNRV@ўџј дўџџџџ џџџџ@ўџаўџџџџ @ўџџџџџЬўџџџџ џџџџ@ўџ@Мўџџ џџ џџџџ@ўџpЌўџџ џџ џџџџ@ўџ(œўџџ џџ џџџџ@ўџˆŒўџџ џџ (@ўџр|ўџџ џџ p‡ џџNRVNRVNRVrtNRV@ўџјlўџџ џџ @ўџ@\ўџџ џџ p ЖВž &ЂоІ@ўџpLўџџ џџ @ўџX<ўџџ џџ @ўџˆ,ўџџ џџ @ўџўџџ џџ @ўџ  ўџџ џџ @ўџИќ§џџ џџ @ўџ(ь§џџ џџ rtNRVNRVNRVNRVrtNRV@ўџ@м§џџ џџ p@ўџXЬ§џџ џџ @ўџШМ§џџ џџ @ўџрЌ§џџ џџ ЈЊЌЎДИМNRVNRVrtrtrtrtrtrt@ўџџџџџœ§џџ џџ @ўџјŒ§џџ џџ @ўџ|§џџ џџ џџ@ўџџџџџl§џџ џџ џџNRVNRVNRVNRVpШЪТшдˆмт@ўџЈh§џџ џџ (@ўџd§џџ џџ @ўџX`§џ_ џџ @ўџ\§џџ џџ NRVrtrtrtџџ`„Žxшўџџџџ@ўџxX§џџ џџ NRVrtrtrtrtџџџџЈ rtrtrt@ўџT§џџ џџ @ўџџџџџP§џџ џџ HЎъќјNRVNRVNRVNRVNRVNRVNRVˆ$rtrtrtrtџџrtrtrtўџџџџџL§џџј`(АXЈџџџџ@ўџџџџџH§џџџџ џџ@ўџРF§џџџџ и˜Ўџџџ@ўџ0D§џџџ шРЎџџџџ`0Бprtџџrtџџ@ўџHB§џџџџ @ўџ€@§џ/џџ pHБ˜HЖ@ўџЈ>§џџџџ Р€Й@ўџџџџџ<§џ/џџ аЈЙјЈС@ўџџџџџ:§џџџџ џџџџРЬџџp$rtrtrtrtrtџџџџHВфЎt @ўџџџџџlџџџ џџ @ўџџџџџ\џџџ џџ @ўџџџџџXџџџ џџ џџџџф BшОТ&rtrtrtrtџџ@ўџфўџџ џџ rtrtˆ њџџџџrtџџџџ(Xџџџџpџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџrtџџˆ8#џџ@ўџдўџџ џџ €,џџџџўџаўџџ`@ўџhЬўџџџџ џџџџx@ўџ№Мўџџ џџ @ўџшЌўџџ џџ (А5 џџџџџџˆ0Ш>џџџџџџџџџџџџџџџџ0Иџџџџˆ №Јашџџџџ`№џџџџИиџџџџpиh џџџџџџџџџџџџ р˜џџџџИ(џџџџџџџџџџџџџџџџ Xџџџџ˜@ўџРœўџџ џџ @ўџPŒўџџ џџ @ўџ№ˆўџџ џџ џџрRџџџџ€@ўџ˜xўџџ џџ @ўџ€tўџџџџ @ўџџџџџpўџџџџ rtЈІЎ@PTjо@ўџ`ўџџ џџ @ўџџџџџ^ўџџџџ џџ@ўџXўџџ џџ @ўџ8Tўџџ џџ`@ўџџџџџLўџџџџ џџ@ўџ€Hўџџ џџ`†@ўџџџџџDўџџџџ X@ўџА@ўџџ џџ`@ўџџџџџ0ўџџ џџ @ўџШ,ўџџ џџ`@ўџ(ўџџ џџ`@ўџџџџџўџџ џџ џџџџ @ўџPўџџ џџ PRџџџџ@ўџpўџџџџ rtџџџџАˆ(Rџџџџ8џџџџ`@ўџџџџџ ўџџџџ АpRџoџџ@ўџџџџџўџoџџ 0Р˜Rъ†0˜Vъ†Јx|~ъ†ШЪџџ@ўџџџџџўџџ џџ @ўџџџџџє§џџ џџ €P^џџџџ˜џџџџ@@ўџh№§џџ џџ @ўџџџџџь§џO џџ h^(аhbџџш’ъ§џџџџ @ўџшъ§џџџџ ИpџџџџИ@ўџџџџџш§џ/џџ шpџџџџџџшsџџџџџџџџОЄxџџџ џџ џџ@ўџџџџџxџџџ џџ џџџџ@ўџhhџџџ џџ џџџџ@ўџ€Xџџџ џџ џџџџ@ўџXHџџџ џџ џџџџџџџџџџџџ(џџџџ џџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8Pџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџ@ўџџџџџ8џџџ џџ џџџџј€ˆ€р0€83€Р3€ џџџџ(> % 3 *3 %ј€€ џџџџˆ˜ А€ џџџџ ,ИEШш"_№"_T€@,i˜€ џџџџTp6D=И=€ џџџџ€ џџџџ ,  8€ џџџџ '0@P9X90?>H?>`?>x?>?HB0>fAш"P(xЈ? А?  ЈА€ џџџџ Ш€ џџџџ 'арш№ € џџџџ€ џџџџ B€ џџџџ0(,5@p x ˆ%˜ И€ џџџџPkР"e 8  X  h € џџџџ=p 9 9А € џџџџа %и "№ "!" !8!"X!"p!ˆ!$Ј!(Р!р!24ј!240"h" p"€ џџџџ2x" ""€ џџџџ,v ""5а""Eј" # (#€ џџџџ-8#2H# $h#x#.Ѓ€#€ џџџџ2А#Ш#ш#№# ј#$€$€ џџџџ€h€ џџџџ(‹$€ џџџџ '`$Kp$-ˆ$€ џџџџ % $€ џџџџ2А$5и$FЗ`1 ш$ %p€ џџџџ€ % ((%8%€ џџџџ"а$<%ј$џџџџР?ХџџxиJean Yves MESSEZърZъ`ž 0(ЕCž А“в(›ˆ ш[ъ0[ъH[ъ`[ъx[ъ[ъЈ[ъР[ъиmџџ РСШZъ0ZъHZъ`ъxъZъЈъРZъиZъ№Zъъ Zъ8ZъPZъhъ€ f ф(цџџZъШZърZъјZъZъ(Zъ@ZъxZъpZъˆZъ ZъZъИи Dim MomOrdi As StringZъаZъ`ZъHZъxZъZъЈЎ File_Listing'\Ў*.*'`Є'PЄ'NЏ'LЎ)Would you like to cancel that operation ?'Xs...'и6/===============Sщlection type fichiers===============иEnd SubhЄ'ВZъˆ ›žи BreakFlag = Falseit Sqи BreakFlag = Truet SubиOn Error GoTo UserInterruptuptutZъш ВЎ•chie“žи' GoTo UserInterrupt X К$Є'А DoЎstop'Xs sohЎstop'X˜“ž (Є•ЎAll MSOffice files'daџџ ('dhџџЎ Search in the repertory : & Ў!А(В de l'Ў-These elements will be placed on the lines : vЄ A@ЄX X$ '& &Ў”Fug &Є$ЂЎ\”F &Ў\'&g &Є$о'r &ЎC:\ &ЎD:\•ž #Ў!Vous avez sщlectionnщ le lecteur rЄ $ІЎ+- Dans ce cas tous les fichiers du lecteur  rЎ seront sщlectionnщs?Є $ІЎG (Des milliers de fichiers seront listщs, temps d'щxщcution important)Є $ІЎ@- Si non, annulez et sщlectionnez le rщpertoire dans le lecteur  r Ј Њ ЎSщlection rщpertoire$Є't t Ќ”Fdghџџ(ž Ў!Search in under repertories of : &Ў ? Њ Д ЎSearch in under repertories?$Є'j lЎ•ion a0 l О(cherh j Ж”FЏ'Lg j И”FЏ'Lg j Ќ”FugžЎ:Voulez vous imputer ces щlщments sur une nouvelle feuille? К М ЎRecopy computation sheet$Є't t И•AЏ ф(  NfeuihЎ* €ЦШШ Ш Ъ Т%Ф!Ь'vЎFiles nА pЎ -  тЎ dd mmm yyyy $Ў О( v'xС` ОB@ЮСH О!аЏ•Ў(The contents of worksheet are protected.A@Єuџџјhџџ№СшaџџИ „!'†и2 GoTo A_la_Fin: 'Page de garde sщlectionnщeСи5===============Incorporation d'une feuille de travail====hhZъX Zъ˜ шЈ• Worh8 lЎ•ЎFiles nА pЎ -  тЎ dd mmm yyyy $Ў О(aџџИ l О(hџџ и4 Application.StatusBar = CurrentDirectory & DirValue›вШ vЄ”F P'vg vЄ 'P lЎ•resa l О((ьЎNoms des fichiersЎB1 ш!О%ъ(ьЎ ExtensionЎC1 ш!О%ъ(ьЎTailleЎD1 ш!О%ъ(ьЎ Date/HeureЎE1 ш!О%ъ(ьЏЎA1:E1$ъ!ю(№Сˆ f ф(цљ ф!ђэC@є &9і (9ј L9њC@ќї NіЄ5ў!‹Ў'^Ў'Zї Tі N7ўЄЄŽ N7ў TЄ$ќЎ\•rџџhџџˆ N7ў TЄ$ќ ^'^ї TіР N7ў N7ў ^ $о'ZЎ'bї Tі ^ЄЄŽ ^ TЄ$ќЎ.• ^ T Є• ^ ^ T $Ђ'b ^ TЄ $о'^rџџˆhџџ€hџџxї TіР Z PЄ+Т ^ PЄ+Т b PЄ+Т N7ў$Є ЄЄ$ PЄ+Т N7ў$ PЄ+Т Z ^ Ў!(В Z ^ ф(ц PЄ 'Pї NіРnџџp и"Application.ScreenUpdating = FalseиOn Error Resume Next======ииWith ActiveWindowиEnd Withии dblLastRow = dblLastRow~и: ZoneMO = ActiveSheet.Range("D1", Cells(dblLastRow, 4))иJ SommeMO = Round(Application.WorksheetFunction.Sum(ZoneMO) / 10 ^ 3, 2)ииdUserForm2.LB_Space.Caption = " L'espace disque utilisщ par les fichiers est de : " & SommeMO & " MB":XиииMomOrdi = Application.UserName: ииWith ActiveSheet.PageSetupи .PrintTitleRows = "$1:$1"s esи .PrintTitleColumns = ""Ви1 .LeftMargin = Application.InchesToPoints(0.7)и3 .BottomMargin = Application.InchesToPoints(0.6) ф%и=' .CenterHeader = "&""Arial,Gras""&12Listing des fichiers"ф%иt .RightHeader = "&""Arial,Italique""&08Listing de fichiers dans le" & Chr(13) & "poste informatique : " & MomOrdil,Grasи8 .LeftFooter = "&""Arial,Italique""&10" & StrFilePathg и7 .RightFooter = "&""Arial,Italique""&08Print the &D"Šи .Orientation = xlPortrait9и .PrintGridlines = TrueииEnd WithииWith ActiveSheet.PageSetupи .FitToPagesWide = 1.25иEnd Withиии .RowHeight = 16и .Font.Bold = TrueP(и .Font.Size = 11и' .Interior.Color = RGB(127, 255, 230)иEnd Withии6 With ActiveSheet.Range("E2", Cells(dblLastRow, 5))?_);и+ .NumberFormat = "dd mmm yy-hh:mm AM/PM"€Єи .Font.Size = 8и End Withm AM/Pии0 ColA = ActiveSheet.Columns("A:A").ColumnWidthииWith ActiveSheetи$ .Columns("C:C").ColumnWidth = 10jи$ .Columns("E:E").ColumnWidth = 15 и( .Columns("B:B").ColumnWidth = 45и( .Columns("A:A").ColumnWidth = 27и* .Columns("B:B").ColumnWidth = ColBи ElseIf ColA + ColB < 72 ThenиE .Columns("A:A").ColumnWidth = ColA + (72 - (ColB + ColA)) / 2 и End IfиEnd Withии" ActiveSheet.Range("A2").Selectии0 If Left(CetCell.Formula, 7) = "http://" ThenиF ActiveSheet.Hyperlinks.Add Anchor:=CetCell, Address:=CetCell.Valueи End Ifи Next CetCellии Selection.AutoFilterиEnd IfО%иGFileList = Range(ActiveCell, ActiveCell.End(xlDown).Offset(0, 2)).Value==ии#For Each btn In ActiveSheet.Buttons%€и GoTo Suiteи End IfиNext Tri иCall Bouton_sщlectionиSuite:ииии'ActiveWindow.ScrollRow = RowNu и#'Application.Cells(RowNu, 1).Select.Scrolи" ActiveWindow.ScrollRow = RowNuи# ActiveWindow.SmallScroll Up:=25ф%Тиии*For Nfeuil = Worksheets.Count To 1 Step -1и, Worksheets(Nfeuil).ActivateЄи Next NfeuilB@”и!Application.ScreenUpdating = TrueииExit_ListFiles:и! Application.StatusBar = FalseZъшЏ ф( џџlџџh0lџџXиE'/===============Mise en page de feuille de travail==================ZъZъС№љ эЄA9ЄРЄ€ЄР$B9nџџР ш!'~  О!Т%!Ь'€ €'€ЎB2 €Є$Т О%ъ'„ЎD1 €Є$Т О%ъ'† „ ф!%Ў fichiers dans le rщpertoire :  & (Є"$І'‚ † ф!%Є ЄЄ$'ˆЎ3 L'espace disque utilisщ par les fichiers est de : ˆЎ MB Ў!(В ф! 'Šљ О!"эЎ$1:$19$Ў9&Є ф% 9(9(Ќffffffц? ф%*9,Ќш? ф%*9.Ќ333333у? ф%*90Ќ{ЎGсzд? ф%*92Ќ{ЎGсzд? ф%*94Ў+&"Arial,Italique"&08Listing of files in theЄ $ІЎstation data-processing :  Š98Ў&"Arial,Italique"&10 ~9:Ў &"Arial,Italique"&08Print the &D9< @9>Џ9BЎ Page &P of &N9DnџџАљ О!"эЄP9Џ9FЌє?9HnџџxЄЬЄџЄџ$BЄ ш,JљЎA1:E1 О%ъэ PЩN TЩRЄ3Є3Є3$BЩVC@LЄ9XЏ5ю(№Є 5ю(ZЄЄџЄц$B5\(VnџџРЎ)_(* #,##0_);_(* (#,##0);_(* "-"??_);_(@_)ЎD2 €Є$Т О%ъ(^љЎE2 €Є$Т О%ъэЎdd mmm yy-hh:mm AM/PM9^Є5ю(ZnџџЎA:E О%`!bB@dЎA:A О%`!f'ŽЎB:B О%`!f'љ Оэ jЎE:E7`(hЄ ЎC:C7`(fЄ ЎD:D7`(fЄЎE:E7`(f Ž  ЄH Є2 •Є-ЎB:B7`(fЄЎA:A7`(f Ž  ЄH Є2 b ЎB:B7`(fЄH  ЎA:A7`(f Ž  ЄH b ЄH  Ž  Є ЎB:B7`(f ŽЄH  Ž  Є ЎA:A7`(fhџџnџџЎA2 О%ъB@JЏ (lї ŒіЎB2 €Є$Т О%ъ!ТŒ Œ!nЄ$оЎhttp://• ŒЩr Œ!ьЩt О!pB@жhџџXї ŒіР О!vЏ•ЎA1:E1 О%ъB@J xB@zhџџ |ЄЄ ~ |%%€$ъ!ь'Jї ”і О!‚Œ ”!ВЎ Tri fichiers•“„PhџџHїП@A†›„0Ў* €ЦШШ Ш Ъ Т%Ф!Ь'Lи"Application.Cells(RowNu, 1).Select L (Š LЄ ф%ТB@JЄЩŽ B@ŒЏ ф(ї ’і ’!ЄЄŽdatingH ’$’B@”ї ’іРF ’l(иElse!РA@ О!РA@Є•›˜pЏ ф(цuџџXи .Zoom = 65и$ .GridlineColor = RGB(192, 128, 192)и%StrFilePath = ActiveWorkbook.FullNameи? dblLastRow = ActiveSheet.Cells.SpecialCells(xlLastCell).Rowи6 AB = ActiveSheet.Range("B2", Cells(dblLastRow, 2))и AA = Application.WorksheetFunction.CountA(AB) & " fichiers dans le rщpertoire : " & Directory & strFileNameFilter & Chr(34)и‰UserForm2.LB_FileNumber.Caption = " Le nombre de fichiers placщs dans cette feuille est de : " & Application.WorksheetFunction.CountA(AB)и2 .RightMargin = Application.InchesToPoints(0.7)и1 .TopMargin = Application.InchesToPoints(0.75)и4 .HeaderMargin = Application.InchesToPoints(0.32)и4 .FooterMargin = Application.InchesToPoints(0.32)иX .LeftHeader = "&""Arial,Italique""&08Total taille en MO : " & SommeMO & Chr(13) & AAи# .CenterFooter = "Page &P of &N"и .Zoom = 80и .FitToPagesTall = Falseии.ActiveWorkbook.Colors(20) = RGB(204, 255, 255)иWith ActiveSheet.Range("A1:E1")иR .BorderAround LineStyle:=xlContinuous, Weight:=xlMedium, Color:=RGB(51, 51, 51)иn ActiveSheet.Range("D2", Cells(dblLastRow, 4)).NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"и2 ActiveSheet.Columns("A:E").EntireColumn.AutoFitи0 ColB = ActiveSheet.Columns("B:B").ColumnWidthи0 .Columns("E:E").HorizontalAlignment = xlLeftи$ .Columns("D:D").ColumnWidth = 10и* If ColA + ColB > 72 And ColB > 50 Thenи. ElseIf ColA + ColB > 72 And ColB < 50 Thenи/ .Columns("A:A").ColumnWidth = 72 - ColBиE .Columns("B:B").ColumnWidth = ColB + (72 - (ColB + ColA)) / 2и# ActiveWindow.FreezePanes = TrueиGFor Each CetCell In ActiveSheet.Range("B2", Cells(dblLastRow, 2)).Cellsи*If ActiveSheet.AutoFilterMode = False Thenи% ActiveSheet.Range("A1:E1").Selectи;'==========================================================и( If btn.Caption = "Tri fichiers" Thenи%A_la_Fin: 'Page de garde sщlectionnщeи;RowNu = Cells.Find("*", [a1], , , xlByRows, xlPrevious).Rowи& Application.Cells(RowNu, 1).Selectи% Application.DisplayAlerts = Falseи)'Enlшvement de toutes les feuiles viergesи Exit SubIf Appи Dim StrFilePath As Stringgs)и Dim dblLastRow As DoubleThen WZъ0žЪџиs If Application.WorksheetFunction.CountA(Cells) = 0' And Worksheets.Count <> 0 Then Worksheets(Nfeuil).Deleteи Dim AA As Variantи Dim AB As Variantи Dim ZoneMO As Variantи Dim SommeMO As Doubleи Dim ColA As Doubleи Dim ColB As Doubleи Dim Nfeuil As Integerи Dim btn As Buttonи Dim CetCell As Variantи Dim FileList As Variantџџџџ@ AH€lџџ 6џџџџp6Zъ№иDim RowNu As DoubleиR If Not ActiveSheet.CodeName = "Intro" Or Not ActiveSheet.CodeName = "PG" Thenž  Т ф!%Є ’!Є”F ’$’B@–g О!РЎIntro•и+%Or Not ActiveSheet.CodeName = "PageG"et.Codџџџџ 7џџџџ h(їП0 † ˆ•a( † ш%иЩк ш!иB@жh О!Р'n n$м'pЎSheet not foundA@Єing Th „!РЎPageG•ct дB@жk.Workї „і ш!’Œ.CodeNAШџџџџ6ZъЈ Ў%Mise en page de la feuille de travail'hZъџџџџъџџџџЏ ф(ˆцZъˆ Ў;Imputation des щlщments dans la nouvelle page.... Attendez!'fџџџџр6 h ф(цЏ ф(ˆЏ ф(ˆZъ№џџџџ@8 ОЩкЎIntro %иB@Ъџџ8 ОЩкЎPG %иB@Ъи(Enlшvement de toutes les feuiles viergesї Pі ’!ЄЄŽ P$’B@”ž  Т ф!%Є ’!Є”F P$’B@–gї PіРџџџџј7џџџџAШhџџа9џџџџи9 ОЈ••AШhџџ:џџџџи9\џџ8:žЎ Look for: d žЎ9 - Select location of files to be listed or press Cancel.'XImžЎ6Would you like to input these elements in a new sheet? К М ЎRecopy computation sheet$Є'tancel,Ў0 The number of files placed in this sheet is : „ ф!% Ў!(В (Є•Ў'Вhuaaџџˆ8hџџx8Бџџp8“ž А Ж”Fug”Fqž ŸџTџњўиa strFileNameFilter = InputBox("- Tapez : *.* - Imputation de tous types de fichiers " & vbCr &' "- Tapez : *.xls - Imputation de tous les fichiers Excel" & vbCr &' "- Tapez : M*.mp3 - Imputation de tous les fichiers MP3 commenчant par M" & vbCr,' "Imputation des types de fichiers que vous souhaitez :", Default:=strDefaultMatch)иExit SubceЏ ф(ˆ”Fu ЎA@t*.* - иEnd If Sub ˜Є”Fqgи, Sub(6ЎInsertion page titles'ŽulџџџџH6џџџџА>џџџџиЎ RepertoryЎA1 ш!О%ъ(ьЎ Files nameЎB1 ш!О%ъ(ьЎ ExtensionЎC1 ш!О%ъ(ьЎSizeЎD1 ш!О%ъ(ьЎ Date/TimeЎE1 ш!О%ъ(ьЏЎA1:E1$ъ!ю(№Ў6Attribution of the elements in the worksheet.... Wait! ф(цЎNaЎFiles nА pЎ -  тЎ dd mmm yyyy $Ў О(žЎ4Imputez le nom de la feuille que vous voulez ajouterЩоЎNom de la feuille de calculЩр$˜'l ž  Ў1- Type : *.* - Attribution of all types of files šЎ3- Type : *.xls - Attribution of all the Excel files šЎ>- Type : M*.mp3 - Imputation of all MP3 files beginning with M šЎ2Imputation of the types of files, which you wish : `Щœ$˜'(ž #ЎYou selected the drive rЄ $ІЎ&- In this case all files of the drive  rЎ will be selected?Є $ІЎ@ (Thousands of files will be listed, important time of process)Є $ІЎ7- If not, cancel and select the repertory in the drive  r Ј Њ ЎRepertory selection$Є'tžЎ2Input the name of the sheet, which you want to addЩоЎName of the computation sheetЩр$˜'lrtoireЎ# Space disc used by the files is : ˆЎ MB Ў!(Вs?")џџџџИ6Ў Formatting of the working sheet!'hЎ'&"Arial,Italique"&08Total size in MO : ˆЄ $І ‚96џџџџи>Ў<Implementation of the elements in the page... Wait please!!'fџџџџр>Ў<Implementation of the elements in the page... Wait please!!'fЏ ф(ˆџџџџp>Є ф% 9,Ќ@ ф% 9.Ќ@ ф% 90ЌЭЬЬЬЬЬє? ф% 92ЌЭЬЬЬЬЬє? ф% 94 @9>Џ9џџџџ >RR џџџџџџџџџџџџџџџџџџџџгЗAttribute VB_Name = "ListingFiles" Option Explicit 'Jean Yve€s MESSE&Dim Directory As„ SДng 0CallPage.VarianŽA0AnnulLo+-eclar@e FuncwSHGetPath@FromIDœ Lib "shell32.dll" _ A@lias "1A" (ByValа pido,6 \sz2Eƒ\)KBrowseForРFolderJŒ Ilp Info6BROWSEINFO)„hs ŒPub€П Typ e ‡{hOwn€?Йƒ rRoot‡`€ szDis0play‚ѓа lpszTitlТgХm ulFlagsIlpfnAЪParamIiŒImzC#End-#СˆФ0Sub@KstB˜()€˜€—rro@r ResuЁNєexУ™ ‰A B~Ч€-Цbln@Caa+BoolЈСF РЄm i(Int€eger, rJxHG YЪiWoфrkР›etТDG hMsgС SDМ&s_a]@А ЏaI Ѓ*9 *.*„r@Ж1# iGkb= Fxalsр! Ћ@ Implementaт­of the† `#as inт‚p ... Ё‚ ase!!`lApсТb.Œ 'tusBaATruр‰Љэу I6РПveЂB Is Noth " ThenЂAЪ Crщ"FichieўrУ? ф*П!П!Љ!ЩЁIfу с‚ ,Would you like to cancel@ at operЩ‚ ?Р)Doƒ #!AhрA|= Inˆput€r("-уРФ: р@ - ХјСx“р7€э tрФs €fСј " & v8bCrРBхС qщxlsŸ’а E>xс ЂŸБ—M*А.mp3 p%u7%!‘MP3 уbeginnёwitјh MEyд Q)a[ , wh€’wBi9:", ”2:~=Y3`f?Ёа%LЈen(.)№30&sRŠ=  ‘`,С€YesNo"w@ё*’Œ=УB “i t SubE89ExАХU#LoœopA Б-т’= Є=я# Г! %d@ 2\`(All MSOрffices№&ѓџЛ „Їž  }Ч.‘ р0"p k foœr:r'ьƒ(LfЌ(У#Y locѓ0ж+ 3beР3sted’ `‚pr U CB4Ю.D # Ј= pЃцž( є@Y""Я @Right(І, 1)

"\IЗ&ГSсk= LeŽfМBN9"C: lOrXД@DAFO г•o)"Y`Es”lВJ`drive‚Ё&ƒЄ Chr(1,3)W ;IБ]isёрHse :г9pС6с" wi $ѕ?q;єDџ (T€housand˜H5lPЦed, i mportС t†i ŸАproc№)ЯЫ f not6,ЕTP s Rre`UЂШlк vFvbO2Ks$ + ;Иrm‘в', "№er2ћƒрU"@$А!g@UГ\%1 €< е< UseаСrm2.ˆLB_Ж.Ca#еСр SearР™D пW Ѓ36%Л—=є7ЩP;("WunБЩuоiлЬ`"РgЪWќvbИВ2OГАћѓ?AбC р ќvbРc7Šѓ‚бщNoos Gє>rбLЁWfYЭ†.CœodѓИС>рЅro?ЭР'р9ˆ AЧ‰їЛрA[GIЏ:€i}ё*№7—a newњ Ч?0m$6b‘*Criticalb*copy coўmр“S’e€љ*$ТЗ RowNu = Cells.Find("*", [a1], !xlBy”s, xlPrevi ous).D ‚MsgBox "These elements will be placed on the lines : " & E}+ 1СKVщrif On Error Resum@e NextActiveSheet.UnprotecdO+‡ БЉ R`ight(*Ÿ ўYќ 1,”32  ў1џ&#йЯ#гЮ 2Їн Д(r$,€ wБ!л&2Q.И osН‘3dfr4q:R1>(a§8/ 10 ^ 3, ю3?251бaX‡QXќ-TUserp@Рm2.LB_сcа.Capw=a R2џЯ5šU9{ФТ?$[ йБvr zФ;ic!ЁЁ\  IPНјrru •б@UЁPub@„AЙ LiФstё sToсzВ–ў(DBЅЈа2Бa­Т;—­d :DiseАбyЉFaІЉ%UРnload –јo B-т ѕ ‡”‚ MрiseEn1 “љl§ сШ* 3Џє wuDimЭ0`ra" AsсКƒсdblLasЪt€’ аDoTl бaaQVari3­GABo Zo0neMOЏQommД=MomOr4diaSвУwCo|lAq-p}N`feuil&g'‘ЦA‘ bt бs `Butto$фaCќetAA!^aA&Яћ ’ЅmФбu3?…… “ŽеЗe_Wait2 As String Dim strMessag%ј3 | t2 = "Formatt‚ of t€he worksheet!" Application.DisplayStat usBarBTrТ}F un@Y|CountA(AB) & " fichiers dans le rщpertoire :Р& D€cto|ryР WPРterРChr(3B4/SommC/RРd(‰šЯ"Sum(ƒ;) / 100 ^ 3ABСqUserСВ2.LB_umber.C apЎР9" TАhe nТЛfР}s €Гced iЂnПis B? 'C3$G SpaceЪB di sc usРbyХРeРSles‡ХCZMBРо6Mom№OrdiŒjс cSLlВ3aInр!p€№ titр т _ф\ЃWPSetupЩуP.PР‰tTW‚s $1:$1€чСMШ@lum @ ˆ…LeftMarg )€iKCentime@@sToPo@ints(1„@.0RighпЮToFp d 2.5Ѕ B`ottom?/H`eader?$1Ф.3eFoo@?/!*у!1&""Ar€Œ,Italique""&08To  sizeŸСX€cW‡Ian13!xaaЄ ž7аЛ€Ј@б50б‰Оnг р8 ЎP4T™›A:l273ЮE€Е?8< ?Р пя• ‘ џ ЯhPРю-‚Я<š/Џп ВКса(Ђ(дщ`A)бЁ2Ÿ Ÿ ‘ 3oolj2IfŸљZ# /;A2Р"рSelecPЫ‘3Љ#Ы.F0ЯzЧnŸ$= ƒK C E€ach CetсОј InjšЄяРQ`LМ))cШ3 €‘v(Д@?rmula, 7Ё]"http:˜//"('Y Hy0Н!@дks.AАDAn@chor:=Ф, @r0~.Vaўl1р‘•лЅ AЌ ы)ƒClA‘oтiВkџїђеU3f.‰Г‘щџcсqР1Œ(3#с/P ТoБ0MdлDown).Offspet(03˜ (b$tnэBuPЅnsЧц љПTriАОГгiGoTo SuŒit4цщ Cq}„Bo@Vn_sщс$  №ЧБte: A_la_Finx RowNumber =€ Cells.dd("*", [ a1], xlByRs, xlPrevious$)." Ј ActiveWindow.Scro|ll:І ОNpplication.n( , 1).Select!SmallX Uрp:=25$*VDisplayA lertsFalse&~For€ Nfeuil Worksheets.Count To 1 St№ep 1„€˜’(!).‚{at„/0If AˆD†FuNn€y2A(‚|)@0 _ƒ3And /„F<> 0 АThen †–eenUpd€ЖDng6TruФ) Exit_Li€stFilesC†Ъ.StatusBaС…HPС Sub@@, Pubu aa() € MsgBox…SX@4deNam E__SRP_4џџџџџџџџџџџџtю)__SRP_5џџџџAKAffichageџџџџй$__SRP_cџџџџџџџџџџџџGкќјаў,Ьўѕ фў"$ Hфў Ш6>Ьў1xџфўEўСдў %фў"$ @фўWМў_§ŸўšЌў`§ŸWœўaBtpџфў6МўЌўœўmpџrpџ_:xўb%opџ§kдў%(Œў%фў"$ XфўўЂМў%ˆў"$ @ˆўўšЌўEќіPџ)фўˆў5Мў_:xўL%opџ§kдў%(Œў%фў"$ XфўўЂМў%ˆў"$ @ˆўўšЌўEќі@џ)фўˆў5Мў€Pџ§“ @ˆўфў"$ фў дˆўўЂМўЉ@Bќ#Ьўc*#tў”*#pўl№ў*Fœўѕ"Ќў Ќўћя`ўќі`џ2Ьўtўpў)фўˆў6МўœўЌўi@џ§“ @ˆўфў"$ фў дˆўўЂМў@ќ‹є+^ўМўBє ыєыћЯЖ§kЌўœў V œўBt8џ)фўˆў6МўЌўœўpPџ§“ @ˆўфў"$ фў дˆўўЂМўЉ@ќ‹dМўBќ#Ьў*#tўXў""$$ %Xў @&2Ьўtў)фўˆўXў5Мў=eo8џќ#Ьў*#tўf*#pўфў""$$ ”%фў @&2Ьўtўpўфў,Ьўѕ фў"$ фў T>Ьў14џфўgCшў'фў"$ @фўWМўhќ4ќјTўфў5Мў:дўi%Tўў›j:дў%Tўў›k9Lўѕ єы9фў"$ фў DoLў§kдў%Tўў›lфў9Lўѕ єы9фў"$ фў DoLў§kдў%Tўў›mфў>Lўѕ і@фў"$ фў DoLў§kдў%Tўў›nфў>L‚ƒ„…ўџџџ‡‰еŠ‹ŒŽ™‘’“”•–—˜†ўџџџ›ЛЕŸ ЁЏЃЄЅІЇЈЉЊЋЌ­ЎžАБВГДўџџџЖЗИЙКНЭўџџџОПРСТЬФХЦЧШЩЪЫМЮдЯабвгzзийщлмнопрстуфхцчшжъыьэюя№ёђѓєѕіїјљњћќ§ўџўџџџўѕ і@фў"$ фў DoLў§kдў%Tўў›oфў>Lўѕ іЭЬЬЬЬЬє?фў"$ фў DoLў§kдў%Tўў›pфў>Lўѕ іЭЬЬЬЬЬє?фў"$ фў DoLў§kдў%Tўў›qфўBro8џќ#Ьў*FЌўѕ Мў Мўћяœў`џћя`ў%Tўў›s/Ьў6ЌўМўœў`ўA:дўtѕ Мў МўћяЌў:Œўuћяœўl4џFxўћя`ў%Tўў›v6МўЌўœў`ўwlxџ*FМў%Tўў›x5Мў:дўy%Tўў›zўСдў%Tўў›{ cдў%Tўў›|ўСдў%Tўў›{ cдў%Tўў›}:дў~%Tўў› ѕќјTў'фў"$ @фўWМўhќ4ќјHўфў5Мў(дўP%Hўў›€ќfдў%Hўў›ўФдrU€€€€~} Ќ‰!б!ё!й1 Љљ" $i$I%!&9& (Q)y)Й)й)Љ)б*1+I+Љ+Щ+љ'y' ,Й,-1.H!/ Ё Ё/ 0‘0)1I1y1Ё12 3!3AA3Щ/Б# 4С4Бщ4 Yб5™5y6й697q7‘7 8љ8Й19‘Q9‘9љЩ9ё9:I:i:A‘:Й:с:A;Y; <!!a!9!б1>Щ> )?yi? @™@qAB1B™BЩBёB9C‰CСC‰?Й? DID‰D9EqE1FБFщFQG HЁHйHЩ–IYIЁIсIJIJ‘JбJK)KIKyK™KЙKйK LСL‘сLMiM‰‰MБЩMщM!NANйaNNYyЁNЩNљN1OIOqO™O‰GСGсO Pљ)QPџџџџџџџџЈKџџCdџCXџєpvџєpxџєpzџC№ў%єџѕ ьў"$ ьў ьў*l№ўFмў%ѕ ьў"$ ьў ьў ьў"$ @lьўќcћвьўз %єџѕ ьў"$ ьў ьўC№ўClџi'\ў'lў'|ў'ŒўXџMœў@:мў NЌўЌў  *#иў *#дў *#аў*#Ьў *FМў 1\џ2иўдўаўЬў6 МўЌўŒў|ўlў\ўl\џJѕЧœ+'Œў'Ќў'МўѕlџMмў@^™6МўЌўŒў”ѕЧ™ЃЊу (мў§цl\џJѕЧбCPџлl\џCPџ!lPџ*#иў*#дў*1lџ2иўдўlџMмў@ §ч”ћ0%,ѕMмў@Мў  Мў:œў]ћ<Ќў5Мў\b”*§ч#ѕMмў@Мў  Мў`1$џ5Мў”ћ0”ћ0ХzШѕ Мў ѕ <ў ѕ ќ§ 'l§'|§:œ§NŒ§Œ§ѕѕ@Њl$џ*FЌўМўћяŒў:мўћя|ўl$џFœўћяlў:Lўћя\ў<ўћя,ў:ў ћя ўќ§ћяь§:м§!ћяЬ§l$џFМ§ћяЌ§^фp"џ6 ЌўМўŒў|ўlў\ў<ў,ў ўќ§ь§Ь§Ќ§Œ§|§l§k"џчѕЧzќШ-#”*#иўьў""$$ ˜%ьў @&/иўьўL'|ў'Œў:мў'NЌўЌўѕ@ѕЊ(”*#иў)*FМў^§iœўќі@џ/иў6МўЌўŒў|ў@џўСмў]ћ/Мў\єџpzџ@џўСмў]ћ/Мў\-єpzџ@џўСмў]ћ/Мў\E.ьў"$ @ьўWМў*:мў+]ћ<Ќўьў5Мў\з='|ў'Œў:œў,NЌўЌўѕѕЊ:мў-NМўМў^фp"џ6МўЌўŒў|ўk"џчѕЧ‹:œў.%Мўѕ :мў/%"$ ˆМў%'Ќў%'Œў%ўСLў%ўСў%ьў"$ XьўўЂ|ўŽ§ѓ0h§h§alўќ"ьtџ)ьўh§6 МўЌўŒў|ўlў6'|ў'Œў'Ќўѕ1oџєыЋќ#иў*FМў /иў6МўЌўŒў|ўmџrџKџџьў"$ @ьўў˜2ьўKўџ,ьў"$ @ьўWМў3cмў]ћ/Ќўьў5Мў\ +'|ў'Œў'Ќўѕ:мў4NМўМў 6МўЌўŒў|ўKџџйеKџџ ьў"$ Hlьўќcћвьўr1h§ѕ 'Мў%ьў"$ аьў (5)ьўh§5Мў0h§ьў"$ Hьў 6Qh§[d§јўьўўr`§шјў§ŸWМў*:мў7]ћ/Ќў5Мў\лјў§ŸWМў8`1єў5Мў§Ы`§ш јўўs`§Єlєўѕћ0 ‹ˆP§ѕ '|ў%'Œў%\§lєўFмў%h§ьў"$ Hьў Р6h§ d9Q\§§oМў%'Ќў%T§X§"$ HX§ Р6T§ (9) ьўh§X§T§P§6МўЌўŒў|ў"ьў"$ @ьўWМў*ќі,џьў,џ :хp*џ@'<ў'\ў'lў'|ў'Œў:œў;NЌўЌў:мў<NМўМў 1<џ6МўЌўŒў|ўlў\ў<ў l<џћ0„wМў =?k*џћ§#иў*#дў@*F|ўѕѕ:мўANЌўЌўМўŒў >Œўћяlў%ьў"$ @ьўў›82иўдўьў6 МўЌў|ўŒўlўЊ$l<џFмў%ьў"$ @ьўў›8ьў):мўB%ѕ ьў"$ ьў ьў oџєыШю kvџыtџ oџєыЋхpvџE:œўC%:мўD%h§ьў"$ Hьў 86h§ўšМўE§Ÿў›F)ьўh§5МўE:œўG%:мўH%h§ьў"$ Hьў 86h§ўšМўE§Ÿў›F)ьўh§5МўE:œўI%:мўJ%h§ьў"$ Hьў 86h§ўšМўE§Ÿў›F)ьўh§5МўE:œўK%:мўL%h§ьў"$ Hьў 86h§ўšМўE§Ÿў›F)ьўh§5МўE:œўM%:мўN%h§ьў"$ Hьў 86h§ўšМўE§Ÿў›F)ьўh§5МўHcœў%ьў'Мў%:мўO%"$  ьўaЌў’§ѓPh§h§,`)ьўh§6МўЌўKџџ*l№ўFмў%ѕ ьў"$ ьў ьў'h§ьў"$ ьў TQh§L§ьў L§ hQ”L§ `Q l\џL§ @Q kzџL§ (QH§єџѕѕL§ dQ*єxџH§ьўL§ lQьў (RlH§фьўўcD§™C`џChџ:иўѕ kxџчьўL§ lQьў $RlиўJфrџєєЗ/иўьўўk@§n Tиўѕ kxџчьўL§ lQьў $R(Ќўkrџч>иўFМўŒў SŒў:œў]ћ/|ўьў6МўЌўŒў\ n Wиўѕ kxџчьўL§ lQьў $R(Ќўkrџч>иўFМўŒў SŒўl`џFœўћя|ў`1`џьў6МўЌўŒў|ў rџe@§В oиўѕ kxџчьўL§ lQьў $Rдўѕ kxџчh§L§ lQh§ $RlдўJl`џJЎ>иўFМўЌў  Ќў`1hџ/дў)ьўh§6МўЌўCTџl`џJфrџєєЗўk<§› 2(Мўkrџч`џMмў@Ќў SЌў:LўT]ћ/Œў6МўЌў\ l`џJkrџчЎѕЬ %l`џJkrџчЎ`џMмў@Мў  Мў`1Tџ5Мў#krџє­ч`џMмў@Мў  Мў`1`џ5Мў›  rџe<§њ 5kvџDмў%(œў%lhџFLў%ьў"$ XьўўЄьў5kvџDмў%(œў%l`џFLў%ьў"$ XьўўЄьў5kvџDмў%(œў%lTџFLў%ьў"$ XьўўЄьўˆиўѕ kxџчьўL§ lQьў $Rlиў^UqH§kvџDœў%(Lў%є+:§lH§ьє ыєыћЯЖ§kМўЌў V Ќў%h§"$ Xh§ўЄ/иў)ьўh§6МўЌўfkvџDмў%(œў%иўѕ kxџчьўL§ lQьў $RlиўМў WМў%h§"$ Xh§ўЄ/иў)ьўh§5Мў+lhџl`џ*#иўьў""$$ %ьў @&/иўьў1lhџl`џ*FМў%ѕ ьў"$ ьў ьў5Мў kvџєЉpvџ xџdD§h ѕќјL§џDЈtЄ\d§`§L§џTџ$џlџ<џєў,џPџXџ№ў@џ џdџ`џјўhџ\џtиўдўаўЬўьўh§\§X§T§P§МўЌўŒў|ўlў\ў<ў,ў ўќ§ь§Ь§Ќ§Œ§|§l§рЈ X:lџ]ћ/\џ\h%єѕ Xџ"$ Xџ Xџ ""V$§œXџ"Y$Z [Xџ– \%єѕ Xџ"$ Xџ Xџ :lџ§№$Ј$– Xџ\џ T]Cьў%єџѕ фў"$ фў фў*lьўFдў%ѕ фў"$ фў фў%єѕ фў"$ фў афўKџџфў"$ DQфўаў(дўA%аў,—ѓРѓ€ѓР^^ §iдў%аў,‹ ѕўє?%Hўў›‚ ѕќјHўBѓџѓџѓЬ^^ qDўlDў§iŒў%ѕ (дў%фў"$ Hфў €6фў0:дўO%фў"$ @фўўšМўEќ4ќј@ўфў5Мў5ўСдў%ўСŒўжяџџ%є3є3є3^^ §ixў%@ўўІ ƒ„…†(дў%@ўў›‡cдў%@ўWМўˆ§Ÿў›‰5Мў(дў %@ўWМўˆ§Ÿў›Š5Мў%ѓцѓџє^^ §iдў%@ўWМў‹§Ÿў›†5Мў ѕќј@ўk:0ўŒ%:xў%opџ§kдў%(Œў%фў"$ XфўўЂМў%ˆў"$ @ˆўўšЌўE§Ÿў›Ž)фўˆў6МўЌўe:xў%opџ§kдў%(Œў%фў"$ XфўўЂМў%ˆў"$ @ˆўўšЌўEќ4ќј,ў)фўˆў6МўЌў:дў%,ўў›Ž(дў%,ўWМўˆ§Ÿў›Š5Мў ѕќј,ў=:дў‘%фў"$ @фўўšМў’§ŸWЌў“§Ÿў˜”фў6МўЌў9:дў•%фў"$ @фўўšМў’§ŸWЌў–Bt,џфў6МўЌў9:дў—%фў"$ @фўўšМў’§ŸWЌў–Bt$џфў6МўЌўфў"$ @Qфў(ў%ўСŒўняџџ%:䢘%(ўўšМў’§Ÿў›™5Мў"(Œў %:дўš%(ўўšМў’§Ÿў›–5Мў"(Œў %:дў›%(ўўšМў’§Ÿў›–5Мў"(Œў%:䢘%(ўўšМў’§Ÿў›–5Мўo,џo$џЋэєHымo$џє2ымФЖ "(Œў-%:дў—%(ўўšМў’§Ÿў›–5Мў"(Œў%:дў•%(ўўšМў’§Ÿў›–5Мў— o,џo$џЋэєHымo$џє2ывФ $o$џ§kŒў%:дў—%(ўўšМў’§Ÿў›–5Мў(єHыo$џЏ§kŒў%:дў•%(ўўšМў’§Ÿў›–5Мў— o,џo$џЋэєHыв— 4o$џєHыo$џo,џЋЏєыЖЋ§kŒў%:дў—%(ўўšМў’§Ÿў›–5Мў4o,џєHыo$џo,џЋЏєыЖЋ§kŒў%:дў•%(ўўšМў’§Ÿў›–5Мў ѕќј(ў2:дўœ%фў"$ @фўўšМўE§Ÿў˜фў5Мў"cдў%фў"$ Dфў,Šфўv:xўb%opџ§kдў%(Œў%фў"$ XфўўЂМў%ˆў"$ @ˆўўšЌўE§ŸWœў_ўїўў џ)фўˆў6МўЌўў‰ўѕ 5 џ§ŸWМўžќ‹ѕМўЌў  Ќў:дўŸ]ћ/œў6МўЌў\ш E џ§“ @ џ§ŸWМўF%фў"$ @фўWЌў §ŸўІЁЂЃфў6МўЌў  џўŒўn -фў"$ @фўWМўЄќfдў]ћ/Ќўфў5Мў\x 2:дўO%фў"$ @фўўšМўE§Ÿў˜фў5Мў$фўѕ "$ Афўў˜ЅфўЃфў"$ ((Œў%(xў%ўСдўчяџџ%ˆў"$ (ˆўўЂМўє§ѓ0XўXўўЂЌўўќ‹ўЌў§ѓ0§o`ў%Qфў§oœў%"$  ўaє§ќіќў)ˆўXўў6МўЌўœў`ў2фў"$ @фўWМўІќ4§œ№§џфў5Мўўˆь§ЇџaМў‹`#ЬўЈћ0/Ьў5Мўrˆ џў‹ь§ЇO Љ‹:Œў.%Мўѕ :дў/%"$ ˆМў%'Ќў%'œў%ўСxў%ўС0ў%фў"$ XфўўЂ`ўŽ§ѓ0ˆўˆўaє§ќ"ьtєў)фўˆў6 МўЌўœў`ўє§'oєўш§iдў%фў"$ Dфў,фўKoєў§kдў%(Œў%ˆўфў"$ фў XˆўўЂМў§Ÿў˜)фўˆў5Мў-(дў%фў"$ DфўўЊ $фў%єѕ фў"$ фў рфў2Dўфў"$ ифў 09lDўф"џєєфўўkш§џ5ˆўk"џDдў%фў"$ ифў d9ˆўў˜Њ)фўˆў‚фў"$ XQфў§oМў%Xўˆў"$ ˆў дXўўЂЌўЉ@BєыШDўў"$ иў 09lDўѕЬФ)ˆўXўў6МўЌўѕ5ˆўk"џDдў%фў"$ ифў d9ˆўў˜Ћ)фўˆў "џeш§ %єџѕ фў"$ фў афў(ќfдў%ѕ фў"$ фў фў”T|$dўаўTўHў@ў,ў(ўў№§ь§ў4џќўьўшў@џџ`џPџxџ џ№ў< ЬўtўpўфўˆўXўўМўЌўœў`ўє§ˆD<'8џ'Hџ'Xџѕxџ"$ @xџWhџ* xџ6hџXџHџ8џDD$ xџhџXџHџ8џ\ЎKeywords7а(ьЎЂThe AutoPlanning program was conceived to facilitate the creation of planning in the form of bar chart (Gantt chart) on Excel - Copyrights Љ 2002 Jean Yves MESSE.ЎComments7а(ьnџџPkџџH€žP "$).057<ACHLЎGPour conserver les liens entre l'Add-in et notamment pour la barre menuЄ $ІЎ=щcrite en VBA et les fichiers de travail, vous ne devez pas :Є $ІЎ) - modifier le nom du fichier de l'addin.Є $ІЎ+ - changer de rщpertoire le fichier add-in.Є $ІЄ $ІЎZDans le cas contraire la barre menu du fichier de travail sera inexploitable par la suite.Є $ІЄ $ІЎLVous pouvez par example installer le fichier Addin dans la librairie d'ExcelЄ $ІЎ-- c:\Program Files\MSOffice\Excel\Librairies Є $ІЄ $ІЎLPour щviter toutes fermetures intempestives de Excel р la suite de problшmesЄ $ІЎ=de mщmoire,‚ƒ„…†‡ўџџџ‰Š‹ŒўџџџŽ‘’“”•–—˜™š›œžŸ ЁЂЃўџџџЅІўџџџЈЉЊЋЌ­ЎЏАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧўџџџЩЪЫўџџџўџџџЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя№ёўџџџѓєѕўџџџўџџџјљњћќўџџџўџ vous devez fermer toutes les autres applications. ЊЎInformations utilesA@ЄlСˆЄ!HQEž Ў5Pour plus d'information sur les programmes DevExcel, Є $ІЎ<consulter le site internet : http://www.efrance.fr/devexcel/Є $ІЎ6Copyright Љ 2001 Jean Yves MESSE. All rights reserved.Є $І ЊЎCrщation de planningA@Єž Ў-For more information on this program you can Є $ІЎ7consult the internet site : http://efrance.fr/devexcel/Є $ІЎ6Copyright Љ 2001 Jean Yves MESSE. All rights reserved.Є $І ЊЎAutoPlanning programA@ЄPakџџ(lџџ С ь ф(ъиAAffichage indicateurs commentsџџџџаџџџџЎBase de donnщe fichiersЎSubject7а(ьЎJean Yves MESSEЎAuthor7а(ьЎ Excel, VBAЎCategory7а(ьЎUTriFile, Excel, Archivage fichiers, Base de donnщes de fichiers, TriFile, Fichier mp3ЎKeywords7а(ьЎфLe programme TriFile a щtщ conчu pour faciliter la gestion et l'archivage de vos fichiers de travail en feuilles de Le programme TriFile a щtщ conчu pour faciliter la gestion et l'archivage de vos fichiers de travail en feuillesЎComments7а(ьџџџџ` џџџџ(и Information`С  Є!HQEž Ў5Pour plus d'information sur les programmes DevExcel, Є $ІЎ<consulter le site internet : http://www.efrance.fr/devexcel/Є $ІЎ6Copyright Љ 2001 Jean Yves MESSE. All rights reserved.Є $І ЊЎCrщation de planningA@Єlџџ8 џџџџX žD "$)+057<@ЎETo preserve the links between this Add-in and the working files you, Є $ІЎ should not:Є $ІЎ/ - to modify the name of the file of the addin.Є $ІЎ1 - to change the name of repertory of the add-in.Є $ІЄ $ІЎDFor example, you can install the Add-in file in the library of ExcelЄ $ІЎ+- c:\Program Files\MSOffice\Excel\Library Є $ІЄ $ІЎBTo avoid all inopportune closings of Excel from problems of memoryЄ $ІЎ*you must close all the other applications. ЊЎUseful informationA@Єџџџџ˜ џџџџиž Ў-For more information on this program you can Є $ІЎ1consult the internet site : http://thermexcel.comЄ $ІЎ;Copyright Љ 2001-2004 Jean Yves MESSE. All rights reserved.Є $І ЊЎListFile programA@Єщ|џџџџШІВAttribute VB_Name = "Affichage" Option Explicit€ Pub, Sub Placements() MsgBox "To preserve the links between"is Add-@in and!working files you, " & _  Chr(13) "shou€ld not:"/ - to moPdifyxnyof‚> „add˜in.Ј)€—ngw…)repertohџџРІ Ђ(@ Ђ$2'RЄ$ Њ'Є RЧ ЄЧ$*'P P• ЄЄ$ І}'І Є ІЄ $о' aEЎ' hџџРfџџИ Zъ€Zъ˜ZъАї ІіЄ Ќ‹ Ќ ІЄ$ќ$В• ЎЄ”F І'Ўg АЄ 'Аhџџ0ї ІіР Ќ Ў А$ќ'мfџџШСЈЄZЄЄPЄ О!‚%жB@JЎTri x(ДЎ Tri fichiers x!Ж(fљ x!юэЎArial9ЎGras9ИЄ9ZЄ9КnџџlџџZъHZъ`ZъxZъZъЈZъРZъиСxх |ЄЄ$Т ЖџџџџџџџџџџџџџџџџџџџџџџxоUџџџџрLBLџџџџ3жжs&џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@Јџџ6(џџъџџџџ˜@ўџ€@ўџџ џџ @ўџА0ўџџ џџ вдимо>@ўџш ўџџ џџ `H[вдимо>@ўџўџџ џџ @ўџ0ўџџ џџ `вдимо>@ўџH№§џџ џџ @ўџАр§џџ џџ рвдимо>џџџџP вдимо>џџџџhвдимо>џџџџ€@ўџШа§џџ џџ @ўџјР§џџ џџ (вдимо>@ўџА§џџ џџ @ўџ@ §џџ џџ pвдимо>@ўџX§џџ џџ @ўџ€§џџ џџ №вдимо>џџџџа@ўџЈp§џџ џџ @ўџР`§џџ џџ @ўџиP§џџ џџ @ўџ@§џџ џџ 8вдимо>@ўџ 0§џџ џџ @ўџX §џџ џџ ˆвдимо>џџџџШ@ўџp§џџ џџ @ўџР§џџ џџ Pвдимо>џџџџвдимо>џџџџ@ўџи№ќџџ џџ @ўџ№рќџџ џџ @ўџаќџџ џџ @ўџ Рќџџ џџ @ўџ8Аќџџ џџ @ўџИ ќџџ џџ швдимо>џџџџвдимо>џџџџXвдимо>џџџџpвдимо>џџџџˆ@ўџџџџџќџџ џџ @ўџџџџџŒќџџ џџ џџџџвдимо>вдимо>џџџџXH ЊќВжкрx@ўџH|ќџџ џџ @ўџџџџџlќџ џџ џџџџH`вдимо>џџџџЈвдимо>џџџџpвдимо>вдимо>вдимо>џџџџhвдимо>вдимо>вдимо>вдимо>вдимо>џџџџ€џџџџ(џџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪu€€ џџџџ€ џџџџ"  "ˆ€ џџџџ А2РИЮЎE65536$ъ%!ЬЄ$Т$ъ ф%Ь.Ъ ЪЈ•uџџphџџhЏЏ |%t'Р Р'Тї ФіЄ Т‹ Р ФЄ$ќ$ВЏ• ФЄ 'Цrџџ№hџџшї ФіР РЄ Ц$ќ'Ш |!t'Оž О$ъЩв жЩд кЩиЄЩмЏЩо рЩ> xB@аlџџАџџџџЈ ОЈ•џџџџhџџ@џџџџ8џџџџhС ОB@Юd-in.С№ О!аЏ•uџџPhџџHС@џџџџ8ЎChoose a sorter. Ђ(>џџџџшЎ-Worksheet contents are protected by password.A@Єž  Ў*Activate cell out of area for sorting out.Є $ІЎ0Place the active cell in a column of your choice ЊA@Єџџџџ@Ў‰The display of the elements by ascending sorting will be done according to the column chosen as a preliminary, in this case the column : ШA@Єџџџџ˜ ш! !•и1Exit SubaџџXhџџЎ(You cannot do that on this origine file.A@Єџџџџ ОЈ•aџџшhџџˆЎAFirst, click on bar menu > Documents > Creation new working file.A@Єџџџџˆ:ЗAttribute VB_Name = "ListFile_Deа" Option Expli cit Sub DisplayDirectoralogBox() If Not ActiveSheet Is$hing 0ThenFWo€rkbook.„d<>is 1 @'Exit { UserForm2.Show Else Ms "Yo@u cann‘d€o that вthis ori@gine f€y.wEnd If"First, cƒkbar menu > Do$cuts€Crea‚˜new w?€lx.€/€3‚d Fun“HGetE†І(ƒЛal b) As S€жnglDim bInfo BROWS EINFOpathr Long, xposIntegerxW.pidlRoot‡0&…€wIsMiss7((ƒt ‡lps zTitl–Choose a sрorterСZA kњ:У2.Щ C3dCУ$ulFlagsQ€$&H1Х$x€S€HBrowse€ƒ€Folder( Єƒ‚E= Spa€ce$(512@-A!rТР_PРMFromIDТ(ByтV@`x, D =@@rФБСAQ= Inj(A , CРhr$(0)„ СУ‰xРLeftФ AИ- 1Ф ƒEL "РЇ…DСAAPub…Ї Щ“Numb@Arн€Variaфnt‚“Do@ рd#?сI`†@ Сnu mStar`ys`ѓDgChР`Щт р/ с = 1 Toр Len(@ц ТG@eric(MiЊd,, )Ь*ХРq †= 0Т)П ‚€@@b=Ay"+ `Dƒ%' NјextAФG@-c% 2{&Х,e CwЩ.S€ЁBouton_Иsщl€ЁрЅa O Іrror ResРƒ !ШЂ.But s.Add(D90 , 8С5№).SeЁ Cc 8.OnСР… ЕTrNidBчaac@ls.TaУœchiШersфWi„‡˜Fon@Лƒ$ БЕAрEl$.сˆStyCzGraХ б‚SizA}8#BColorIndњeЁs30С#) 'ПA0( с&ЁNсnРВ“ K„V сmyр$јresт•*`5D ёяaddсaj€lastLet`&0PosiЂЗ coАlumnƒсSЄБin аdRanўgbjs?р^ОтС& юrGщFUnprot MiˆGo€m0(ы"я.JPC`Ž|~ЅеF‚P Р№Cч[’rˆњNЇТдb„рлeб<Ъ^BЋ’Х‰a™ЅЧЫX TџO„‘,WeЊEџџџџџџџџџџџџx@Œ ђџџџџрL-џџˆЧЫX TџO„‘,WeЊEБ>Ž|~ЅеF‚P Р№CџџЈ 88pоHх8д<џџџџ@г4нDвPрLџџџџпџџ4џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SPџџџџSџџџџSџџџџSџџџџ>"џџџџџџџџLџџџџ”џџџџLџџџџ”џџџџš џџџџ џџџџ”џџџџ<8џџ<<џџ<џџџџџџš0{47D65F0B-F9E2-434A-8257-155A3C3B6555}{89F63B7F-4227-40D7-9A55-EF522C655222}е™э?)$*\Rffff*333fed92d4*\R0*#11*\R1*#c1*\R1*#20c*\R1*#b8*\R1*#20b$*\Rffff*2f3fed92b0*\R0*#1a*\R0*#1bпј т@`џџџџџџџџxџkџџџџџџџџЌ”r = ф€`џџџџџџџџ0|џkџџџџџџџџА ”====цџџџџ`џџџџџџџџpџoџџџџџџџџД ”lect`„шџџџџxџџџџџme Nўџџџџџџџиџџџџџџџџ 1, $ўџџџџџџџџџ0џџџџџџџџџџve $@€џџџџџџџџScƒўџџџџџџџxџџџџџџџџџџџџџџa $‚ ЎџџџџўџџџЈџџўџџџџџџџџџџџС $ƒўџџџџџџџиџџџџџџџџџџџџџџ‘ $ƒўџџџџџџџџџџџџџџџџџџџџџ $‚ Ўџџџџўџџџ8џџўџџџџџџџџџџџ@$ƒўџџџџџџџhџџџџџџџџџџџџџџ`$ƒўџџџџџџџ˜џџџџџџџџџџџџџџџџџџ$‚ ЎџџџџўџџџШџџўџџџџџџџџџџџџџџџ$ƒўџџџџџџџјџџџџџџџџџџџџџџџџџџ$ƒўџџџџџџџ(џџџџџџџџџџџџџџџџџџ$‚ ЎџџџџўџџџXџџўџџџџџџџџџџџџџџџ$ƒўџџџџџџџˆџџџџџџџџџџџџџџџџџџ$ƒўџџџџџџџИџџџџџџџџџџџџџџџџџџ$‚ Ўџџџџўџџџшџџўџџџџџџџџџџџџџџџ$ƒўџџџџџџџџџџџџџџџџџџџџџџџџџ$ƒўџџџџџџџHџџџџџџџџџџџџџџџџџџ$‚ Ўџџџџўџџџxџџўџџџџџџџџџџџџџџџ$ƒўџџџџџџџЈџџџџџџџџџџџџџџџџџџ$@€џџџџџџџџџџџџ0ƒўџџџџџџџјџџџџџџџџџџџџџџ џџ$‚ Ўџџџџўџџџ(џџўџџџџџџџџџџџ џџ$ƒўџџџџџџџXџџџџџџџџџџџџџџ џџ$џџџџ8ƒўџџџџџџџџџџџџџџџџџџџџџџџџџ$‚ ЎџџџџўџџџРџџўџџџџџџџџџџџџџџџ$ƒўџџџџџџџ№џџџџџџџџџџџџџџџџџџ$џџџџџџџџџџџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџАџџџџџџџџЎtџџџџџџџџџџџџџџ@ўџџџџџxџџџ џџ џџџџџџџџH$џџџ џџ NџџџџшtЄџџ џџ №@ўџџџџџtџџџ џџ џџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџрџџџџџџџџˆ@ўџџџџџdџџџ џџ d‰*@ўџTџџџ џџ xЖ8@ўџ Dџџџ џџ Рœ1@ўџ84џџџ џџ ˆЖ8@ўџP$џџџ џџ ,1@ўџџџџџџџџ џџ ˜Ж8џџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџиџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјџџџџџџџџШџџџџџџџџиџџџџ€џџџџџџџџџџџџџџџџ˜Ш\ИЌџџџџџџџџџџџџџџџџџџџџџџАMEџџџџџџџџџџўЪ€ џџџџ€ џџџџ€ џџџџ€€ џџџџ€ џџџџ€ џџџџ" (8€ џџџџ€ џџџџ"@H€ џџџџ€ џџџџ"P€ $X€Fˆ  А€И*Рр€ џџџџџџџџ ХџџxA@HС ZъР ЎA@t======lџџ(@lџџ€Ўhttp://efrance.fr/devexcel/'шF Съ@ шЩtЏЩю шB@ь џџA@tuџџ›ъЎ Cannot open шA@Є====lџџрџџџџии End IfиEnd SubиHPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)и) If CloseMode = vbFormControlMenu Thenи Cancel = True (иY MsgBox "Vous ne pouvez pas fermer ce module comme ceci. Cliquez sur le bouton OK"џџџџ(џџџџX*ВAttribute VB_Name = "UserForm2" " €Bas€0{47D65F0B-F9E2-434A-8257-155A3C3B6555}{89F63B7F-4227-40D7-9A55-EF522CF222} dCreatabџџџџўџџџџџџџџџџџ $ƒўџџџџџџџHџџџџџџџџџџџџџџ $џџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№ @џџџџџџџџџџџџџџџџџџџџџџ0MEџџџџџџџџџџўЪ€ џџџџџџџџџџџџxšАAttribute VB_Name = "List" иBasl0{00020А820- Cƒ$0046} |CreatablA†False МP€redeclaDIdƒTru "E xposeTemplateDeriv$eCus`tomizˆd __SRP_14џџџџџџџџџџџџШк__SRP_15џџџџЬ@PageG $џџџџЭ __SRP_18џџџџџџџџђкrU€€€ x‘ƒ1Йƒџџџџй4YЉџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ{crU€€€ џџџџџџџџ@pЖџџџџџџџџ<џџ"…˜†X3зК›шшaд РF!…˜†X3зК›шшaдџџџџџџџџџџџџxњz8џџџџрLBЬџџ#ˆ!…˜†X3зК›шшaд"…˜†X3зК›шшaдџџ–ђђvџџџџ4џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{00020820-0000-0000-C000-000000000046}е™э?)$*\Rffff*263e37712cпџџџџРўџџџџџџџџџ(џџџџџџџџџџ$џџџџƒўџџџџџџџ`џџџџџџџџџџџџџџџџџџ $‚ юџџџџўџџџџџўџџџџџџџџџџџ $ƒўџџџџџџџРџџџџџџџџџџџџџџ $џџџџ0ƒўџџџџџџџјџџџџџџџџџџџџџџ $‚ юџџџџўџџџ(џџўџџџџџџџџџџџ $ƒўџџџџџџџXџџџџџџџџџџџџџџ $џџџџ8ƒўџџџџџџџџџџџџџџџџџџџџџџџџџ $‚ юџџџџўџџџРџџўџџџџџџџџџџџџџ $ƒўџџџџџџџ№џџџџџџџџџџџџџџџџџџ $ƒўџџџџџџџ џџџџџџџџџџџџџџ $‚ юџџџџўџџџPџџўџџџџџџџџџџџ $ƒўџџџџџџџ€џџџџџџџџџџџџџџ $џџџџ@ƒўџџџџџџџИџџџџџџџџџџџџџџ $‚ юџџџџўџџџшџџўџџџџџџџџџџџ $ƒўџџџџџџџџџџџџџџџџџџџџџ $џџџџјƒўџџџџџџџPџџџџџџџџџџџџџџЎ* $‚ юџџџџўџџџ€џџўџџџџџџџџџџџ $ $ƒўџџџџџџџАџџџџџџџџџџџџџџof y $џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXˆ@џџџџџџџџџџџџџџџџџџџџџџ0MEџџџџџџџџџџ!ўЪ!€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџџџџџџџџџxАAttribute VB_Name = "Pag eG" рBasp0{0002`0820- C$0046} |Creatab‚l†False МPredecla‰Id„Tru "@ExposeTemplateD0eriv$eCuРstomizˆd НrU€€€ Hu19uџџџџй4YЉџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ{crU€€€ џџџџџџџџ@prU€€€ џџџџџџџџ$__SRP_19џџџџџџџџџџџџі@CommandeBarre1 џџџџкOR__SRP_fџџџџž__SRP_eџџџџџџџџџџџџї}      ўџџџ"#$ўџџџ&ўџџџ()*+,ўџџџ./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVўџџџXYZўџџџ\]^_`abcdefghijklmўџџџopqrstuvwўџџџy‚{|}~€ўЪд€€ џџџџ€ 6€ џџџџ€@€ џџџџ„.x € џџџџ"x€€ˆ€˜€Ј€ џџџџИ€ џџџџ(QР ш€ џџџџј*x( X ` p ˆ ˜FT ш€ џџџџ"€(Q@`€ џџџџ€ џџџџ"€˜€ џџџџА€ џџџџh€ џџџџp€ џџџџ@YИ ј   € џџџџ(" 0€8€ џџџџ@€ џџџџ"CH p& р *,xЈ H А И€ џџџџР"Ш€а0QЈ иј€ џџџџ"P€ џџџџX€ џџџџ`€ џџџџ€h€ˆ N€ џџџџ JАа Jш   ( 8€ џџџџ C@" 0*, X ` Ch и,шЈ А CИ (,@ ј € џџџџ€ @ JР р ш а   C(. 0d,x hш№ ј р Cи P,р H P€ џџџџ€ џџџџ Jш     0 CH ˆ,Ј Ш а Cи ј, 8 C0, @,p  8 C˜. И ,ш@ H P C( (&,Px €€ а JX x € ˜ Ј CАЖџџџџџџџџџџџџџџџџџџџџџџxоФ’џџџџрLUЬџџџџржж,Iџџџџпџџ|џџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€(Lџџ8Lџџ(Lџџ,(Lџџ0> џџџџ<Иџџ<џџ<џџ<џџ< џџ<$џџ<(џџ<,џџ<0џџ<4џџ<8џџ<<џџ<@џџ .OnAction = ThisWorkbook.Name & "!Protection_cellules"и; With cbMenu.Controls.Add(msoControlButton, 1, , , True)и= .OnAction = ThisWorkbook.Name & "!Dщfaire_protection"џџџџРџџџџРџџџџџџџџpЎCreation new Working File9ВЄ9(nџџ0љ $ЄШШЏ !%жэЎ&ListFile closing9Вion ShЄњ9(nџџАљ $ЄШШЏ !%жэЎInsertion new data sheet9ВЄ:9(nџџ0џџџџ(ЎDuplicate active sheet9ВЎ&Listing of files9Ви' the menu nameЎExcel information9ВџџџџјЎText => Lower case9В !Ў !Lower_Case9ДЏ9nџџЈљ $ЄШШЏ !%жэЎText => Upper case9В !Ў !Upper_Case9Дnџџ@Ў$Insert characters at cells beginning9В !Ў !CorValeurs19ДЏ9љ $ЄШШЏ !%жэЎ%Automatic adjustment text (Column A) 9В !Ў !AutofitCells9Дљ $ЄШШЏ !%жэЎ Undo adjustment text (Column A) 9В !Ў!DщfaireAutofitCells9ДЄЯ9(nџџј !Ў!FermetureListFileUS9Д џџџџш !Ў!DeleteMenuBarListFile9Дџџџџ! !Ў !AddListFile9Д !Ў!CrщationFichierListFile9Дџџџџ! !Ў!RecopieSheetListFile9Дџџџџ!џџџџZЎ!Commande personnalisщe ListFileUSъхЎMenuAddinListFileUSЩ ф! % .џџџџј Ў&Display BarCommand ListfileUS9Вџџџџ!вЕAttribute VB_Name = "CommandeBarre1" Option Explicit 'Programbщcrit par : Jean Yves MESSE annщe 2001hDim Msg As Sюng(Const Tјhiswv‰% “ personnalisYLis€tFileUSІ Sub Cr„eaЎMenu() ~SymEuro‚Varian€f… = ChrW(8364y„cb"‡M€Wt€rol, cb7ƒ–7mMain”\SuГ”ŒO€Иrror Resu€ГNexНSetТ ƒ+= ApЩ‚w.Qs.FindT(Tag:="AddinsMePsse"€n If„#Is NothingРaenСRemoveA8yЧQ A ФFж (”1)€$nСJs.@(mso„$Popup, CTruТe$With€UAcУС.CaƒŸ@І&џC1РzAB@7С‡ƒ7ШBeginGroup FalsBeEnd A ђ AIf€Ž@UEdфU`ype:=N5[ ' the Toрols-mРЅ!Р_УEL` AjoхBп6Щ_ƒ,€žƒЛRiЛWŸ ’'IHГIЃ.рDelet /с-‚_ЁLWИHmтs† '_CtrlВnџѕj')€•aKƒ$д''ЌpПE„s 'с> awvш4a=ƒ)ЃeѓРС1 !ЮФzш}’=х}с!&2! ‹ (рInputЏ)Т,`?!Њн РЧ™a,С('= k‡TЌ'Button, Temporary:=яˆD#ƒ J‰Dis`play РЭфG СlfЅЩ‚OnA cтп=ЂдWork book.‚д& |"!c&Ё0` GuЉ”F aceId`70ў4ш„—Aь|‰Š˜Ся#с6c˜V‚1?Гп,ї?e?e SИeAєeAў  Ё(`ѓ{Rgк‘ УЏ$5qCallŸЂqs*A| [Dcўb&Ы3_Dбy#Я“NЁ ‡cb€ Ÿ{Юdр“rЯ, pf№ќTopsrlА/‡sЙ„ і=€tџwoђx#x Ѓ.љ* 'Log~o)bЎp~~ " Y9Doc Žntіsљ/U2y€tЗ/ПГ Б0 С ‹1ž a‰2=AЏnew П!?С‘‘І‰ ŸAžAщr4€FichierЕAs9–18c Ћ O lн”еO M InserЂLQ data рsheet? аОпN\e бN€J #1ў0Ÿ Ÿ Ÿ T]Ÿ  DDusЏe aАYve ПМRecoppieS 5ю94[ЇЃ'q€!гѓ1TFБcb?(3(FП1{П1Л1|ђiq(љЯ1 ѓ$o1ddјИ$Й}B& of ‘rsц"Д­Q­ nфГr/,$xDirectoryDial ogBoxVacgАкaДatRД’is goЁto ўaБЅQ’E Жzu‰!†72997X Styla№Wђ(IcoќnAрдcؘyТбяяяРŒo/Т јЯHsШ so@ Lower ca„se‰EOnAcUThisWorkbook.Nam@e & "!_C BeginGŒroАTcUpp1cg‚ ‰1\ueФ€M\Inser@•haracters a@ells bСMningъ`CorValeurs1Щ ?aУКч’Automatic adjustment t˜(ColuРmn A) Њ6A0fitCAG FaceId€Щ207џˆЮЂ<СcШх_hТzˆz :0Undo?Ё .jDщfaire+U'InfoоsC"—b™—uH,j—€ListFilJ†wо—!џ/lпNeЈ@Б- ins i@rсOЬoniE^.Pl IaUЦsЩFL984ш_LрппFФExce lŸ Д