ࡱ> &%  !"#$:B()*+,-8/012345679;A<=>?@CkvDEFGQIJKLMNOPWSTUViYc[\]^_`abdefghRjlqmnoprtsuywxRoot Entry F#~qk']'DWorkbookD_VBA_PROJECT_CUR"P@R!]@!]VBA @T!] !] \pGouel Ba= ThisWorkbook=x<kI/<X@"1Arial1Arial1Arial1Arial1Arial1h8Cambria1,8Calibri18Calibri18Calibri1Calibri1Calibri1<Calibri1>Calibri1?Calibri14Calibri14Calibri1 Calibri1 Calibri1Calibri1Calibri1 Calibri1Calibri3#,##0\ " ";\-#,##0\ " "=#,##0\ " ";[Red]\-#,##0\ " "?#,##0.00\ " ";\-#,##0.00\ " "I"#,##0.00\ " ";[Red]\-#,##0.00\ " "q*6_-* #,##0\ " "_-;\-* #,##0\ " "_-;_-* "-"\ " "_-;_-@_-k)3_-* #,##0\ _ _-;\-* #,##0\ _ _-;_-* "-"\ _ _-;_-@_-,>_-* #,##0.00\ " "_-;\-* #,##0.00\ " "_-;_-* "-"??\ " "_-;_-@_-{+;_-* #,##0.00\ _ _-;\-* #,##0.00\ _ _-;_-* "-"??\ _ _-;_-@_-                                                                     `          + ) , *           P  P     a>  ff ||>_3}A} _ _-ef#0.0}A} _ _-ef#0.0}A} _ _-ef#0.0}A} _ _-ef#0.0}A} _ _-ef#0.0}A} _ _-ef #0.0}A} _ _-L#0.0}A} _ _-L#0.0}A} _ _-L#0.0}A} _ _-L#0.0}A} _ _-L#0.0}A} _ _-L #0.0}A} _ _-23#0.0}A} _ _-23#0.0}A} _ _-23#0.0}A} _ _-23#0.0}A}  _ _-23#0.0}A}! _ _-23 #0.0}A}" _ _-#0.0}A}# _ _-#0.0}A}$ _ _-#0.0}A}% _ _-#0.0}A}& _ _-#0.0}A}' _ _- #0.0}-}( _ _-}}) }_ _-#0.0-;_-?\ _ @_-@ }A}* }_ _-#0.0}x}+_ _-#0-; ?\ @_}}, ??v_ _-̙#0-; ?\  @_-@ }A}- _ _-#0}A}2 e_ _-#0}A}4 a_ _-#0}}5 ???_ _-#0???-; ????\  ???@_-@ ???}-}6 _ _-}-}7 _ _-}A}8 _ _-#0}A}9 _ _-?#0}A}: _ _-23#0}-}; _ _-}U}< _ _-#0-; }}= _ _-#0???-; ????\  ???@_-@ ???20% - Accent1O20% - Accent1 ef %20% - Accent2O"20% - Accent2 ef %20% - Accent3O&20% - Accent3 ef %20% - Accent4O*20% - Accent4 ef %20% - Accent5O.20% - Accent5 ef %20% - Accent6O220% - Accent6  ef %40% - Accent1O40% - Accent1 L %40% - Accent2O#40% - Accent2 L湸 %40% - Accent3O'40% - Accent3 L %40% - Accent4O+40% - Accent4 L %40% - Accent5O/40% - Accent5 L %40% - Accent6O340% - Accent6  Lմ %60% - Accent1O 60% - Accent1 23 %60% - Accent2O$60% - Accent2 23ٗ %60% - Accent3O(60% - Accent3 23֚ %60% - Accent4O,60% - Accent4 23 % 60% - Accent5O060% - Accent5 23 %!60% - Accent6O460% - Accent6  23 % "Accent1AAccent1 O % #Accent2A!Accent2 PM % $Accent3A%Accent3 Y % %Accent4A)Accent4 d % &Accent5A-Accent5 K % 'Accent6A1Accent6  F %( AvertissementA Avertissement % )CalculwCalcul  }% * Cellule lieM Cellule lie }%+ Commentairep Commentaire   ,EntrewEntre ̙ ??v% -InsatisfaisantOInsatisfaisant  %.&Milliers/. Milliers [0]0( Montaire10 Montaire [0] 2Neutre?Neutre  e%"Normal3, Pourcentage4 SatisfaisantK Satisfaisant  a% 5SortiewSortie  ???%????????? ???6Texte explicatifG5Texte explicatif % 7Titre1Titre I}% 8Titre1CTitre1 I}%O 9Titre2CTitre2 I}%? :Titre3CTitre3 I}%23 ;Titre45Titre4 I}% <TotalMTotal %OO= Vrification Vrification  %????????? ???XTableStyleMedium9PivotStyleLight16`K9Feuil1!!* DonnesExternes1=MMcc PK![Content_Types].xmlj0Eжr(΢Iw},-j4 wP-t#bΙ{UTU^hd}㨫)*1P' ^W0)T9<l#$yi};~@(Hu* Dנz/0ǰ $ X3aZ,D0j~3߶b~i>3\`?/[G\!-Rk.sԻ..a濭?PK!֧6 _rels/.relsj0 }Q%v/C/}(h"O = C?hv=Ʌ%[xp{۵_Pѣ<1H0ORBdJE4b$q_6LR7`0̞O,En7Lib/SeеPK!kytheme/theme/themeManager.xml M @}w7c(EbˮCAǠҟ7՛K Y, e.|,H,lxɴIsQ}#Ր ֵ+!,^$j=GW)E+& 8PK!EB theme/theme/theme1.xmlYOo5#M6iuSe7 id[ԣwƻ3lo( 7P%PEWٞO#6=\q0OfEGU ^4 ֮|S3:/_/ O1Lʵ05t:Ng8 aVf\o4Nnk _yj-Xd)rm> z ◦k+K o@1Zͩge/rPzf1ਗ਼k ~EȰ)R pnI_PU7v*SSjfBbBo_x^xzѣ?>z-]꫏/_=/]/}T!&ϟ߾yR_{4!!h'7_rg[ы1VhWcVk_y$*COX|+N<Eni^{tX\\U8Le5 tߎ'6éC;GHPuK>PE-L+Uң}ϑ&6ivWLf>jqV #! 0GƛxpRE*6VqcT`!au""e՚|Ui-6N|Ptm̹{'Yv}GbU|8ix>9ܣCO7#m ˿ M*3 e2nPBbX & XmN/hP1%ghΟMDaaVB[݈fRǭ2pzk0Yj hy 5M0#ֻ-Y.D2m=m1R+2|Fwn+p;\v 뽉 XIpd,E`eq~1@!Κ0L2ԍfC nb0(Xsؘuzڰ2!u *wjNVEPEmz9XXgǤ=% klgF>橔qtl$v0_*'n'LFpm^9:CHPG*lCZ2wz^,I2+3+v9pI&iGP7޼R^wc6a/EvY^^w#ŤjQ̜R9E8ckjp`dep?*Bf?N;[|kmi'8ILUm:i;ݒ1ekNc3*l|v^,^s {s3U =05(20泖7(l["`$ÁH[>CyvPuh`h%HxaTp\ô/~v: ݺ,Vm{vatDUGidtuܡ6>N:'$BA*LiP]# Fh 憏. ~!0:#,@ N 2|@   Feuil1ggD TCD./ThisWorkbook>Feuil1Barre_d_outils %&  !"#$&'()*+,-./0123456789:;<=>?@ABCDEGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoqstuvxyz{|}~DK/d@/#xME (SLSS<N0{00020819-0000-0000-C000-000000000046} h@ l%H@ " " (8Ajoh@AnoPHAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2 P Sub B_AddinInstall() T C eerBarreOutils EnRd %u&E ff'd#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "Feu@il1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2: $*B@,Pivot $( }dxME((@ DYear7>(@ KT FVariable7>(@KT FSector7>(@ DVariable7>(@KT FRegion7>(@ DVariable7>(@KT FSector7>(@ DRegion7>(@ DVariable7>(@KT FImporter7>(@ DExporter7>(@ DVariable7>(@KT FImporter7>(@ DSector7>(@ DExporter7>(@ DVariable7>(@KT FVariable7>(@ DRegion7>(@n0 Variation (%)7> H9@0.00_ ;[Red]-0.00\ 9Jq9L9NqoInitial R%<%> H9@9T V9# ##09Jq`oX  Z Somme Initial R%<%>(@o` ^(`] R!dec' b R%<!d b Somme InitialG'j b GAPcGAXjkXoPHvAttribute VB_Name = "TCD" Public BoolInitial As8ean Sub Create(Cas>Integer), H.DescriptionMacro enregistre le 09/02/2007 par GouelQPro cData]Invoke_Func] \n149 Dim @DonneeV@ariant C ctSngc ODBC;" & "DBQ=Dossier  riv@er={Miosoft Text D (*.txt; *.cs0v)};QM= @Array(:, "SELECT * FROM >resNoms)?("[ Sheet .PivotTableWizard SourceType:=xlExternal, _U:=%Dtptinap:=ICells@(1, 1) nq:=" , BackgroundQuery:= False"With 1s(= :Field! Scenzo").Orient-xlColumn = YeaBr PageF S@elect e1L"B`PRowC2QS@oQ% 33Rsonc~xl4(7/5Imporh$a>T|Ex?IS6??jc9,Pldf7_D?I En"+(%)A `maG.NumberFormat0.00_ ;@[Red]-\ a AA.HGra = e .`9Sub5}i~(T Actl2Xc Bd@^)[4 V .Posi= R.z`xlSum =#p ##0Q Ԉno k Somp HiddeAtestAppe.ScreenUpdArObj\p If b<> "dec" Th z " Each r InjBFs 0r%HTrux NrYCall T EP|`eqIf  x]@` |!~.t tTCD9999q lTCD$|!%~.xle xA9 Aggregation9Aggregation of results files9crq lTCD$|!%~.x x9 initialtest9Show/Hide initial9qoTCD$|B@oh`Attribute VB_Name = "Barre_d_outils" Option Explicit Sub CreerXOR()  Dim T. As Command, N ewBtn *Button7Set7=6s.AddWith j.TCD(Top0(Left VisibBlyTrueEnd 3HZI("7).ControlQ(Type:=mso ?m]%-SFaceIdK577a OnAcAggrega p Caɋ of results pfile4j208T5initi@altestT5Show/Hide~ 2AEE,ff@SѣOrr0or RFNe.xEGstDeletH LCdjUserForm1 Fq GetPathH__SRP_2pf__SRP_3rxME(SPSSS0{37BE3ED8-19E5-42F0-89FA-40A48E65C14D}{AECB073A-A25A-4B05-AECF-FFADDBB864B6} X`  (`` hii% %( "0 @P "X `px "   (8 " @ H Xhpx]@  ! t  , 9o(X A@r'o]'  !  %  ' @   % +k  A@ro(   A@r'kox$Attribute VB_Name = "UserForm1" " Bas0{37BE3ED8-19E5-42F0-89FA-40A48E65C14D}{AECB073A-A256B05-$F-FFADDBB864B6} d@GlobalSpacoFalse CreatablPredeHclaIdTru BExpose0TemplateDerivCustomizDP Sub All_Click() Dim i As Integer = 0 To ListBox1.Coun`t - 1 Selected(i)k Next i End: BCanceCUnloahd M *=& HOk1, j 5j&0-7If8Then@* @=+CC ReR@yve ScenariosT(1QjZ HjJ WOA;If@EP FB_QueryCl@(CX A, ModeH%@:= vb@HmControlMenu < iMi .(rU~| fListA@rU , pay,y ,p4$`(` n<C dGetScenariosw* FileAggregation Z_VBA_PROJECTXdirxME(<<< <%8  `##i`@   ` 0@@ `PP`  ΕI 0 "  *(X px*     84P    48 @ HPX "` hx   ] `]P]]Scripting.FileSystemObject$.  %.'  !  *dec_var.csvG  'j8 KTNo scenario foundA@'KT  !  *dec_var.csv     $+kphS`'   !  *dec_var.csv  '     $ +kAno  !9   $C@ q@ B@o( qAttribute VB_Name = "GetScenarios" Public H() As Sng Dim Nb8*Integer  lubt(Cheminx) 6 Ai <Myfso$Set nbR. d T4SHGetPathFromIDListA@SHBrowseForFolderAxRR ME,(@6 < <%+pX ixi+,p, )A%h0hHh`hx hhhh H` ``+`!!I  %``b``&@H(X(H(x PΕI $*\Rffff*0q491495d2(*\Rffff*0q491495d2\0D   H H   "(08@` p B    ( @Pp x  $  &   0HPh  Macro provenant du chapitre 12 de VBA pour Excel 2003, il existe une faon plus simple d'obtenir un dossier partir d'Excel 2002x] (dclarations API 32 bits^^0^H^`^x^^^p]]0Select results folder.' $' CancelA@'dp '&k`oXH]]] Dossier racine = Bureau (" Titre dans la bote de dialogue $Select a folder. (d  (k Type de dossier retourner ( Afficher la bote de dialogue $' Parser le rsultat$ '  $'b b $ '   $'d''kixpAttribute VB_Name = "GetPath" ' Macro provenant du chapitre 12 dpA pour Excel 2003, il exisune faon plus simple d'obtenir un dossier @ partd'K2 Opti@ExplicitPub D:As S ng'dclara4s API 32 bi@ts Dee FuncSSHvFromIDLY Lib "shell32.dll" _ Alias "A" (ByVal pidl FLong, sz Q)VHBrowseForFoldG'FElp Info5BROWS`EINFO =T0ype : hOwn27PRoot/ pszDispla^y@ EbAlT it| ulFldaggs KClHpfnKlPrmiImage0End 1SSuHb OUnD1()Dim MsgA(FichUtilisxate ,Select results fhn.A;P=##(##If  "" Then, Box "Can@><= True ElsD?@O 'If (` a(c)%p\A(bN !,Chemi;S$u@2ra @, x GpoCInteXger &~raci@= Bureau .T= 0&' P@dans la0 bo`di0alog' 2IsMing5 1 gZAa,A0@(C./!#qAƢr2 0E If bA\ElsLi" bRMÒNC5 N)i@Fw/'+i?+@-?+% ?+Call ShowUser JmDa b\ubX(!+With .Li st b" .RowSourc"bV#Z3'.Add6I@i6A i`a @ jeDatatableDestinationiCells tablename` BackgroundQuery PivotTablesw PivotFields Orientationw xlColumnFieldW xlPageField" xlRowFieldr xlDataField NumberFormatR ColumnGrand4RowGrand@Hinitial ActiveSheet%NPositionxlSum~ noinitialxlHiddenʪ initialtest k Application*ScreenUpdating! ri DataFields~ ThisWorkbook|WorkBook_AddinInstallCreerBarreOutilsbWorkBook_AddinunInstallEffacerBarreOutils=Feuil1XBarre_d_outilsF|TBar CommandBarNewBtn=CommandBarButton9 CommandBars AddrTop5VisibleControlsKmsoControlButtonnFaceIdiOnActionCaptionxDeletex UserForm1) All_Click*i`ListBox1 ListCount6SelectedY Cancel_ClickEndSub:Ok_ClickRja ScenarioskList*UserForm_QueryCloseCancel CloseMode؟vbFormControlMenu~GetPathTSHGetPathFromIDListKpidlpszPath shell32.dll+SHBrowseForFolder" lpBrowseInfor BROWSEINFOYhOwnerEmpidlRootdpszDisplayNamehr lpszTitleSulFlagslpfnlParam7iImageUObtenirUnDossier1щMsgQFichierUtilisateur_ObtenirDossierMsgBoxRbInfoCheminTxopos IsMissingSpace ChrK~ GetScenarios"|NbScenScenarnMyfso{ CreateObjectMyDiro GetFoldernMyFileFileswX ShowUserForm1J RowSource2AddItem ShowFileAggregation AggregationFSOFile%ScenLecteur |data; PremiereLigneKScenari qChDrive% WorkbooksBAfterX WorksheetsCount0v OpenTextFile writelinee AtEndofStreamreadlineKillActiveWorkbookWindowsdDisplayGridlinesUserFormNOk^All'tLabel1,Workbookkgq s  TCD0f491495ceTCDÆ ThisWorkbook0g491495cegThisWorkbook@/5 Feuil10h491495ceq Feuil10%Barre_d_outils0i0* pHd VBAProject4@j = r ΕI J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`MSForms>SFFrms3ED452EE1-E08F-@101A-8-02608C4D0BB4EFM20.DLL#Microsoft E: ^ Ob Library/;D1u00}#0#k0 A5163DCF2-5299-45CF-A26F-907FBBCC3BFD6DOCUME~1\Gouel\L OCALSTemp\VBE\Sp.exd`;!.E .`M AACOfficDODf@ia  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\FICHIE~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.6#0#C:\Program Files\Microsoft Office\Office12\EXCEL.EXE#Microsoft Excel 12.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Librarylsd6JxMEP<<<<< <<<@P% `@DD`t `p ` l ` h`d L8 `F `D `@4 (0@ꀞ@8PP$ΕI G "  0Hhx      :B8BHLT`: (8H`  x$  * 84P<   ( 8  H X$h   ] ] P ^(`Sc]ject]]@X]p'A G|j &A G|j &$'  A@ &A@:,Variable;Year;Scenario;Variation (%);Initial+3Variable;Sector;Year;Scenario;Variation (%);Initial+3Variable;Region;Year;Scenario;Variation (%);Initial+A:Variable;Sector;Region;Year;Scenario;Variation (%);Initial+>Variable;Exporter;Importer;Year;Scenario;Variation (%);Initial+EVariable;Sector;Exporter;Importer;Year;Scenario;Variation (%);Initial++Variable;Region;Year;Scenario;Variation (%)++(i+(r+(ir+(rs+(irs+(dec+( B@~ !$ *B@~_$*(  $( $*( Scripting.FileSystemObject$. res $(.csv %. $ B@    &\  $(_var.csv %.  !"b !$'  B@  B@B  B@B Ares $(.csvA@&  (  7B@H7*(, qoڳAttribute VB_Name = "FileAggregation" Public Noms(1 To 7) As Sngif, Nj4?arVqant = fCall ObtenirUnPDoss>1If True ThhExit 4( /= Left, 1 ChDrivectK @ir oLJ)A:ble;Year;Ao; (%);Initial 2S@kor3Reg[4R%y5KExporter;ImrO6)?az;;`D=bT c=.)d?aDa "Loop CloB "4A`aB&qbTCD6r 6JI6q7zVqN`w8;Excel+VBAWin16~Win32MacVBA6# VBAProjectstdole`MSFormsCOfficeuRefEdit ClFileSearchaiTCDm _Evaluate BoolInitial, TCDCreate8CasI}Donnees ConnectStringcDossierrNoms=Sheets PivotTableWizardX SourceType xlExternal SourccB 02DF8D04C-5BFAgB-BDE5@IAA@420gram Files\Fichiers com muns\hShared\OFFICE126OLq' 8.0q@&bRefEditER@/fEiq@3w 0u2p4517vP1.2C0,$\,REFEDIT -! " Control_MBGBRM0pD25BE15F6-7DBB-4256-95D9-78702A5FB46B}#F^MBM`j@@EAFK"›dTCDGbTCDU2H1 "," Æ!"+ThisWorkbookG T@i`Wkbok2o5m8@/"eFeuil1GFRhui1 2 %'  aBarre_d_outilsG! Bar e_b_` ubms2Sk4 #User@"3e@#2I/IDj#$(@ 2GetPathGG3tP$tF"-2o0T *@Scenar\io*SVnriq**? p; pYAggrejgR{G6y!ePAgrgn@#n272'_ !'] 6JY K*rU~~~~~~~~~~~~_ J&WB/   __SRP_0 __SRP_1UserForm1 !]ǔ!]f  1 1    QiyiIYTCD ThisWorkbookFeuil1Barre_d_outils UserForm1GetPath GetScenariosFileAggregation VBAProjectF /C:\PROGRA~1\FICHIE~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  i0F4C:\Program Files\Microsoft Office\Office12\EXCEL.EXEExcel q@0FC:\WINDOWS\system32\stdole2.tlbstdole  QP.E .`M C:\WINDOWS\system32\FM20.DLLMSForms 1`cQREo; /C:\DOCUME~1\Gouel\LOCALS~1\Temp\VBE\MSForms.exd 1pL-[DRCC:\Program Files\Fichiers communs\Microsoft Shared\OFFICE12\MSO.DLLOffice AEFObtenirUnDossier16C:\Program Files\Microsoft Office\Office12\REFEDIT.DLLRefEdit  %}VBxp*_k /C:\DOCUME~1\Gouel\LOCALS~1\Temp\VBE\RefEdit.exd     , SHGetPathFromIDList shell32.dll SHGetPathFromIDListA A i SHBrowseForFolder SHBrowseForFolderA A I ObtenirDossier urU pidlpszPath lpBrowseInfoMsgg  }t $(Ok NuTahoma+(Cancel+ NuTahoma+(aAll NuTahoma+0(Choose the scenarios to gather{5Tahoma+`!o(CompObjdVBFrame+PROJECTwm x5Tahoma+74OkO$ 8Cancel+]  8All( 2PLabel1+O$4ListBox1OO Feuille Microsoft Forms 2.0Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "Scenarios choice" ClientHeight = 3120 ClientLeft = 45 ClientTop = 435 ClientWidth = 4710 StartUpPosition = 1 'CenterOwner TypeInfoVer = 22 End TCDTCDThisWorkbookThisWorkbookFeuil1Feuil1GetPathGetPathGetScenariosGetScenariosFileAggregationFileAggregationUserForm1UserForm1Barre_d_outilsBarre_d_outilsPROJECT4PROJECTlkSummaryInformation(DocumentSummaryInformation8 ID="{4681801D-C8E9-477B-B20E-5FF8BE10E6B1}" Module=TCD Document=ThisWorkbook/&H00000000 Document=Feuil1/&H00000000 Module=GetPath Module=GetScenarios Module=FileAggregation Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Module=Barre_d_outils HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="B4B645134DC351C351C351C351" DPB="686A995A9A5A9A5A" GC="1C1EEDBB156E166E1691" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005    A};VBE;&H00000000 [Workspace] TCD=22, 29, 866, 654, ThisWorkbook=66, 87, 698, 712, Feuil1=0, 0, 0, 0, C GetPath=44, 58, 888, 683, GetScenarios=220, 290, 1064, 915, FileAggregation=88, 116, 889, 741, Z UserForm1=154, 203, 1042, 708, , 132, 174, 1020, 679, Barre_d_outils=154, 203, 786, 828, EFOh+'0@HXh GouelGouelMicrosoft Excel@)7L@t!]՜.+,0 PXh px cepii Feuil1 Feuilles de calcul F.Feuille de calcul Microsoft Office Excel2003Biff8Excel.Sheet.89qCompObjz