аЯрЁБс>ўџ ўџџџі{џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџo ўџџџj !"#$k&'(:*+,-./0123456789%;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghiўџџџ‚l€npЛqrstўџџџvwxyz{|}~m§џџџRoot Entryџџџџџџџџ РF ёЏ‰ЬУ@›Ц‹ЬУРjWorkbook2џџџџџџџџ0_VBA_PROJECT_CUR"0.@ЇAО‹ЬУрcБП‹ЬУVBAџџџџ/ `HIО‹ЬУ`@nП‹ЬУ  !"#$%&'()*+,-./012ўџџџ456789:;ўџџџ=>ўџџџ@ABCDўџџџFGHIJўџџџLMNOPQRSTUVWXYZ[ўџџџ]^ўџџџ`abcdefghijklmnopqrstuvwxyz{|}~€ HР р h"?П р h"П рб Рр!x "€П рв!Рр!Р“€џ“€џ’т8џџџџџџџџџџџџ€€€€€€€€€ъъъ€€€™™џ™3fџџЬЬџџffџ€€fЬъыЏ€џџџџџџ€€€€€џЬџєѓћЬџЬџџ™™Ьџџ™ЬЬ™џџЬ™3fџ3ЬЬ™ЬџЬџ™џfff™–––3f3™f333™3™3f33™333\џџџ`… <PG… И$ListŒ!!Ўўџўџџџџџ!  ;  ;џ" NomDeSociete: TriыR№J№„Ё    3 №П Р@@ё  їќi Paris, le RщpertoiresNoms des fichiers гЬ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 џ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Р рExtensionTaille Date/HeureListe Fichiersџб €/ЄвZone_d_impressionestb Тb{ЗїПїAїП”ќП–ЗїП œ™‚Hœ™‚<Тb ДвќУb œ™‚lТbI_їП œ™‚Hœ™‚ŒФbЌ“h˜Тb.ёeќ0sT0(а0ŒФbЈœ™‚€м™‚МТbжœёe0sT0ŒФbŒФb€м™‚РФbњДёeHœ™‚0sT0ŒФbazp0žв цУb  цУbžв ˜Уb(а0тїПИв„іS0œУblЩ0Х0ШјП ъ№eшУb|Уb{ЗїПс„ КPageGggџџџџD гЬI ^)ь*  ќЉёвMbP?_*+‚€%СЎЋ&L&"Arial,Italique"&08Total taille en MO : 1,71 5 fichiers dans le rщpertoire : D:\Calculs\*.*"&R&"Arial,Italique"&08Listing de fichiers dans le poste informatique : essem‚&L&"Arial,Italique"&10D:\Excel utilitaires\Excel Listing files\listfile_fr.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 } 8!} U(} Ч } Ч/} уNoms des fichiers?AT0@ bb16Б § *§ +§ +§ +§ -О ,.О ,.О ,.О ,.О ,.зdFьЊ№Š№d№r№( № №d№R’ №d C №ПџП№№]F!„ЯЦ 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€Œв…‹ПCƒCПП№Ѕ/я№],@ŒвЬвЦА їpв9ь №Ж$ < Tri fichiers<5 €B>ž  A КListggџџџџD ThisWorkbook%џџџџ __SRP_6џџџџџџџџџџџџ3__SRP_7џџџџ<“ListingFilesџџџџ)‰Жџџџџџџџџ<џџ&ыEц›YЯG њqZCиМРFOюј_ЊOЇgй Р`•џџџџџџџџџџџџxњ‰‡џџџџрLтLџџ#ˆOюј_ЊOЇgй Р`•&ыEц›YЯG њqZCиМџџЅђђ џџџџ4џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSLџџџџSџџџџS”џџџџ6"џџџџ<џџš џџџџ<џџ<џџџџџџN0{00020819-0000-0000-C000-000000000046}§›э?K$*\Rffff*ff3fed9c08$*\Rffff*fd3fed9c00п€@`џџџџџџџџР|џoџџџџџџџџh ”K#џџџџ`џџџџџџџџи|џo€џџџџl ”Tђ/†iƒ џџџџ џџ џџџџџџ€ўџџџџџџџџџШџџ џџџџџџџџ$џџџџџџџџ@ƒўџџџџџџџџџџџџџџџџџџџџџџџџџ $‚ џџџџўџџџ8џџўџџџџџџџџџџџџџџџ $ƒўџџџџџџџhџџџџџџџџџџџџџџџџџџ $ƒўџџџџџџџ˜џџџџџџџџџџџџџџџџџџ $‚ џџџџўџџџШџџўџџџџџџџџџџџџџџџ $ƒўџџџџџџџјџџџџџџџџџџџџџџџџџџ $ƒўџџџџџџџ(џџџџџџџџџџџџџџџџџџ $‚ џџџџўџџџXџџўџџџџџџџџџџџџџџџ $ƒўџџџџџџџˆџџџџџџџџџџџџџџџџџџ $ƒўџџџџџџџИџџџџџџџџџџџџџџџџ $ $ $ $ $џџџџ‚ џџџџўџџџРџџўџџџџџџџџџџџџџџџƒўџџџџџџџШџџџџџџџџџџџџџџџџџџƒўџџџџџџџаџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџиџџўџџџџџџџџџџџџџџџџџџџ@ƒўџџџџџџџИџџџџџџџџџџџџџџџџџџ $џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџирфџџџџџџџџџџџџџџџџшџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPџџџџџџџџHџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџ0џџџџџџџџ џџџџ@џџџџџџџџ џџџџџџџџ`@phџџџџџџџџџџџџџџџџџџџџџџаMEџџџџџџџџџџўЪ€ џџџџ€ џџџџ€€ џџџџ"€ˆ˜ € "0€ џџџџШ€ џџџџ" аиџџџџ`ХџџxиOn Error Resume Nextџџџџи CreationMenuListFileџџи AjouteMenuAddinListFileиEnd SubСHAиAрAфи 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(MenuListFileFˆR Ajo€НСAddin’"ЂeBar‰'#ParamщtrageCouleФur\EndZbBeforeCl@S(Cancel As Bool(ean7 B7Delet&rU€€€   б I q щж1 зџџџџЩ4 Љ џџџџџџџџџџџџЊ` `ё1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ“џ?P Kџџ    $ DKџџ $ 44SrU€€€ џџџџџџџџ@$щ`hџџџџџџџџ()`l џџџџџџџџ!#prU€€€€~} џџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџ@ ME,џџџџџџџџўЪ|€€ џџџџ€ € џџџџ€ €h€ш€ џџџџH€0€ џџџџH€H€ џџџџ€p€x€€€ˆ€€˜€ €Ј€А€И€ џџџџ" РШ€ џџџџ€ "2€и€р€ј€€€€(€0€8€X€`€h€p€x€€€(€€ џџџџ€ џџџџ€˜€ €H €P €P4€ џџџџ  08@:H %Ш4 *H€ џџџџ И6Ш6 %А::Р:а6€ џџџџ8`:р6 4iш6€ џџџџ 8+Јp8P8X8`8€ џџџџ р€ џџџџ№ (0€ џџџџ~!8ИШ,=р€ џџџџ# (@ŠШHи№€ џџџџ6-ј€ џџџџ„L0€ џџџџИаш€ џџџџB.3v= x(‹ЈB6а € џџџџ  ( 8 ,@  2+P ˆ  ˜ € џџџџ`  №  X  14 0(44 Ј h p3 x3 €3@43 ˆ˜3И3€ џџџџ "Р3а3€ џџџџr@p  ш  @wј  8  $@  P € џџџџ>)X 8 @ €и р  ј € џџџџЖџџT0@џџSHGetPathFromIDListA0@SHBrowseForFolderAџџџџџџџџџџџџџџџџџџџџx2B" џџџџрL˜Lџџџџ^"**КoџџџџпџџФџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€@џџ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 `џџџџџџџџџџџџш§Nџџџџџџџџџџššп„ƒ$џџџџџџ˜џџџџџџџџџџџџџџџџџџ$ƒ$џџџџџџџџџџџџџџџџџџџџџџџџƒ$џџџџџџШџџџџџџџџџџџџџџџџџџrtƒ$џџџџџџџџџџџџџџџџџџџџџџџџƒ$џџџџџџ(џџџџџџџџџџџџџџ№NRVNRVƒ$џџџџџџXџџџџџџџџџџџџџџџџџџ H0`џџџџџџџџџџџџXџJџџџџџџџџџџб„8 H€`џџџџџџџџџџџџ:§NџџџџџџџџџџКК„џџџџƒ$џџџџџџ(џџџџџџџџџџџџџџџџџџ$rtƒ$џџџџџџџџџџџџџџџџџџџџџџџџ`„vџџџџџџџџџџџ`„Lєўџџџџџџџџ$$NRV$NRV$NRVƒ$џџџџџџ№џџџџџџџџџџџџџџ џџ$ƒ$џџџџџџ џџџџџџџџџџџџџџ џџ$$$NRVNRV ‚џџџџ`џџџџџџџџџџџџ8џJџџџџџџџџџџy„8т€Аџџџџџџџџ@џџџџџџџџџџџџ €џџ0ƒ$џџџџџџАџџџџџџџџџџџџџџџџџџт€Вˆ џџ џџ@џџџџџџџџˆ p Шš˜КЄАƒ$џџџџџџИџџџџџџџџџџџџџџNRV`„„@јўџџ џџџџ8 ьўџџ џџ џџ`„hџџџџьўџџџџџџƒ$џџџџџџРџџџџџџџџџџџџџџ џџNRVNRVNRVNRVNRVƒ$џџџџџџИџџџџџџџџџџџџџџџџџџƒ$џџџџџџЈџџџџџџџџџџџџџџ џџџџџџџџџџА€0ˆ џџџџџџџџџџџџш 0РH рџџџџƒ$џџџџџџџџџџџџџџџџџџџџ`„fp№ўџџџџџџџџƒ$џџџџџџ˜џџџџџџџџџџџџџџџџџџƒ$џџџџџџ( џџџџџџџџџџџџџџџџџџƒ$џџџџџџ0 џџџџџџџџџџџџџџџџџџр xр˜јџџџџЈ џџџџШˆ X H8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpА р имўџџ џџ џџ˜ ˆиўџџџџ џџ@ўџдўџџџџ џџ@ўџаўџџџџ џџ@ўџЬўџџџџ џџ@ўџМўџџ џџ џџ@ўџЌўџџ џџ џџ@ўџœўџџ џџ џџр Œўџџ џџ џџdNRVrtNRVNRVNRVра|ўџџ џџ @ўџlўџџ џџ @ўџ\ўџџ џџ  ž &ЂоІџџрpLўџџ џџ џџ (<ўџџ џџ @ўџ,ўџџ џџ @ўџўџџ џџ р ўџџ џџ NRVNRVrtNRVршќ§џџ џџ @ўџь§џџ џџ @ўџм§џџ џџ XЬ§џџ џџ @ўџМ§џџ џџ  Ќ§џџ џџ (ЌЎДИМ@œ§џџ џџ (Œ§џџ џџ @ўџ|§џџ џџ rtNRV€NRVrtNRVиpl§џџ џџ ppТшдˆмт@h§џџ џџ @ўџd§џџ џџ @ўџ`§џ_ џџ NRVNRVrtrtrtrtrtrtNRVNRV…џџ џџLNRVNRVNRV@(\§џџ џџ @ўџX§џџ џџ NRVx€T§џџ џџ @ўџP§џџ џџ (ќ џџАL§џџА `ІџџџџxH§џџџџ rtrtrtџџ`„ŽxшўџџџџrtNRVrtNRVrtrtrtrtџџџџЈ rtrtrtXˆF§џџџџ ИЌШD§џџџ рЌ№B§џџџџ XЏx@§џ/џџ rtrtrtџџrtrt0 Џџ/џџД >§џџџџ tИЗџџџџи<§џ/џџ (ШЗЎt№П(p:§џџџџ џџџџЪrtџџrtџџHрџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџH@фЎt џџH(lџџџ џџ џџH\џџџ џџ rtrtrt€(Xџџџ џџ џџџџBшОТ&NRVPфўџџ џџ @@ўџдўџџ џџ ўџаўџџш`pј џџrtrtџџX@Ьўџџџџ @ўџМўџџ џџ @ўџЌўџџ џџ ˆ œўџџ џџ ˆ џџџџ(Ј!џџџџpџџџџ˜X˜џџџџ0Иџџџџˆ №Јашџџџџ`№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPШџџp*џџ  Œўџџ џџ 3џџџџи(ˆўџџ џџ @ўџxўџџ џџ џџџџx(8tўџџџџ @ўџpўџџџџ (<џџ џџџџџџˆ@Pџџџџш˜Ў@PTjоџџшp`ўџџ џџ @ўџ^ўџџџџ PXўџџ џџ @ўџTўџџ џџ`Lўџџџџ ˜Pџџџџ˜P@Hўџџ џџ`PDўџџџџ @ўџ@ўџџ џџ`rtrtџџџџ€АP0ўџџ џџ @ўџ,ўџџ џџ`@ўџ(ўџџ џџ` Prt Xўџџ џџ pўџџ џџ @ўџўџџџџ @ўџ ўџџџџ џџP Pъ†pўџoџџ (€ Pџџ џџ€T˜˜\X~ъ†ШЪ@ўџџ џџ @ўџє§џџ џџ @ўџ№§џџ џџ џџџџ P@ь§џO џџ (\џџ8`џ/џџЈnџџџџАˆ(nџџ џџџџџџˆъ§џџџџ џџџџЈш§џ/џџ џџџџh€Шnџџџџџџџџџџqџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€џџџџ€ џџџџаа@Xџџџ џџ а(xџџџ џџ @ўџhџџџ џџ џџџџ0џџџџ@Xџџџ џџ @ўџHџџџ џџ @ўџ8џџџ џџ џџџџ€0рџџџџџџџџH ˆ џџџџ(E .E0 &E` "Eˆ &EА Hи € џџџџј  *  '  (  0  8 @ *H  `  h  :p "T И Р "WШ  №  (o ( 02Pp%ˆ#ЈРШа и 5ш 5 5 4ˆ0€ џџџџ fh+ˆ1 € џџџџ  И Ш и€ џџџџ€№€ џџџџр€ џџџџ" 8202 p %: : @8 H8ˆ %P5и 08@2€ џџџџ€ џџџџ" ш€Ј€А€и€Ш€H€P€P0€ш€№€ј€€р€а€ˆ€P2€и4€`5€ џџџџ.ˆ4 %@5 *05 %аX€ џџџџ`hp ˆ€ џџџџ ,E Р"_Ш"_№T€,ip€ џџџџ^p T=€ џџџџ€ џџџџ ,X h5€ џџџџ 'hxˆ9;9>Ј>Р>и>№JBfAX"Р(ш  (;0;   € џџџџ 8 € џџџџ '@ P X `  p € џџџџ€ џџџџ Bx € џџџџ0˜ ,5А р  ш  ј %! (!€ џџџџPk0!"e€!Ј! Ш! и!€ џџџџ=р!9"9 "€ џџџџ@"%H""`""x"""Ј""Ш""р"ј"$#(0#P#24h#24 #и# р#€ џџџџ2ш# "$€ џџџџ,v$"5@$"Eh$$ ˜$€ џџџџ-Ј$2И$ $и$ш$.Ѓ№$€ џџџџ2 %8%X%`% h%p%€x%€ џџџџ€h€ џџџџ(‹€%€ џџџџ 'а%Kр%-ј%€ џџџџ %&€ џџџџ2 &5H&FЗа2 X& %€ џџџџ€& (˜&Ј&№€ џџџџ" @&<€&h&џџџџ@;Хџџ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Ў2Attendez, la recherche de fichiers est en cours...'fи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џџžЎ Look for: d žЎQ - Sщlection de l'emplacement des fichiers pour ъtre listщs ou ou cliquez annulщ.'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џџ(Ў Recherche dans le rщpertoire : & Ў!А(Вž Ў)Recherche dans les sous rщpertoires de : &Ў ? Њ Д Ў$Recherche dans les sous rщpertoires?$Є'j 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Ў+Ces щlements seront placщs sur la lignes : vЄ A@Є 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ъ˜ шЈ• Worž Ў4Imputez le nom de la feuille que vous voulez ajouterЩоЎNom de la feuille de calculЩр$˜'l lЎ•ЎFiles nА pЎ -  тЎ dd mmm yyyy $Ў О(aџџИ l О(hџџ Ў2Imputation des щlщments dans la page.... Attendez! ф(ци4 Application.StatusBar = CurrentDirectory & DirValue›вШ vЄ”F P'vg vЄ 'PЎ RщpertoiresЎA1 ш!О%ъ(ьЎ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 :  & (Є"$І'‚ † ф!%Є ЄЄ$'ˆЎ: Le nombre de fichiers placщs dans cette feuille est de : „ ф!% Ў!(ВЎ3 L'espace disque utilisщ par les fichiers est de : ˆЎ MB Ў!(В ф! 'Šљ О!"эЎ$1:$19$Ў9&Є ф%в9,9(Ќ@ ф%в9.Ќ@ ф%в90ЌЭЬЬЬЬЬє? ф%в92ЌЭЬЬЬЬЬє? ф%в94Ў)&"Arial,Italique"&08Total taille en MO : ˆЄ $І ‚96Ў/&"Arial,Italique"&08Listing de fichiers dans leЄ $ІЎposte informatique :  Š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'hЎ%Mise en page de la feuille de travail'hZъџџџџъџџџџЏ ф(ˆцZъˆ Ў;Imputation des щlщments dans la nouvelle page.... Attendez!'fџџџџр6 h ф(цЏ ф(ˆЏ ф(ˆZъ№ЎInsertion titres de page'Žџџџџ@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:ž  Ў5- Tapez : *.* - Imputation de tous types de fichiers šЎ7- Tapez : *.xls - Imputation de tous les fichiers Excel šЎG- Tapez : M*.mp3 - Imputation de tous les fichiers MP3 commenчant par M šЎ5Imputation des types de fichiers que vous souhaitez : `Щœ$˜'( (Є•Ў'В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Ў0Voulez-vous rщellement annuler cette operation ?'XџџџџH6џџџџА>џџџџиЏ ф(ˆЎ2Attendez, la recherche de fichiers est en cours...'fease!!џџџџp:Є ф%в9(џџџџ;Џ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= Fјalsр! Ћ@ `Рendez, la рЗherche de fichiers est en cou rs... Ap5ЁСa!Д.ФŠ`&tuˆsBaTru  ‰Љ­Ѓ IР4 €ОvebA Is Nothр Th enЂЩ Crщ§"Fу€)? –e ? сšIfb !€`)Voulez-vousˆ rщргeme`HFaЁмрUcet@эoHperт ? )D~ocA?Ёfрaz=@ Input p("- Tapez : ? - IЎm ƒ5tс t УsЪ6" & vbœCrРтуaI j xxlsпбАїE8xce@vпкM*0.mp3яюMP*3А$m ч€€ p= #MЕ 4yЄ js !/que вsoŒuhp6!", ф2|:=PЉ3Аfг &LЈen(N) 40ч&sb3Š= 0Б`,С`YesNo№“ ь С+ТŒ=УBP“@it SubSEsB8ExАхх$L8oopJ.“= пд= scг" Ud@ b\Б>ll MSOўf=с=žѓЛ „Їž а}W0‘р0"p k for: g‘ьƒ$LfŒ) #Sщ1Yсh`-l'emЕ‹cC4dаІIp H( ъt€ЂlаЊщsˆ ou!cli!tz 7щJ! gЉ=і РЄц(А аY ""я"Right(І, 1) р<> "\IЗ&S1m= LefМ2P9"C:й OrЈЕ`DA6Q хp&*"pHs aŠvа0snщ №БбeurBA&sІ Chr(13)`BDans pce cPЕ"FJAductл" s˜ero Oxs?! #H (р) mјillТf€fФ3, t№ N'щxщcuвСimpo4rtPD)?К Si` non,“!peœt ' №Аrщ€Yфto0Ь d‘яЦI€vbOKCanPQL +р>ёЛrmтX,я№Ч% `"p&B€`W1Bєa а? e Up€Хm2.LФB_ц .CaЃи џВfjД ш C7†™'‹›Ž=х”;№>("RpљЃs аUmе bfLЭа"mњ[vb˜’пRS“Ÿž?‘б gC 0 vb@у:byšР= cˆб`NњoosРKФ’ ž‡A\^=Œ.CodУНГABАЊro„BР'`=yŽ A7ї0с_Go‚q/>Ѓ† ТoP0uХƒc Rщlщ1‡0‘`>une`/uv‘ˆ feu06e?№qФ8v<ЗbYesNo + vbCritical, "Recopy computation sheet") If Annuler =Уr€Then6> RowNu4Cells.Find("*", [a1], xlByJs, xlPrevious).DMsgBox "Ces щlements seront placщ ur €la lign$Р: " & C{+ 1IVщrifŽ On Error Resume Next‡ActiveS€.UnprotecGoTИo 0‡’PC€_e= Tru|e ‹œž|€ Сnt‚of wor‚kУ are „Ced."9Exi t Subˆndx If‡uЧ 3P ospCElse, кFЄ"ШFil€|nА|Ц&`~-т~Р9mat(Now˜dd  mmm y mџуXF Щ+Є ЂЫх2У!#Appl ІсЃ„.SрЄusBa!Ђ‹у*уІd`щlщЃ—PdansA,p`T. At {dezо!`xх х„o:c &1#›= 0‚[= џ`OA#bŸ$т&g Range("A1").Val€=€gRщpertрoiresЄŠC9B*€@sIs f+cџ.$CъEx] #s ЯџфDъT.aXŸ„EŠDate/HeureЃЄA1:F`Ир.BoldРnИƒ-ЃЄеEstrMess`B_WaitСзWith Iс_РSearch >а.NewnLЏ І= Dр8ctorўyЁd\рЅp =hCdFPers1€blnїЈExœec€A8 i1 №p.FounЪdqs`Zunˆs ;8"ф‘дPa/`)œ1YLe„n(((i))Q1 Step -Дѕq€4MidL€, Y, 1)!ў\џHч‡c7“U;}ч Ÿ•& ˜Зс9Бi Y;Р”Le ftо o) - ћQX)Tb%  V7‘§/ %YџrєћШ.ЯЧ @ pY <>$P+‡ БЉ Right(ѓ*Ÿ Yќ 1,”3ї2  1џ&#йwЯ#г ВЉн rЖ(Оr$,€ Б!л&2Q.ыИ os‘3dfеr4qR1>(a§8/ 10 ^ p3, 3?25‡1бqXTimeќ- TUРРp@m2.L B_су.Cap§"Ы=a R2Я5šUЙ{Фп€Ф?$[ qwrдЈF;ic!Ё\ Š  I№Мrruр—б@UЁPubР„AСЛ Listё sьTowВЎ(DТЇЈа2БсЏТ;Аd Q:Dis@дyЉFa&Ќ%Unloaќd –ј B-т ѕ Ч•‚ MiseEоn1 “љl ЯaЫ* уКє wбuDim0`ra" sС4Fun@Y|CountA(AB) & " fichiers dans @ŠrщpertoireD :Р& D€c№toryР WЕ& Chr(34Ё/SommC/RР d(I‘Я"Sum(ƒ;) / 10 ^ 3ABСqUserForm2.L B_‚й.CapЎР9" Le nxomb€*@ЛF2РГc‚щ4cetteFС>eё@ У5›&Ч$ AJSpaceЋ'es disque utiliдsщРpr*sG,Ъ3%%0MB rMoрmOrdiŒ8сЃVeŒo3Ё In %B"tаitree"€B шkC[P`ƒSetupƒT.P’tTi(tle Zsс $1x:$1€aQШрoum@DрŒ…LeftРMarginрЩ)€Centime€žsToPoints(1$D.RigЦhпЮTop d 2.5Ѕ Bott om?/HeadŒer?$1.3eјFoo@?/!*у!!1&""A`бl, Itali@K"" &08To  t@Й u Н`…Z'JAr1r3|aaф<Ђ.] Lo мргЁХэ‚" Ч "ˆposрjinf tџ@НС^ƒ$XЄсЃ!ѕ<10! ˆЖщ[08‚W the &DБ…ROri O`oЁR xlPor пiфљ@Лn`3Horizфon)ly #о^БЁ+erV Prlв$lї0%iс2Ў7 Ё6 &P of &NŸр {jŸ9œ9Tp80FitР4@sTa™Š= y ЧWiNр= 1.2рs‰q€zsvХpus(20)# au204аW55BР,ъyуC4lA1:E1"ѓ..BorI€2Ar_ L zStyle:=xlC inuous0, Weq?QMe0dium0p}:=с‘51, 34РH&H  16.FsаРld0fSSЈize‘1“I1pior."€11ф27е 30`ЙБ €dDЏzow, Mрv.CŸjat"_(* #,##а0_);Б(ТГ€""-""??’И@_)”* DEO A55~Ўdd mmm yy-hh‚:€AM/PMDѕъ8в ‡`"Кolq^("A:Eа").E\rС—@р.Auto&2 жA€ЏsЁA г@№(thB qB:Bџ'r acE2 з 7О`Њ@б50 Tјhenг р8 ЎPf4T›A:l2:73E`З?8< џ?Р я‘ џ ЯvhАР-‚Я<_/яща(Ђ(гСГA)БЃ2Ÿ Ÿ ?‘ €Aoi2IfŸљZ# /;A2Р"рSelecTf3Э.FбzePan ™Хе C Ea@ch CetСР |InФЪŠVЯТQ`L)о)CЪ3 €‘v(Д@?rmula, 7Ё]"http:/Ь/"('Y HyП жks.AАDAnc hor:=Ф, @`Ѕs.Valџт1•ёмЅ Ќ )ѕƒClQ‘oтiВkџвзћU3f.‰ГqыcџсQТ!Œ(3#сP ТoБ0Md№мDown).Offset(012В).Value  For Each btn In ActiveSheet.Buttons ЈIfˆ.Caption = "Tri fichiers" ThenRGoTo SuitШEnd If Next Call BouY_sщlZeoo8/:@ A_la_Fin RowN umbersCells.d("*", [a1]„, xlBy)s, xlPre€vious). •иWindow.Scrol>l€€)€ƒ/„ppPlicar.7(, 1).SeY‘)m€l, Upp:=25+DisplayAlerts€@Fal s„• ƒШNfeuil WorksЦs.Count ­1 StepМ 1,у†(!Д).‚{a…Х€тAH"1Ц FunbCA(ХB>) 0 _0@qC‡D#<> 0B~ Л‡FD@JСС} ƒ#€vHKeenUp’d@[ngTrІExit_Lis@tFilesC† Щ.StatusBaС…HPС @Ÿb СSu Pubu aa() MsgBoxJЛCodeNamb__SRP_eџџџџџџџџџџџџ?J__SRP_f џџџџEKAffichageџџџџu@ __SRP_5 џџџџK"џџџџџџџџ0 ќЦР  0 ќЦ€  0 ќЦ0  0 ќЦH  \rU€€€ џџџџџџџџ,Б"pџџџџџџџџџџџџ9Q,y#,pџџџџџџџџџџџџi4џџџџ$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџ$б`§џџџџџџџџџџџ$љ`§џџџџџџџџџџџщ!prU€€€€~} ‘.ё.Љ–q‘ М —I ˜‰™бš œQYž ЬQЪщЭL˜§ѕ lџ ѕ џ ѕ мў ѕ œў ѕ |ў ѕ <ў ѕ ў ѕ м§ ѕ œ§ 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, vўџџџƒ„…†ўџџџˆ‰Š‹ŒŽ‘’“”•–—ўџџџ™šўџџџœžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАБВГДЕЖЗИЙКЛўџџџНОПўџџџўџџџТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстўџџџфхцўџџџўџџџщъыьэўџџџя№ёђѓєѕіїјљњћќ§ўџous devez fermer toutes les autres applications. ЊЎInformations utilesA@ЄlџџАРСˆЄ!HQEž Ў-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а(ьџџџџ` џџџџ(џџџџа џџџџИ ž Ў7Pour plus d'information sur les programmes ThermExcel, Є $ІЎ/consulter le site internet : www.thermexcel.comЄ $ІЎ;Copyright Љ 2003-2004 Jean Yves MESSE. All rights reserved.Є $І ЊЎCrщation de planningA@ЄџџџџИ ГAttribute VB_Name = "Affichage" Option Explicit€ Pub, Sub Placements() MsgBox "Pour conserver les liens Pre l'Add-in et notam@ p4la bar#u" @& _ C@hr(13) "щcriНenРAQmОiers de travail, vous nevez@ pas :"a €- modif(ƒe€Xm du 10l'addinf.Ѕ&­ng€‹Nr€щpertoiŠ>e†)'Ђ'ŠDaсЖle cr€У/‚0 ЎŒaDI €la ine€{oitabpa€pa svuРYј$V_y_r@ examp€iРnstallТ‰F@+ˆР‡d‚1abrairiРn'ExcelbZ- c:\Program FiР…\MSO‰Жe\B\LiФœs aгZЛщvGr to@вs f€ermeturРНintempes8tiv@@|B р @КBTprob`lшmesт5mЬщmСŒФДdeСT#† AСaut apEюaёs."Р b@InformB,…)l"s uta&1@€End}LIm †‚O€„rror ResuрˆNeNx ……wJƒpl qdќ'iЧ Kу„@!с5`!и ThР(Т%,п3р Ђ"!Žult#Is2 Y nРŒ: ww(w.t! eH.comŸ- "Copyright €Љ 2003-€4 Jean Y!:MESSE. All Тs @.СždTeњ/CrщЂ2‚Blanning 00aЖџџџџџџџџџџџџџџџџџџџџџџxо)wџџџџрLKЬџџџџEжжџџџџпџџ$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 6 џџџџ<4џџ<џџ<џџ< џџ<џџ<џџ<џџ<џџ< џџџџџџџџџџџџџџ<8џџ<<џџ<џџџџџџ§›э?K"*\Rffff*13fed9ca1*\R0*#11*\R0*#1*\R0*#cп0 Р€џџџџџџџџƒкџџџџџџ8џџџџџџџџџџџџџџ„$Р€џџџџџџџџ$ƒкџџџџџџџџџџџџџџџџџџџџ фР`џџџџџџџџрЬќkџџџџџџџџџџ„Titl цџџџџ`џџџџџџџџ Œўoџџџџџџџџџџ „$$P џџƒкџџџџџџHџџџџџџџџџџџџџџ$Р(ƒкџџџџџџˆџџџџџџџџџџџџџџtego$ƒкџџџџџџPџџџџџџџџџџџџџџџџџџƒкџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџАџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€џџџџџџџџІЊЄLџџџџџ@ўџШlџџџ џџ џџ@ўџр\џџџ џџ џџ@ўџјLџџџ џџ џџ@ўџ@<џџџ џџ џџ@ўџ,џџџ џџ џџ@ўџ(џџџ џџ џџ@ўџX џџџ џџ џџ@ўџ ќўџџ џџ џџ@ўџpьўџџ џџ џџ@ўџˆмўџџ џџ џџ@ўџИЬўџџ џџ џџ@ўџ0Мўџџ џџ џџ@ўџаЌўџџ џџ џџ@ўџшœўџџ џџ џџ@ўџŒўџџ џџ џџ@ўџ|ўџџ џџ џџ@ўџHlўџџ џџ џџ@ўџР\ўџџ џџ џџ@ўџ`Lўџџ џџ џџ@ўџx<ўџџ џџ џџ@ўџ,ўџџ џџ џџ@ўџЈўџџ џџ џџ@ўџи ўџџ џџ џџ@ўџ ќ§џџ џџ џџ@ўџ№ь§џџ џџ џџ@ўџм§џџ џџ џџ@ўџ8Ь§џџ џџ џџ@ўџАМ§џџ џџ џџ@ўџPЌ§џџ џџ џџ@ўџhœ§џџ џџ џџ@ўџ€Œ§џџ џџ џџ@ўџ˜|§џџ џџ џџ@ўџШl§џџ џџ џџ@ўџ\§џџ џџ џџ@ўџрL§џџ џџ џџ@ўџј<§џџ џџ џџ@ўџ(,§џџ џџ џџ@ўџ@§џџ џџ џџ@ўџX §џџ џџ џџ@ўџџџџџќќџџ џџ џџ@ўџpьќџџ џџ џџџџ@ўџˆмќџџ џџ џџџџ@ўџџџџџЬќџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџІЊЄLџџџџџ@ўџˆlџџџ џџ џџ@ўџ \џџџ џџ џџ@ўџИLџџџ џџ џџ@ўџ<џџџ џџ џџ@ўџа,џџџ џџ џџ@ўџшџџџ џџ џџ@ўџ џџџ џџ џџ@ўџ`ќўџџ џџ џџ@ўџ0ьўџџ џџ џџ@ўџHмўџџ џџ џџ@ўџxЬўџџ џџ џџ@ўџџџџџМўџџ џџ џџ@ўџЌўџџ џџ (@ўџЈœўџџ џџ џџџџ@ўџџџџџŒўџџ џџ џџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџ@ ˜@ўџМўџџ џџ џџџџџџџџЌўџџ џџ џџџџ@ўџœўџџ џџ џџџџ@ўџŒўџџ џџ џџџџџџџџаџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ џџџџ˜ІЊЄџџџџ Xxџџџ џџ X@ўџhџџџ џџ ( Xџџџ џџ @ўџHџџџ џџ џџџџ/џџџџ8џџџ џџ 0  X(џџџ џџ X@ўџџџџ џџ @ўџџџџ џџ @ўџјўџџ џџ @ўџшўџџ џџ  @иўџџ џџ @@ўџШўџџ џџ @ўџИўџџ џџ @ўџЈўџџ џџ џџџџ ˜ўџџ џџ @@ўџˆўџџ џџ @ўџxўџџ џџ џџџџи џџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџј џџџџџџџџ(џџџџxџџџ џџ џџџџа€џџџџџџџџџџџџџџџџРџџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@MEџџџџџџџџџџўЪ€€ џџџџ" Јh‘Ј€ џџџџ" 8‰И P € џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџџџџџи ХџџxСhљ фэ L9šC@ои .MaxChange = 0.001nџџ(Џ ш(рџџlџџС ж ф%дтЄ!HQEџџџџљ шэЎListFileЎTitle7а(ьЎCrщation de planning sur excelЎSubject7а(ьЎJean Yves MESSEЎAuthor7а(ьЎЎManager7а(ь-ЎЎCompany7а(ь nаЅDЎ Excel, VBAЎCategory7а(ь2 AЎ?Devis, estimation, situation de travaux, Appel d'offre, MarchщsЎKeywords7а(ьЎŒDevis estimatif, Estimation, Situation de travaux, Conversion devises, Synthшse devis, analyse grapique - Copyrights Љ 2002 Jean Yves MESSE.ЎComments7а(ьnџџXPEљ шэЎ AutoPlanningЎTitle7а(ьЎBar chart (Gantt chart)ЎSubject7а(ьЎJean Yves MESSEЎAuthor7а(ьЎExcel, VBA, Construction CostЎCategory7а(ьЎUAutoPlanning, Planning Excel, Gantt chart Excel, Bart chart Excel, Scheduling of workЎ› „…†”ˆ‰Š‹ŒŽ‘’“ƒ•–—˜™šўџџџœžŸЂВўџџџЃЄЅІЇЈГЊЋЌ­ЎЏАБЁИДЕЖЗуфКМxНЭПРСТУФХЦЧШЩЪЫЬЙЮЯабвгдежзийклмнопрсўџџџўџџџх!№чшщъыьэюятёђѓ0ѕ §џџџјљњћќ§ўџѕ |§ ѕ <§ 'Ьќ'мќ:ќќNьќьќѕ@:\џlџћяLџ:<џћя,џџћя џ:ќўћяьўмўћяЬў:МўћяЌўœўћяŒў|ўћяlў:\ўћяLў<ўћя,ў“ўћя ў:ќ§ћяь§м§ћяЬ§:М§ ћяЌ§œ§ћяŒ§|§ћяl§:\§ ћяL§<§ћя,§:§ ћя § 6Bм§Ь§Ќ§œ§Œ§|§l§L§<§,§ §ьќмќЬќlџLџ,џџ џьўмўЬўЌўœўŒў|ўlўLў<ў,ўў ўь§А˜$ !lџLџ,џџ џьўмўЬўЌўœўŒў|ўlўLў<ў,ўў ўь§м§Ь§Ќ§œ§Œ§|§l§L§<§,§ §ьќмќЬќ№”Kџџ‰ѕ lџ ѕ џ ѕ мў 'Œў'œў:Мў NЌўЌўѕ@:\џ lџћяLџ:<џћя,џџћя џ:ќўћяьўмўћяЬў 6lџLџ,џџ џьўмўЬўЌўœўŒў№”$ 8 lџLџ,џџ џьўмўЬўЌўœўŒўfrU€€€ џџџџџџџџ$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџprU€€€€~} __SRP_4џџџџџџџџџџџџ\ŠListFile_Debutџџџџ"џџџџ‡Ќ.__SRP_3 џџџџ_А__SRP_2џџџџџџџџџџџџ‚ €T+ˆ € џџџџB  (€0€8€@€ џџџџ X€ џџџџ h$x И€ џџџџ Р€ џџџџ,а€ џџџџр)№ %#( @PX€ џџџџB  `€ џџџџ€h€p€x€ џџџџ€(˜ И  ар ш€ џџџџ#ј€ џџџџ€ џџџџ"  $O((P2` ,€  АИ РШ€ џџџџ"а€и€р€ш€№€ј€€€ џџџџ !ш€ џџџџ (,0ˆ+@Шаи€ џџџџPЦ h  Fx € џџџџ8( @P,h ˆ ˜  ЈИЊ*а€ џџџџ +€F€ји€ џџџџ€ џџџџ€ џџџџџџџџ№Хџџx ЎB@ lџџ@Zъ ZъРZъиъ№ъџџџџЅ Ђ(:  X$Ј•ЎChoisissez un classeur. Ђ(>aE X Ђ(>hџџРІ Ђ(@ Ђ$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ъРЖџџџџџџџџџџџџџџџџџџџџџџxо vџџџџрLBLџџџџ<жжш&џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@<џџ6(џџъ<`џџ<џџ< џџџџџџџџџџџџџџџџџџџџџџК џџџџџџџџLџџџџ”џџџџџџџџџџџџџџџџš"џџџџ6 џџџџš"џџџџLџџџџ”џџџџLџџџџ”џџџџhр -§o@ўџМўџџ џџ  (@ўџЌўџџ џџ lўўи Јўџџ џџ $'@ўџ˜ўџџ џџ џ8(”ўџџ џџ ў‹@ўџўџџ џџ @ўџ€ўџџ џџ @ўџpўџџ џџ h`ўџџ џџ вдимо>џџџџ˜А0\ўџџ џџ @ўџXўџџ џџ вдимо>ш Tўџџ џџ №bвдимо>00Pўџџ џџ @ўџ@ўџџ џџ `вдимо>А00ўџџ џџ @ўџ ўџџ џџ рвдимо>џџџџP вдимо>џџџџhвдимо>џџџџ€ј0ўџџ џџ @ўџўџџ џџ (вдимо>@0№§џџ џџ @ўџр§џџ џџ pвдимо>0а§џџ џџ @ўџР§џџ џџ №вдимо>џџџџа`А§џџ џџ @ўџ §џџ џџ @ўџ§џџ џџ @ўџ€§џџ џџ 8вдимо>X0p§џџ џџ @ўџ`§џџ џџ ˆвдимо>џџџџШh0P§џџ џџ @ўџ@§џџ џџ Швдимо>џџџџвдимо>џџџџвдимо>вдимо>џџџџ˜вдимо>џџџџавдимо>вдимо>вдимо>вдимо>вдимо>вдимо>џџџџ˜ш`0§џџ џџ @ўџ §џџ џџ @ўџ§џџ џџ @ўџ§џџ џџ вдимо>џџџџшџџџџ №ќџџ џџ @ўџрќџџ џџ @ўџаќџџ џџ @ўџРќџџ џџ @ўџАќџџ џџ @ўџ ќџџ џџ @ўџќџџ џџ џџџџŒќџџ џџ И Вжкрxџџџџ(|ќџџ џџ @ўџlќџ џџ bџџџџgвдимо>џџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџшџџџџџџџџџџџџџџџџџџџџџџџџџџџџјMEџџџџџџџџџџўЪt€€ џџџџ€ џџџџ" !p"Dш € џџџџB+`ZъиСxх |ЄЄ$Т ЮЎE65536$ъ%!ЬЄ$Т$ъ ф%Ь.Ъ ЪЈ•ž  Ў:La cellule activate est situщe hors de la zone de donnщes.Є $ІЎ6Placez-vous dans une colonne de donnщes de votre choix ЊA@ЄuџџphџџhЏЏ |%t'Р Р'Тї ФіЄ Т‹ Р ФЄ$ќ$ВЏ• ФЄ 'Цrџџ№hџџшї ФіР РЄ Ц$ќ'ШЎ™L'affichage des щlщments par ordre croissant va se faire en fonction de la colonne choisie au prщalable, en l'occurence dans le cas prщsent la colonne : ШA@Є |!t'Оž О$ъЩв жЩд кЩиЄЩмЏЩо рЩ> xB@аlџџАџџџџЈ ОЈ•џџџџhџџ@џџџџ8џџџџhС ОB@Юd-in.С№ О!аЏ•Ў~La feuille de travail est protщgщe par un mot de passe, vous devez la dщprotщgщe avant cette manipulation par ce mot de passe.A@ЄuџџPhџџHС@џџџџ8 ш! !•и1Exit SubaџџИЎ8Vous ne pouvez pas l'effectuer sur le fichier d'origine.A@Єџџџџџџhџџhџџџџ` ОЈ•кaџџXhџџиЎJCliquez d'abord dans la barre menu > Documents > Crщation nouveau fichier.A@Єџџџџџџџџ№РЗAttribute VB_Name = "ListFile_Deа" Option Expli cit Sub DisplayDirectoralogBox() If Not ActiveSheet Is$hing 0ThenFWo€rkbook.„d<>is 1 @'Exit {  UserForm2.ShoBw—ElseMsŠ "Vous ne pouvez pas l'effГuer sur le fichid'origine.€|End If ‚ *Cliqu€&d'abord dan+a barre menu€ > Docu„ts€CrщaЃђnCau8 37‚m` Funœ€КGet†Џ(ƒФal €m) As S€пngƒwDim bInfo BRO€WSEINFOPpathrL@ong, x‡posIntegerV\.pi@dlRoot€‹0&…|IsMiszsРw((y ‡lРpszTit@\€š`Chois@ Run classe\urD A]:ƒ4.?‰ Р5…gCƒ&ul Flags@&&H 1…&x€SHBrowse€‹Fol№der( @ЊƒBG= Space$А(512@A!rТ€aP€OFromIBDAШ(ByVbxМ, D BrИ‡СS= InРk(A , Chr$x(0)„ СIzРLeftФ A- 1їФ ƒEL "@Ћ…DСЃХAAPubя ‰•аNumb  r q I€VariantЂJќDo  h#СJ`fA СnumSttar€|s`фDgC|haBKKHр/@q41 To Len(@ц ЂH@ericP(Mid,,- )Ь*€s †= О0Т)Ѓ;  eb=&+ `Db У%' NextAФGп@-c% 2&Х,e … xЩ.S ЄBou€ton_sщl Ž ЉЃOРЉrrorа Res@„ !!шЅ.But s.@Add(90 , 8С5).SeЁ Cc .OnСу †`kTridBчЁacters.T—aУE‘sфWiр„1‡Fon`Оƒ$ k#ДAрEl$.сSty#{GraЃХ ‚SizЫ8#BColorInєdeЁs30С#) 'A0( с&ЁNсn“рЙ‡V сmyр$јresТ–ФY#`5Dу яaddсAžCj`’tLet`&Posi"И colиumnƒсS„В in дdRangџbjs?р^охС&РёrGщFРUnprot Mˆ4Go€m0HюBђ.P%ƒC0en€j= №Trueh6РV}P€a feuilрde trava`il es€2 щмgщvр>`\mpa Apvse, vбwd‚e‘wla dщ‘ Cвnt cЁ €manipulrњp`c0thBr–•:Хx„* Sр†ДА= Ap‘‹в.СHrsА(Cel(l, Т(Бs(N2‘FZ€s(ƒ"E65536").А(xlUp).Row, 5)\№є^Ža1ЈcРu Р8iva№— р%u`horsf рzop. donnщes."0 & _'40d(1D3)K"Pllzv-ƒa‰u@0*0eqФЁvotreD cPxx",™vљВqrm2Є9š—5q ѓч7BŸсБKБ5(фFa€™, bФ^m9|= С`vTёb :=> rcЬ3б€IsГ d, xA)]џь.2?РyyGџ"ВЉр gY2^cЪC= ёe 1, G„ц$'afбЋa‚gсs щlщCЇ‰4or M crp–‚sр} va sРЎa Л en foncІѓ&U"!sie `ЊppЋlabl <№l'occuшren:d"Џр#Е-Ps№CР 5: б*аЖQR5\Џ"s&scїgSo†Kepy1:=d:€c`) , Hea€œ:=xlGu€_, Or№€xlAsc8end Јz-ђCu@stom:=РMatchCaseФ:=*Ori€ r/qTopToBo§pxmr qpiсi1ё qIЈЩ @ ё.aд1иЩ<љ< hЩ]Ё;™‘.љ]љ^ D \ `bЁbСbщbcIcYK0ф!xџ"$ @lxџќcћвУxџЏDtџxџ"$ Hxџ ltџpџ"$ lpџћ=2tџpџxџ}"$ў €Њ+' џ'0џ'@џѕ:`џ NPџPџ 6Pџ@џ0џ џм+' џ'0џ'@џѕ:`џ NPџPџ 6Pџ@џ0џ џъ\ф$м (tџpџxџPџ@џ0џ џ0 ќЦ@  0 ќЦ   0 ќЦШ  ppKџџ! џ"$ @l џќcћвУ џkKџџ џ"$ @ џў˜  џKўџ, џ"$ @ џWџ cџ]ћ/№ў џ5џ\Ћ+'аў'рў'№ўѕ:џ Nџџ 6џ№ўрўаўKџџ§ џ"$ ((џ%(Мў%Ьў"$ XЬўўЂаўќ‹ўС˜ўОяџџ%Јў'џ%:Ќў%"$  ЈўўЂ№ўє§ѓ”ў”ўaрўќ"§i€ў%(pў%ў"$ XўўЂ`ўќ‹\ў`ў%аў%"$  Œќѕ 'ќ%' ќ%'Аќ%'Рќ%'аќ%'рќ%'№ќ%'§%'§%' §%'0§Вx%'@§%'P§%'`§%'p§%'€§%'§%' §%'А§%'Р§%'а§%'р§%'№§%'ў%'ў%' ў%'0ў%'@ў%Q\ў[PўQ џ[TўXў"$ Xў QŒќ$џ)ЬўЈў”ўўTўPўXў6B`§P§@§0§ §§§№ќрќаќРќАќ ќќџ№ўрўаў`ў@ў0ў ўўў№§р§а§Р§А§ §§€§p§ l$џќcћвЭFѕ џ '@ў'`ў'аўѕ@:џџћя№ў:Мўћярў 6 џ№ўрўаў`ў@ў8ќfџ%ќfМў% џ"$ ( џўЂџь`F№ўќі\џ џ5џ \џћыџќіLџ(џ<џLџўhlќw,(џ<џќ"\џ№ў №ў єџЦ6џ№ўj<џ(џћœџќі,џw <џў~lќ',џѕ\џџ џ`1(џ5џ*'аў'рў'№ўѕl(џ*Fџ 6џ№ўрўаў+ џ"$ ( џaџь`F№ўќіlџ џ5џ€ џ'џ%ќэlџ"$  Q џ§o№ў%ўСџ%ўСМў%(Ќў%ќf˜ў%ўС€ў%Ьўѕ "$ АЬўўІЬў6џ№ўpHk0 |ќlќ(џLџ$џlџ\џ<џ,џИ+ џЬўЈў”ўў\ўXўTўPўŒќџ№ўрўаў`ў@ў0ў ўўў№§р§а§Р§А§ §§€§p§`§P§@§0§ §§§№ќрќаќРќАќ ќќWrU€€€ џџџџџџџџ$`§џџџџџџџџџџџ(Љ`§џџџџџџџџџџџсЏ(б`§џџџџџџџџџџџё /$љ`§џџџџџџџџџџџ$!`§џџџџџџџџџџџprU€€€ 8UserForm2џџџџџџџџЉ]__SRP_14џџџџџџџџџџџџ‡4__SRP_15џџџџ˜ЏList &џџџџџџџџ›"ollowHyperl‚ddress:=, NewWindow:=7vAMMРyEx,itƒL:CMs@gBox "not open " &‚6ЪY9зй“йaзџџџџqй PЉ5бб5оооЈ§џџ`ёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8б+‘ёgцццџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<б+‘4дддџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@Љ4)б4џџџџџџџџџџџџ 0€`1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDб+‘a4гггџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHб+‘‘5нннџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ4б+‘Й/вввџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLб+‘љ5рррЈ§џџ`qџџџџџџџџџџџџџџџџџџџџџџџџџџџџdџ?0 ќЦ  0 ќЦ@  0 ќЦ€  P@LKrU€€€ џџџџџџџџ\$щ`Ќџџџџџџџџ$)`Аџџџџџџџџ$i`ДџџџџџџџџpЖџџџџџџџџ<џџeсиwGp"џџџџ<4џџ<џџ<џџ<џџ< џџ<$џџ<(џџ<,џџ<8џџ<<џџ<џџџџџџš0{8CE74F3E-B737-4F82-8F8B-D48CB8532E8F}{39ED4048-52A8-4CAA-B165-982840C79BC9}§›э?K"*\Rffff*23fed9ca1пHˆт@`џџџџџџџџџџџџxџJџџџџџџџџЌ”r = ф€`џџџџџџџџџџџџ|џJџџџџџџџџА ”====цџџџџ`џџџџџџџџџџџџџNџџџџџџџџД ”lect`„шџџџџxџџџџџme Nўџџџџџџџиџџџџџџџџ 1, $ўџџџџџџџџџ0џџџџџџџџџџve $@€џџџџџџџџScƒўџџџџџџџxџџџџџџџџџџџџџџa $‚ ЎџџџџўџџџЈџџўџџџџџџџџџџџС $ƒўџџџџџџџиџџџџџџџџџџџџџџ‘ $ƒўџџџџџџџџџџџџџџџџџџџџџ $‚ Ўџџџџўџџџ8џџўџџџџџџџџџџџ@$ƒўџџџџџџџhџџџџџџџџџџџџџџ`$ƒўџџџџџџџ˜џџџџџџџџџџџџџџџџџџ$‚ ЎџџџџўџџџШџџўџџџџџџџџџџџџџџџ$ƒўџџџџџџџјџџџџџџџџџџџџџџџџџџ$ƒўџџџџџџџ(џџџџџџџџџџџџџџџџџџ$‚ ЎџџџџўџџџXџџўџџџџџџџџџџџџџџџ$ƒўџџџџџџџˆџџџџџџџџџџџџџџџџџџ$ƒўџџџџџџџИџџџџџџџџџџџџџџџџџџ$‚ Ўџџџџўџџџшџџўџџџџџџџџџџџџџџџ$ƒўџџџџџџџџџџџџџџџџџџџџџџџџџ$ƒўџџџџџџџHџџџџџџџџџџџџџџџџџџ$‚ Ўџџџџўџџџxџџўџџџџџџџџџџџџџџџ$ƒўџџџџџџџЈџџџџџџџџџџџџџџџџџџ$$$$џџџџ0ƒўџџџџџџџАџџџџџџџџџџџџџџ џџ‚ ЎџџџџўџџџИџџўџџџџџџџџџџџ@ƒўџџџџџџџРџџџџџџџџџџџџџџџџџџhTџџџ џџ џџџџџџ8˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџРИ˜xџџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџЄџџџџџџџџџџџџИPtџџџ џџ џџџџ@ўџdџџџ џџ џџџџИ Tџџџ џџ џџџџшџџџџџџџџh8pDџџџ џџ А@ўџ4џџџ џџ Іо@ўџ$џџџ џџ џџ@ўџџџџ џџ џџџџ8џџџ џџ $џџџџ8р˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџ8џџџџџџџџиџџџџ€џџџџџџџџџџџџџџџџј \ИЌџџџџџџџџџџџџџџџџџџџџџџ8MEџџџџџџџџџџўЪ€ џџџџ€ џџџџ€ џџџџ€€ џџџџ€ џџџџ€ џџџџ"  (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{8CE74F3E-B737-4F82-8F8B-D48CB8532E8F}{39ED4048-52A8-4CAA-B165-982840C79BC9} dCreatabliFalse „PredeHclaIdЎTru "Expose@TemplateDeriv–Customiz‹D Option 3licФit P€'€+ Sub CommandButt on1_Ck() Unload Б EndW" !uУfУ_`activ,ListFilesToWorksh ee€?–!Label3?O€Zrro@r Resu€іNex€Dim Link As SС„ng Т„http://efrance.fr/devexpcel/@oA ЦGoTo NoCaЈnDoAA/e+book.F__SRP_17 џџџџМк__SRP_16џџџџџџџџџџџџР@PageG (џџџџС}__SRP_12џџџџџџџџџџџџукrU€€€ џџџџџџџџ@pЖџџџџџџџџ<џџ6=ч%вM‰GНЦw{‹MN РFgСі ˆBD-тУ)эџџџџџџџџџџџџxњр6џџџџрLBЬџџ#ˆgСі ˆBD-тУ)э6=ч%вM‰GНЦw{‹MNџџќђђмџџџџ4џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{00020820-0000-0000-C000-000000000046}§›э?K"*\Rffff*43fed9ca1пџџџџ(ўџџџџџџџџџ(џџџџџџџџџџ$џџџџƒўџџџџџџџ`џџџџџџџџџџџџџџџџџџ $‚ юџџџџўџџџџџўџџџџџџџџџџџ $ƒўџџџџџџџРџџџџџџџџџџџџџџ $џџџџ0ƒўџџџџџџџјџџџџџџџџџџџџџџ $‚ юџџџџўџџџ(џџўџџџџџџџџџџџ $ƒўџџџџџџџXџџџџџџџџџџџџџџ $џџџџ8ƒўџџџџџџџџџџџџџџџџџџџџџ $‚ юџџџџўџџџРџџўџџџџџџџџџџџ $ƒўџџџџџџџ№џџџџџџџџџџџџџџ $џџџџаƒўџџџџџџџ(џџџџџџџџџџџџџџ $‚ юџџџџўџџџXџџўџџџџџџџџџџџЌsI $ƒўџџџџџџџˆџџџџџџџџџџџџџџ $ƒўџџџџџџџИџџџџџџџџџџџџџџ $‚ юџџџџўџџџшџџўџџџџџџџџџџџ $ƒўџџџџџџџџџџџџџџџџџџџџџ $џџџџиџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџР№@џџџџџџџџџџџџџџџџџџџџџџ0MEџџџџџџџџџџ!ўЪ!€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџџџџџџџџџxАAttribute VB_Name = "Pag eG" рBasp0{0002`0820- C$0046} |Creatab‚l†False МPredecla‰Id„Tru "@ExposeTemplateD0eriv$eCuРstomizˆd НrU€€€ ˆйзЩc иџџџџyc4йKщ_џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ{crU€€€ џџџџџџџџ@p__SRP_13џџџџч@CommandeBarre1 џџџџО%N__SRP_cџџџџџџџџџџџџцŽ__SRP_dџџџџш} џџџџШ€ џџџџ(Qа ј€ џџџџ*x8 h p € ˜  ЈFTАј€ џџџџ"€ (Q(Pp€ џџџџ€ џџџџ" €Ј€ џџџџР€ џџџџx€ џџџџ€€ џџџџ@YШ   ( 0€ џџџџ8" @€H€ џџџџP€ џџџџ"CX €, H*,Иˆ И  ˜€ џџџџ "Ј€А0QHш€ џџџџ"`€ џџџџh€ џџџџp€ џџџџ€x˜ N € џџџџ JРр Jј   8 H€ џџџџ CP, p", Ш     ўџџџўџџџўџџџўџџџ !"#$%&'()*+,-./0123456789:;<ўџџџ>?@ўџџџBCDEFGHIJKLMNOPQRSўџџџUVWXYZ[\]^_`abcўџџџenghijklmўџџџopqrўџџџtўџџџvwxyўџџџ{|}~€ а Cи. ј,(H P CX. x(,ˆа и€ џџџџ€ P Jа № ј р   C80 ˆd,И  ј  № C ,8 X `€ џџџџ€ џџџџ Jј    0 @ CX& x,  Р Ш Cа& №, 8 C@( `,ˆ Ј А CИ$ р ,( 0 8 C@. и&,`ˆ € р Jh ˆ  Ј И CР р,ј  ( C0 P,hˆ  C˜ И ,Шш № јЖџџџџџџџџџџџџџџџџџџџџџџxо’џџџџрLUЬџџџџ жжмDџџџџпџџ|џџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€ (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 !Ў!RecopieSheetListFile9ДџџџџЎMenuAddinListFileFR9barrџџџџ€ЎAjustement automatique texte9ВџџџџИџџџџZЎ!Commande personnalisщe ListFileFRъхЎMenuAddinListFileFRЩ ф! % .џџџџ`щЕAttribute VB_Name = "CommandeBarre1" Option Explicit 'Programbщcrit par : Jean Yves MESSE annщe 2001hDim Msg As Sюng(Const Tјhiswv‰% “ personnalisYLis€tFileFRІ 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#ƒ K‰ffi€chage bсмд cЄо mfeЪСЁBOnAcЂр=bеWorkbookТ.Bе& "!#'a1иvi•FaceIтd ‘704ЈD˜AџЌ}‰J™#Ё7#™ƒ~1џГ?-ŸeŸe RяfATfA )`?S|Вgк‘ %•qCaќllџЂqг*{Aa|ч [dDcbs&Ы3џПD1z#ѓNЁ ‡ьcb€ џ{dрѓr/‘Ь, аf№Toаsвlo0чsЙ„ =рt_xo_Ry#ox Ѓ.љ* р'Logo)b'qo~o~ Й9Dobcntsљ/U2yџ€tЗ/Г Б0 С ;‹1ž a‰Crщ0 nouveau !Cier de travaМil) ?B>BѓFGч`ЙЖ18ƒ Ы o l]•ѕo m Ins erТLr lle pfeuiq Р.? Œ pK%OO p.10џo Q o o Є^o j#2uРАquрп ern^ur*%o l RecopieSh(eetџ 215ю9]gc'qЕгѓV†Гcb**єGŸ3{Ÿ3›3|вkМiЏ3 ѓп%O3dd8Лп%UЛmЮ&A2є2s"$АСЏ| npцуЂ_\DisplayDi@rector€a@logBoxVaЮc нapЖatТЖ’ is goбtoф aр{va!ЈQ’uЙŠw/, ,299b7X Sty`3™s‚oЃIconAPзџгژ{2д0Ч0Т hвTri•Jџ.‘ќ6ŒYГkbook.Name & "!T@ri" .BeginGroup = TruelEnd Wi$th4 &Set cbMenuTcb.Controls.Add(msoPopАup, Ђ)>N?‚.CaptionQ"| @Outils žTфagMy š ЄUButtрon, 1I@€`versGtexte en mi€nuscule KOnAc[ThisWorŒВLowРer_Cas  Ж‰сhajp4UppK4џaue„†ЭaInser›aractшres dщbтuell@bJˆžbCorValeuxrs1‰pџbƒПg—A€]tement automatiАque Bš*—A@0fitC@CŠBFaceIdРЫ207џˆи?р/Јsџh‚{H{э7Dщfaire Ьl'AM .О8D _EЫS'Infoоsƒ"џ˜тšџ˜uˆ,ъ˜РListFiK†>™Л(П0lџMхЉB €Г˜-in_fiФPl IуUгK984(пK ХExce†lџfHпMщmoРRiFffпšьн22AР propo1i1 Imfora…o‹8џ/HџљQп^|_ ЯZc{&Fermetтu№>de Џ/Я=оrеFRIStyle`M0†c Ico№nAnd47П(пŒзŒ а‚.Visib2QL ' aff€ichage 0 la comma@ndbar `osonnalisщд‘DГp NothИingsкEŸbљФ б&Sub!–`€ Delete!–(BarЧ(trOn Error Rhesu№œN@ŠSA ppliceonЇр[В s(б‰CГ s№A ).CsG`oTo 0 ŸR'ЯЯЯarЯme‡ЫI j•ClosЄ ЊQxџ dtџ H`џ ˆ)xџtџ`џKўџP$J xџtџ`џфœKџџ@`џ:dџ%tџxџ"$ xџ dtџ H`џ ˆ)xџtџ`џLѕ '0џ%'@џ%'Pџ%tџѕ xџ"$ xџ Рtџ l)xџtџ6Pџ@џ0џKўџLœ$– $xџtџ`џPџ@џ0џHrU€€€ џџџџџџџџ$ `§џџџџџџџџџџџ$Љ `§џџџџџџџџџџџ$б `§џџџџџџџџџџџ,љ `§џџџџџџџџџџџС=Ё$! `§џџџџџџџџџџџ$I `§џџџџџџџџџџџ$q `§џџџџџџџџџџџ$™ `§џџџџџџџџџџџpЖџџџџџџџџџџџџџџџџџџџџџџxоєЪFuncDevisџџџџџџџџџџџџю__SRP_8џџџџџџџџџџџџ__SRP_9$џџџџwOutilsDiversџџџџџџџџџџџџїлWџџџџрLЬџџџџжжlџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџ<џџ< џџ<џџџџџџ§›э?K"*\Rffff*53fed9ca1пџџџџЈ џџџџ`џџџџџџџџhџ+@ џџџџŒџџџџIƒђџџџџџџ џџ`€iƒєџџџџџџџџџџџџ€и E@„іџџџџ\џџџ џџџџџџƒ№џџџџrU€€€€~}  > q ё !ЯqI™Сщё1 iQyЈ Щ9 љНљAОщЌiщA™сaq IбЉбТёІYУщЈ1qЙљ9qЉ )Сi Љ 9б ! љ а)бЁб ѕЌ \џ 4\џќіlџKџџQџ'џ%:4џ5%'$џ%'\џ%DџHџ"$ Hџ dDџ DQџPџ)HџDџ6\џ$џџ lPџќcћв3 6xшўcьў%'џ%'$џ%'\џ%ўСќў % џџ(4џ%DџHџ"$ Hџ dDџ Hџ „ џ $ QшўXџ)HџDџџ џ6\џ$џџ lXџќјфў 7фў ˆ 5фў  єфў | ѕќјфўTџ'$џ%:ќў5%'\џ%ўС4џ %DџHџ"$ Hџ dDџ DQџLџ)HџDџ6\џ$џ lLџќcћвœ 8˜ <œ$фўLџTџPџXџlџ,HџDџџ џшў\џ$џџРtQ,џ'0џ%:`џ5%'@џ%'Pџ%pџtџ"$ tџ dpџ DQ,џxџ)tџpџ6Pџ@џ0џ lxџќcћвУq'Pџ%xџ ” 5PџPt(qxџ$tџpџ,џPџ@џ0џш˜Kџџ 9 9Y$џ'(џ%:Hџ5%'8џ%ўСXџ %hџlџ"$ lџ dhџ Dl$џ= xџ)lџhџ$џ68џ(џ lxџќјtџ tџ : ќc= tџ ќc= xџX˜0pџxџtџ lџhџ$џ8џ(џФKџџC џcTџ%'$џ%'4џ%'Dџ%ўСdџ%tџH P tџ $ Q џxџtџ6Dџ4џ$џ lxџќјџ ;џ ˆ ,џ"$ lџ<*#џџ ф 2џџ(dџР%џў› =џ  єџџ | ѕќјџhФ,џxџ(џџtџ џDџ4џ$џРtQ,џ'0џ%:`џ=%'@џ%'Pџ%pџtџ"$ tџ dpџ DQ,џxџ)tџpџ6Pџ@џ0џ lxџќcћвУq'Pџ%xџ ” 5PџPt(qxџ$tџpџ,џPџ@џ0џь H Kџџ Kџџ N$џc(џ%ќf8џ%ўСHџ%:Xџ%hџlџ"$ lџ dhџ ,Q$џxџ)lџhџJhџcHџ%'єў%'џ%'џ%ўСXџ%lџxџ „lџ $ lhџ= pџ)lџhџ6џџєўѕРpџ \ JhџcHџ%'єў%'џ%'џ%ўСXџ %lџxџ „lџ $ lhџ= tџ)lџhџ6џџєў ltџќј№ў  №ў ˆ №ў  ѕќј№ўChџc8џ%'џ%'џ%(Hџ%ўСXџ%lџtџ P lџ $ Qhџьўlџ6џџ ьў ˆ ,шў"$ lшў*#фўьў ф 2шўфў(Xџ%ьўў› ѕќјьўChџc8џ%'џ%'џ%(Hџ%ўСXџ%lџtџ P lџ $ Qhџрўlџ6џџ рў ˆ ,шў"$ lшў*#фўрў ф 2шўфў(Xџњ%рўў› ѕќјрўChџc8џ%'џ%'џ%(Hџ%ўСXџ%lџtџ P lџ $ Qhџмўlџ6џџ мў ˆ ,шў"$ lшў*#фўмў ф 2шўфў(Xџ:%мўў› ѕќјмўJhџcHџ%'єў%'џ%'џ%ўСXџ %lџxџ „lџ $ lhџ= tџ)lџhџ6џџєў ltџќјиў иў ˆ иў  ѕќјиўChџc8џ%'џ%'џ%(Hџ%ўСXџ%lџtџ P lџ $ Qhџдўlџ6џџ дў ˆ ,шў"$ lшў*#фўдў ф 2шўфў дў  (XџЕ %дўў›ўСXџ%дўў› єџдў | ѕќјдўChџc8џ%'џ%'џ%(Hџ%ўСXџ%lџtџ P lџ $ Qhџаўlџ6џџ аў ˆ ,шў"$ lшў*#фўаў ф 2шўфў єџаў | ѕќјаўJhџcHџ%'єў%'џ%'џ%ўСXџ %lџxџ „lџ $ lhџ= tџ)lџhџ6џџєў ltџќјЬў  Ьў ˆ Ьў  ѕќјЬўChџc8џ%'џ%'џ%(Hџ%ўСXџ%lџtџ P lџ $ QhџШўlџ6џџ !Шў ˆ ,шў"$ lшў"*#фўШў ф 2шўфў єџШў | ѕќјШўChџc8џ%'џ%'џ%(Hџ%ўСXџ%lџtџ P lџ $ QhџФўlџ6џџ #Фў ˆ ,шў"$ lшў$*#фўФў ф 2шўфў ѕќјФўChџc8џ%'џ%'џ%(Hџ%ўСXџ%lџtџ P lџ $ QhџРўlџ6џџ %Рў ˆ ,шў"$ lшў&*#фўРў ф 2шўфў єџРў | ѕќјРўChџc8џ%'џ%'џ%(Hџ%ўСXџ%lџtџ P lџ $ QhџМўlџ6џџ 'Мў ˆ ,шў"$ lшў(*#фўМў ф 2шўфў(XџЯ%Мўў› єџМў | ѕќјМўChџc8џ%'џ%'џ%(Hџ%ўСXџ%lџtџ P lџ $ QhџИўlџ6џџ )Иў ˆ ,шў"$ lшў**#фўИў ф 2шўфў(XџЯ%Иўў› ѕќјИўJhџcHџ%'єў%'џ%'џ%ўСXџ %lџxџ „lџ $ lhџ= tџ)lџhџ6џџєў ltџќјДў +Дў ˆ Дў  ѕќјДўChџc8џ%'џ%'џ%(Hџ%ўСXџ%lџtџ P lџ $ QhџАўlџ6џџ ,Аў ˆ ,шў"$ lшў-*#фўАў ф 2шўфў(Xџи%Аўў› єџАў | ѕќјАўChџc8џ%'џ%'џ%(Hџ%ўСXџ%lџtџ P lџ $ QhџЌўlџ6џџ .Ќў ˆ ,шў"$ lшў/*#фўЌў ф 2шўфў(Xџи%Ќўў› ѕќјЌўChџc8џ%'џ%'џ%(Hџ%ўСXџ%lџtџ P lџ $ QhџЈўlџ6џџ 0Јў ˆ ,шў"$ lшў1*#фўЈў ф 2шўфў(Xџи%Јўў› єџЈў | ѕќјЈўChџc8џ%'џ%'џ%(Hџ%ўСXџ%lџtџ P lџ $ QhџЄўlџ6џџ 2Єў ˆ ,шў"$ lшў3*#фўЄў ф 2шўфўўСXџ%Єўў› єџЄў | ѕќјЄў єџxџ є ќc= pџ ќc= tџ ќc=xџиH x`№ўьўрўмўиўдўаўЬўШўФўРўМўИўДўАўЌўЈўЄўxџtџpџ,шўфўlџhџ$џџџєўŒPKџџ@`џ:dџ%tџxџ"$ џџШџџџџџџџџџџџџџџџџџџ$ƒ№џџџџџџјџџџџџџџџџџџџџџџџџџ$џџџџјƒ№џџџџџџ0џџџџџџџџџџџџџџџџџџ$ƒ№џџџџџџ`џџџџџџџџџџџџџџџџџџ$џџџџџџџџ€@џџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ @џџџџlџџџ џџџџџџџџџџш@ўџPLџџџ џџ `џџ@ўџџџџџ<џџџ џџ џџџџ@ўџˆ,џџџ џџ џџ_@ўџџџџџџџџ џџ џџaџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜MEџџџџџџџџџџўЪ €€ џџџџ€ џџџџB  €(0 H` x€џџџџ˜ХџџxиApplication.Volatile Trueи8 FileName = Application.Caller.Parent.Parent.FullNameи End Functionи%Public Function SheetName() As Stringи Application.Volatile Trueи. SheetName = Application.Caller.Parent.Nameи End FunctionZъ€ ђЄ є'і іЌр? 'і іЄ є'і і'fџџџџџџ0џџџџ8ЈАAttribute VB_Name = "FuncDevis" Option Explicit €XRound(number, dec As Integer) Dim €Temp МZ * 10\ ^f <((+p 0.5C9/ 7‚V End  rU€€€€~} Јh§<џє ыыћЯ§kLџћД,џќі\џ \џўФLџр?ћ”,џћщџќі\џ5,џ\џє ыыћЯ§kLџћМ,џќі\џ \џ§lџ§•`h,lџ\џ,џџkrU€€€ џџџџџџџџ,`§џџџџџџџџџџџё /&prU€€€ џџџџџџџџ$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџ$б`§џџџџџџџџџџџ$љ`§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ xMEџџџџџџџџџџўЪ№€ € џџџџ€ 6€ џџџџ€P€ џџџџ€ џџџџ" !€ џџџџ€€ 3(€ џџџџ8 @P,Xˆ+h№ј€ џџџџ %p (€6<А а(и %ј€ џџџџ" ! € џџџџ€0€83@€ џџџџP Xh,pˆ+€ %А (Р 6а'№   ( % 0€ џџџџ8€ џџџџ€ џџџџ€ џџџџ"@€ џџџџH€ џџџџH‚НP€ џџџџи€ џџџџ€ џџџџ€ џџџџ"р !ш€ є     ўџџџW#$%&'ўџџџ)*+,-./"S234B6789:;<=>?@A1CDEFGHIJKLMNOPQRўџџџTUVXŸrZ[\]^g`abcdefYhijklmnopqўџџџs uvwyўџџџz„§џџџ}~€Жџџџџџџџџџџџџџџџџџџџџџџxо1$_џџџџрLOЬџџџџM$жжKџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  (џџъ> џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLџџџџ”џџџџLџџџџ”џџџџџџ§›э?K"*\Rffff*63fed9ca1*\R1*#15d*\R1*#88*\R1*#89*\R0*#10*\R0*#1*\R1*#3b*\R0*#c*\R1*#90*\R1*#b*\R1*#54*\R0*#11*\R1*#a7*\R1*#208*\R1*#b8*\R1*#20bп@P $ Rр`џџџџџџџџШTќoџџџџџџџџџџ99s„№$$$$$ ”№`џџџџџџџџџoџџџџџџџџџџ„or R „–џџџџtџџџШ$ „˜џџџџpџџџшg $ Іp`џџџџџџџџшџoџџџџџџџџџџ!„Map „–џџџџtџџџHstem$ „˜џџџџpџџџh S$ ЊА`џџџџџџџџШ T§oџџџџџџџџџџ =„&Su Ж`џџџџџџџџш§oџџџџџџџџџџ,,G„e Ne`„tџџџџvџџџџџј`„Œџџџџdџџџ џџefer „Иџџџџ`џџџ8En$`„КџџџџPџџџ џџ= Af`„Мџџџџ@џџџ џџce`„Оџџџџ0џџџ џџX`„Рџџџџ(џџџџџexeт€Xџџџџџџџџ@џџџџџџџџ2\CA`„Tџџџџpџџџџџџџџџ$$ƒŒџџџџџџџџџџџџџџџџџџџџ==== „VџџџџlџџџHџџџџ`„Цџџџџdџџџџџџџџџ`„ОџџџџTџџџ џџџџџџ`„РџџџџDџџџ џџџџ „Ъџџџџ@џџџ``„Тџџџџ0џџџ џџ$$ `џџџџ`џџџџџџџџЈ8џkџџџџџџџџџџ ф„ џџ`„bџџџџlџџџ џџџџџџƒŒџџџџџџPџџџџџџџџџџџџџџ $ИƒŒџџџџџџшџџџџџџџџџџџџџџџџџџƒŒџџџџџџXџџџџџџџџџџџџџџџџџџ`„Фџџџџ џџџ џџџџџџ`„Цџџџџџџџ џџџџџџ`„Шџџџџ џџџџџџџџџ ^И`џџџџџџџџШTќoџџџџџџџџџџ88Ќ„џџџџ`„Tџџџџpџџџџџ` „Vџџџџlџџџhџџ`„Цџџџџdџџџџџ џџ`„ОџџџџTџџџ џџ џџ`„РџџџџDџџџ џџ џџ „Ъџџџџ@џџџр џџ`„Тџџџџ0џџџ џџ`bd`„Фџџџџ џџџ џџ`„Цџџџџџџџ џџџџџџ`„Шџџџџ џџџџџџџџџџџџџpИџџџџАџџџџ џџџџрp№џџџџƒŒџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџpИџџџџАџџџџ џџџџрp№џџџџџџџџƒŒџџџџџџАџџџџџџџџџџџџџџџџџџƒŒџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџАџџџџџџџџџџџџџџџџаџџџџџџџџШџџџџјџџџџџџџџџџџџџџџџџџџџџџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџОфЄœž ЄџџџџИ`bd@ўџрxџџџ џџ @ўџџџџџlџџџ џџ а@ўџp\џџџ џџ @ўџ(Lџџџ џџ @ўџ@<џџџ џџ @ўџX,џџџ џџ џџџџ@ўџџџџџџџџ џџ џџџџ@ўџџџџџ џџџ џџ P@ўџАџџџ џџ Шˆџџ˜@ўџџџџџџџO џџ џџџџиАџџџџџџџџАџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџPџџџџџџџџ  џџџџш џџџџџџџџџџџџџџџџџџџџџџџџx џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ И џџџџОфЄœž ЈЄџџ@ўџа xџџџ џџ џџЈ x 2`bd@ўџџџџџlџџџ џџ џџџџ@ўџ` \џџџ џџ @ўџ Lџџџ џџ @ўџ0 <џџџ џџ џџџџ@ўџH ,џџџ џџ џџџџ@ўџџџџџџџџ џџ @ўџџџџџ џџџ џџ @ўџ џџџ џџ џџџџ@ўџџџџџџџO џџ џџџџИ  2џџџџџџџџџџ 4џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜ € Ш џџџџ џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh џџџџџџџџфІЄ џџ@ўџ@ўџ@ xџџџ џџ