ࡱ> R !    "#%<'()*+,-./0123456789:;$=>?@ABCDEFGHIJKLMNOPQSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry F`p w@gG{@/Workbook _VBA_PROJECT_CUR"{{VBA{{  !"#$%&'()*+,-./012345689:;<=>?@ABCDEFGHIJKLMNOPQRSTUWXZ[\]^_`abcdefghijlmnopqrstuvwxyz{|~ I@\p Pascal Robin Ba= ThisWorkbook=x;U#<X@"1Arial1Arial1Arial1Arial1Arial1Arial#,##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.00\ [$DM-407]#,##0.00\ [$Esc.-816]"Vrai";"Vrai";"Faux""Actif";"Actif";"Inactif"[$fl-413]\ #,##0.00_-#,##0.00\ [$FB-80C]#,##0.00\ [$F-140C][$L.-410]\ #,##0.00[$IR-1809]#,##0.00#,##0.00\ [$mk-40B]#,##0.00\ [$pta-40A][$S-C07]\ #,##0.00                + ) , *  !       `Feuil1 Feuil2 Feuil3!!`i I@  !  dMbP?_*+%MCanon Bubble-Jet BJC-4100@n yyhh@MSUDCanon Bubble-Jet BJC-4100d" dhh<~?<~?U }            J >@7 Feuil1 I@ ;  dMbP?_*+%"<~?<~?U >@7 Feuil2 I@ O  dMbP?_*+%"<~?<~?U >@7 Feuil3 rU ThisWorkbook __SRP_27__SRP_3VFeuil1Yar&k Finnois - Euros9>> 8 4!,%6. L&ire - Euros9>Euq 8 4!,%6.  SCEuros9@qPEEuros9@q 8 4!,%6.`Li&vre Irlandaise - Euros9>&Schilling Autrichien - Euros9>@`&Conversion Devises en Euros9>QAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomi6zD2P Sub _Bef oreCl8(Cancel As Boolean) For Each ctr In Application.CommandBa rs("Ts") ntrols If Not.Built Then+.DeletEnd If Next  W ]Open((Set no0uvopT&(.Add(Type:@=msoCo-P@opup, AYorary:=N0With/.CLapAA"&@versE Devises en EurosA1 *opt>5 ,L#G"Button, 1, A!H"GQ # Deuts@lMark -B!!A .OnAc.DM/()D)6)t6T)Escudo'lEs'Q4?(43F&lorin<FloZ(11T(Franca(<2_^2t("&BelgeZB(77L&iruAaa*eLi88i&vIrl`Na`)VIRZ9_^9S &k FinnoisMF10 Z3%R10 `"&@Peseta/ IJPE/ thG1}=s_\_\q& =n" Schilling Au e\gSC  ]rt!h9aI3 1a i  1 y  aQ  ! 2!34!aI `` IW0 0  hc<%' %'%',%L %\`:d%tx! x dt H` \ $Q)xt`\q:d%lC q6d%(<%'%'%c%=B N5q:d %lC:d %lC q6d%(<%'%'%c%=B pN5pql:d %llC:d%llC ql6d%(<%'%'%c%=B \N5\qX:d%lXC:d%lXC qX6d%(<%'%'%c%=B HN5HqD:d%lDC:d%lDC qD6d%(<%'%'%c%=B 4N54q0:d%l0C:d%l0C q06d%(<%'%'%c%=B  N5 q:d%lC:d%lC q6d%(<%'%'%c%=B  N5 q:d%lC:d%lC q6d%(<%'%'%c%=B N5q:d%lC:d%lC q6d%(<%'%'%c%=B N5q:d%lC:d%lC q6d%(<%'%'%c%=B N5q:d%lC:d%lC qPb8 H4\p  (xt`\44PrU @(`#$A` d (  13#<Sg;P%eFSg;P%exSg;P%eSg;P%eME,@[LSS6"Franc &Belge - Euro9> 8 4!,%6.4!, F&lorin - Euro9>urFloEuros9@qx q 8 4!,%6.&Deutsch Mark - Euro9>DMEuros9@ q 8 4!,%6.&Escudo - Euro9>EsEuros9@ q 8 4!,%6.&Peseta - Euros9>LiEuros9@ 8 4!,%6.  MFEuros9@IREuros9@qManTr[1#EOW~F FDOW~FxME (SLSS<N0{00020820-0000-0000-C000-000000000046}(%H@h % %Xp@8; xAttribute VB_Name = "Feu@il1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Tr[1#GOW~F FFOW~FxME Feuil2kaFeuil3}aEurTtDev_parob &__SRP_4 /(SLSS<N0{00020820-0000-0000-C000-000000000046}(%H@h % %Xp@8; xAttribute VB_Name = "Feu@il2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Tr[1#IOW~F FHOW~FxME (SLSS<N0{00020820-0000-0000-C000-000000000046}(%H@h % %Xp@8; xAttribute VB_Name = "Feu@il3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU $`8; $*\Rffff*0:3b975690*\R1*#175*\R1*#228*\R1*#c0*\R1*#b8*\R1*#cd*\R1*#ce*\R1*#b3*\R1*#c4*\R1*#c0*\R0*#13*\R1*#8c*\R1*#b8*\R1*#c0*\R1*#cd*\R0*#14*\R0*#1*\R0*#e*\R1*#ce*\R1*#b3*\R1*#c4*\R1*#229Q dP T` h@ hH 4 h" R (T! )P h p x : ) + 4( 8&8 p 4    9   D,.1xME @ (L V6  Jtp%`Nrfr L`PXl2000`R@h@ Ud%@XT @ZD `\@@^0 02@` 00`bH00@@ 4.@ GR%P  `kVVY`Hz Jt %`Nr`Pl`Rh Ud8%@XT @ZD `\X@@^0 @` `b8 H@ @ %% `kTTZ`Hz JtP`Nr`Pl`Rh UdX@XT @ZD `\(@@^0 @` `bH@ @ `|JUU`Hz Jt%`Nr`Ppl`RXh Ud%@XT @ZD `\@@^0 @` `bXH@X @ `(kVV`Hz00 Jt(00%`Nr9#`Pl F`RhER UdMI%@XT \V@ZD E6`\`@l @^0 Ap@` `b H00@ -0@ 00      F_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_-(hlnjptxF_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_-F_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_-@  o@  `8!kUU`Hz#2 Jth og%`Nros`PP l\O`R8 h.D Ud ft%@XT je@ZD `\ @@^0 @` `bH@8 @ `Hz Jt e1 `(kTT%`Nr`P l`R h Udp %@XT 8 @ZD P `\@ @@^0 @` `bH@ pa@ _@`H Jh %`N`PP %% `| TT`R8  T @X @Z `\ @^ @` `bH@ %  `|JTTX`Hz JtH%`Nr`P0l`Rh Ud%@XT @ZD `\@@^0 @` `b"H@ @ @  `%k QQ`Hz Jt `Nr`Pl`Rh Ud @XT 0@ZD `\0@@^0 @` `b%H@ @  x X   ( ( 0HF_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_-@ @@ @  F_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_-@ @ @ @ @ @ @X vp0@ X ~v@ @ X@ 1]_-@ _-;_@@p -@_-@(` @XP @p@ @0 @ @ $ @O 7BXCF_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_-(hlnjptx@p @ F_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_-@ 1]_-@ _-;_@  -@_-;_-@_- (@P @h @ 1]_-@ _-;_@@ -@_-@ 1]_-@ _-;_@ -@_-pXpx(X8@~v@ @ @ @( @pp @X` @P @@ @0 @ @ $ @O 7CD @x(0H(Xh@8(hlnjptx@ @P @ @@ @  @p @ @ @ @ @ @ (@ X~v@h @ @ @ @p @` @P @(@ @0 @ @ @$ @O h7hBC X@ph( p (hlnjptx@ @ @ p@ @  @ @ @@ ` @X @P @ @ p@  P~v@ @ @ @8 @ p @h ` @ P @ @ @0 @ @ ! # @O ! 6(! AB  P h p 8"!#h" "$P#$#h#(hlnjptx@" @#  @ @P" @  @" @" @ # $F_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_- "@8# @0$ @# @x# #P#@ $x#!~v@# @ @$ @$ @`$p @H$` @x$P @$@ @0 @ @ $$$@O $$7%$Bx#C`Hx`&&&&H&( 'x(p'8'F_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_-(hlnjptx@0& @' @ @x& @  @& @& @& @' @( @' @H' `' '@ (H'&~v@' @ @' @' @0(p @(` @H(P @`(@ @0 @ @ (x($@O ((7((BH'C      "0  }X  ,( 0@HP X`h "`ap2    PL )0HP ` :Ep&D  8D @P ` h p P  " %(.xa@ RPH) 8 hx ,H h"R 9(T!@)  :) +4  8&0 h4 9   "( }P " ,0  8HPX `hpx2    PL )8PX h <E&D  :D(& HX h p x P  " %%0.cH R``e )0  j .x j(" HR 8(PT!x)X a:) +4 8& @ 4X    9       "! }(! "! ,!"  " "("0" 8"@"H"P"2h"x" " " " PL" )#(#0# @# :EP#&D# ### 8D#  $0$ @$ H$ P$ P`$$ $ "$ %$$%.cX 8%P& P jh& ,( j&"@(''R( 9)(()T!P))))) Hb:p*)* +*4* 8&* xe 4 + X+x+9+ ++ + "+ }+ ", ,,,  ,,,, ----20-@- P- `- p- PL- )--- . :E.&DX. ... 8D. .. / / / P(/x/ / "/ %//%/.d(% R0 %)0 ' jH' ,X( ^` j'"(0H`pR 9(T! )x ):@) +4 8&  4 @`9h x  " } " ,   2( 8 H X PLp )  P` 8EX`&D8 `p 6D     P  ( "8 %HX%x.8d R0%)x  j1 *2 j(2"21222R3 9X3(p3T!3)344 4:4)5 + 5405 8&@5 x5 45 5595 6 6 (6 "86 }`6 "7 , 7@7  H7X7`7h7 p7x777277 7 7 7 PL7 )H8`8h8 x8 :E8&D8 899 8D 9 X9h9 x9 9 9 P99 9 ": %: :%@:.hd Rp:)@; 2 jX; *; j;"4p<<<<R< 9 =(8=T!`=)=== b:>)> +>4> 8&? 8? 4P? ??9? ?? ? "? } @ "@ ,@A  AA A(A 0A8A@AHA2`ApA A A A PLA )B B(B 8B <E=&DB BBB :D > C(C 8C @C HC PXCC C "C %CC%D.d/ RM/)(Dh< jhD ,O j`M" XDD0MHMMRO  P(8PT!`P)PXMM W:Q)Q +Q4Q 8&R 8R 4PR RM9R RR R "R }S "S ,SS  TTT T (T0T8T@T2XThT xT T T PLT )UU U 0U :EP&DpU UUU 8DQ VV (V 0V 8V PHVV V "V %VVV.dX: W/W`D jD ,HB j`E" `>p>BxBBRE @D((FTPFFCF  :pGG GG 8G  H 48H pHHH HH H "H I I II IJJJ J J(J0JHJXJhJ xJ J PJ JKK K <F&pK KKK :G LL  L(L 0L P@LL L L LLL.dh: N`:Mh> jX 0K jY"HGXG0KHKXKRxY 9M(HQT!Y)pQK@U 0:U)HU +`U4Z 8&Z Z 4[ 8[X[9`[ p[[ [ "[ }[ "\ ,\\  \\\\ \\\\2] ] 0] @] P] PLh] )]]] ] :E(Z&D]  ^0^@^ 8DhZ P^`^ p^ x^ ^ P^^ ^ "^ %__%8_.(e D RP_D) `PGex $ J! J!*Esc.*====o|M========= Dveloppe par PRobin@tibco.fr La Montagne Novembre 2000 ==========o`] (tr](@ric]Xp==]====|]@Xx]]](@]F_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_-X (!d!f Procdure impossible xcuter'RAucun classeur ouvert... h hl'opration est annule !'P P l n RA@j|hk`](ts f]@Xperon] E]form (!d!f simProcdure impossible xcuter'R1A propos de ConvertirEnEuro, veuillez noter que :'Ril3 P p n RA@j t!v.Te t!x!f'N+Veuillez patienter, conversion en cours.... ((z H N  H$x!| ~ H$x!| '^F est cache'\k H$x!'`F est protge'\kP ^ `Feuille cache ou protge'R  La feuille H$x! \ h8souhaitez-vous slectionner la prochaine feuille...(Oui) h&...ou abandonner la conversion ? (Non)'P ((r P   R$jRT H 'HRTnk H N Gj H$xB@H]p v!. $Pas de donnes'R'Il n'y a pas de montants sur la feuille  H$x!'P P p n RA@jk J  J!' $ J! J!*Fe wJ<@ (% J( b J( X 'X Z 'Z b J( Z 'Zk HI==== Traitement termin, confirm par un message ========================x TB@H ((r ((zFin de la conversion'R X Zdkd    ?Les montants ventuellement trouvs ont t convertis en Euros. h h Nombre de cellules converties :  X h*Nombre de cellules mises au format Euro :  Z'P P n p RA@jo]F_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_-Aucun classeur ouvert... h hl'opration est annule !'P_-;_ P l n RA@j|kKSeuls les montants formats en Deutsch Mark (DM) seront convertis en Euros. h;Les formules trouves seront simplement formates en Euros.'PFSeuls les montants formats en Peseta (pta) seront convertis en Euros. h;Les formules trouves seront simplement formates en Euros.'P1A propos de ConvertirEnEuro, veuillez noter que :'R P p n RA@j t!v.T t!x!f'N+Veuillez patienter, conversion en cours.... ((z H N  H$x!| ~ H$x!| '^F est cache'\k H$x!'`F est protge'\kp ^ `Feuille cache ou protge'R  La feuille H$x! \ h8souhaitez-vous slectionner la prochaine feuille...(Oui) h&...ou abandonner la conversion ? (Non)'P P   R$jRT H 'HRTnk H N Gj H$xB@H] 8 v!. $Pas de donnes'R'Il n'y a pas de montants sur la feuille  H$x!'P P p n RA@jk  J  J!' $ J! J!*DM* %eK? (% J( b J( X 'X Z 'Z $ J! J!*DM*e b J( Z 'Zk HI==== Traitement termin, confirm par un message ======================== TB@H ((r ((zFin de la conversion'R X Zdk    ?Les montants ventuellement trouvs ont t convertis en Euros. h h Nombre de cellules converties :  X h*Nombre de cellules mises au format Euro :  Z'P P n p RA@jo(a========= Avec la Contribution (efficace) de Frdric Sigonneau =================================]F_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_- (!d!f Procdure impossible xcuter'RAucun classeur ouvert... h hl'opration est annule !'P P l n RA@jk1A propos de ConvertirEnEuro, veuillez noter que :'R P p n RA@j t!v.T t!x!f'N+Veuillez patienter, conversion en cours.... ((z H N  H$x!| ~ H$x!| '^F est cache'\k H$x!'`F est protge'\k ^ `Feuille cache ou protge'R  La feuille H$x! \ h8souhaitez-vous slectionner la prochaine feuille...(Oui) h&...ou abandonner la conversion ? (Non)'P ((r P   R$jRT H 'HPRT@n8k0( H N Gj H$xB@H] v!. $Pas de donnes'R'Il n'y a pas de montants sur la feuille  H$x!'P P p n RA@jkH J  J!'' Conversion Florin (Hollande) vers Euro*D] Cli@ (% J( b J( X 'X Z 'Z]0orin]H`xo* b J( Z 'Zk0( HI==== Traitement termin, confirm par un message ======================== TB@H ((r ((zFin de la conversion'R X Zdkd    ?Les montants ventuellement trouvs ont t convertis en Euros. h h Nombre de cellules converties :  X h*Nombre de cellules mises au format Euro :  Z'P P n p RA@j&Conversion Escudo (Portugal) vers Eurob==================================================================================================b==================================================================================================b==================================================================================================-Conversion Deutsch Mark (Allemagne) vers Euro`b==================================================================================================]========= MACRO COMPLEMENTAIRE DE CONVERSION DE DEVISES EN EUROS ============================c===================================================================================================c===================================================================================================]Xp]](@X]F_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_-p (!d!f Procdure impossible xcuter'RAucun classeur ouvert... h hl'opration est annule !'P P l n RA@jkGSeuls les montants formats en Escudo (Esc.) seront convertis en Euros. h;Les formules trouves seront simplement formates en Euros.'P1A propos de ConvertirEnEuro, veuillez noter que :'R P p n RA@j t!v.T t!x!f'N+Veuillez patienter, conversion en cours.... ((z H N  H$x!| ~ H$x!| '^F est cache'\k H$x!'`F est protge'\k ^ `Feuille cache ou protge'R  La feuille H$x! \ h8souhaitez-vous slectionner la prochaine feuille...(Oui) h&...ou abandonner la conversion ? (Non)'P ((r P   R$jRT H 'HXRTHn@k80 H N Gj H$xB@H] v!. $Pas de donnes'R'Il n'y a pas de montants sur la feuille  H$x!'P P p n RA@jkP J  J!' $ J! J!*fl* ^2@ (% J( b J( X 'X Z 'Z $ J! J!*fl*e b J( Z 'Zk80 HI==== Traitement termin, confirm par un message ======================== TB@H ((r ((zFin de la conversion'R X Zkdk    ?Les montants ventuellement trouvs ont t convertis en Euros. h h Nombre de cellules converties :  X h*Nombre de cellules mises au format Euro :  Z'P P n p RA@jX $ J! J!*Esc.*ent conc===================================================================================================c===================================================================================================0-0000c=================================================================================================== o(]in]o2.c===================================================================================================1% Conversion Francs (France) vers Eurok& Conversion Franc (Belgique) vers Eurok]F_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_-F (!d!f 1Procdure impossible xcuter'RAucun classeur ouvert... h hl'opration est annule !'P P l n RA@j|$k$DSeuls les montants formats en Francs (F) seront convertis en Euros. h;Les formules trouves seront simplement formates en Euros.'P'P1A propos de ConvertirEnEuro, veuillez noter que :'R, P p n RA@j t!v.To t!x!f'N+Veuillez patienter, conversion en cours.... ((z  H$x!| ~ H$x!| : ms'^F est cache'\ k(" H$x!'`F est protge'\k! ^ `= TrFeuille cache ou protge'R   La feuille H$x! \ h8souhaitez-vous slectionner la prochaine feuille...(Oui) h&...ou abandonner la conversion ? (Non)'P _  ((r & "s P   R$j la prRT H 'H  RT n k  H N Gjcati H$xB@H](@ v!.as $sagePas de donnes'R, 'Il n'y a pas de montants sur la feuille  H$x!'P P p n RA@jk J  J!'oTo  $ J! J!*FB* ׁ+D@ (% J(Va b J(f i X 'Xen Z 'Z  $ J! J!*FB*e b J( pla Z 'ZAck H If I==== Traitement termin, confirm par un message ======================== TB@Ha pas  ((rs sur ((z" _ Fin de la conversion'Rheet X Zkdk    ?Les montants ventuellement trouvs ont t convertis en Euros. h h Nombre de cellules converties :  X h*Nombre de cellules mises au format Euro :  Z'Pell. P n p RA@jHSeuls les montants formats en Schilling (S) seront convertis en Euros. h;Les formules trouves seront simplement formates en Euros.'Pc===================================================================================================rouve]8 P p ancs]   uroc=================================================================================================== o# Conversion Lire (Italie) vers Euro]  ]  8 ]F_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_-P (!d!f Procdure impossible xcuter'RAucun classeur ouvert... h hl'opration est annule !'P P l n RA@j|8k0MSeuls les montants formats en Lire Italienne (L.) seront convertis en Euros. h;Les formules trouves seront simplement formates en Euros.'P 1A propos de ConvertirEnEuro, veuillez noter que :'R P p n RA@j t!v.T t!x!f'N+Veuillez patienter, conversion en cours.... ((z H N  H$x!| ~ H$x!| '^F est cache'\kH H$x!'`F est protge'\k ^ `Feuille cache ou protge'R  La feuille H$x! \ h8souhaitez-vous slectionner la prochaine feuille...(Oui) h&...ou abandonner la conversion ? (Non)'P ((r P   R$jRT H 'H RT n k  H N Gj H$xB@H]h  v!. $Pas de donnes'R'Il n'y a pas de montants sur la feuille  H$x!'P P p n RA@jk J  J!' $ J! J!*L.* GzA@ (% J( b J( X 'X Z 'Z $ J! J!*L.*e b J( Z 'Zk HI==== Traitement termin, confirm par un message ========================8 TB@H ((r ((zFin de la conversion'R X Zdkd    ?Les montants ventuellement trouvs ont t convertis en Euros. h h Nombre de cellules converties :  X h*Nombre de cellules mises au format Euro :  Z'P P n p RA@jc===================================================================================================es tro$ Conversion Punt (Irlande) vers Euros.'c===================================================================================================o]   ]( @ X ]x  ]   ]F_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_- (!d!f Procdure impossible xcuter'RAucun classeur ouvert... h hl'opration est annule !'P P l n RA@j|PkH $ J! J!*IR*L.)  $ J! J!*IR*eseront o]8 P p P1A propos de ConvertirEnEuro, veuillez noter que :'R P p n RA@j t!v.T t!x!f'N+Veuillez patienter, conversion en cours.... ((z H N  H$x!| ~ H$x!| '^F est cache'\kh H$x!'`F est protge'\k0 ^ `Feuille cache ou protge'R  La feuille H$x! \ h8souhaitez-vous slectionner la prochaine feuille...(Oui) h&...ou abandonner la conversion ? (Non)'P ((r P   R$jRT H 'HRTnk H N Gj H$xB@H]  v!. $Pas de donnes'R'Il n'y a pas de montants sur la feuille  H$x!'P P p n RA@jk J  J!'& Conversion Peseta (Espagne) vers Euro*L] 8 8j3? (% J( b J( X 'X Z 'Z]   J]Ph*L.*| b J( Z 'Zk HI==== Traitement termin, confirm par un message ========================X TB@H ((r ((zFin de la conversion'R X Zkd P n p RA@j (!d!f joc===================================================================================================ises a]0PPc===================================================================================================c===================================================================================================]F_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_-Procdure impossible xcuter'RAucun classeur ouvert... h hl'opration est annule !'Pion P l n RA@jk $ J! J!*pta*) se $ J! J!*pta*eront so] sim1A propos de ConvertirEnEuro, veuillez noter que :'Rnverti P p n RA@j t!v.T t!x!f'N+Veuillez patienter, conversion en cours.... ((z H N en co  H$x!| ~ H$x!| $x'^F est cache'\k H$x!'`F est protge'\k ^ ` eFeuille cache ou protge'R  La feuille H$x! \ h8souhaitez-vous slectionner la prochaine feuille...(Oui) h&...ou abandonner la conversion ? (Non)'Pu ab ((ra conv P   R$j RT H 'H@RT0n(k  H N Gj H$xB@H]x v!. $Pas de donnes'R'Il n'y a pas de montants sur la feuille  H$x!'P P p n RA@jk8 J  J!'j]0Hseta]`xs ] J 1Zd@ (% J( b J(D@ X 'X Z 'Z* Conversion Schilling (Autriche) vers Euro| b J( Z 'ZRk  HI==== Traitement termin, confirm par un message ======================== TB@Hsage = ((r====== ((zFin de la conversion'R X Z P n p RA@j (!d!f Zj]hnt (]Eu|c===================================================================================================re de ]rmatkk    ?Les montants ventuellement trouvs ont t convertis en Euros. h h Nombre de cellules converties :  X h*Nombre de cellules mises au format Euro :  Z'P    ?Les montants ventuellement trouvs ont t convertis en Euros. h h Nombre de cellules converties :  X h*Nombre de cellules mises au format Euro :  Z'P% Conversion Mark (Finlande) vers Euro]F_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_-0 (!d!f Procdure impossible xcuter'RAucun classeur ouvert... h hl'opration est annule !'P P l n RA@j $ J! J!*mk*se ou  $ J! J!*mk*eProcdure impossible xcuter'R P l n RA@j1A propos de ConvertirEnEuro, veuillez noter que :'R P p n RA@j t!v.T t!x!f'N+Veuillez patienter, conversion en cours.... ((z H N  H$x!| ~ H$x!| '^F est cache'\ H$x!'`F est protge'\kp? ^ `Feuille cache ou protge'R  La feuille H$x! \ h8souhaitez-vous slectionner la prochaine feuille...(Oui) h&...ou abandonner la conversion ? (Non)'P ((r P   R$jRT H 'H(>RT>n>k>> H N Gj H$xB@H]H` v!. $Pas de donnes'R'Il n'y a pas de montants sur la feuille  H$x!'P P p n RA@jk = J  J!'k8 P p n RA@j t!v.T cbqm@ (% J( b J( X 'X Z 'Z1A propos de ConvertirEnEuro, veuillez noter que :'R b J( Z 'Zk<; HI==== Traitement termin, confirm par un message ========================; TB@H ((r ((zFin de la conversion'R X Z    ?Les montants ventuellement trouvs ont t convertis en Euros. h h Nombre de cellules converties :  X h*Nombre de cellules mises au format Euro :  Z'P P n p RA@jKSeuls les montants formats en Mark Finnois (mk) seront convertis en Euros. h;Les formules trouves seront simplement formates en Euros.'Pc===================================================================================================c===================================================================================================]F_-* # ##0,00\ [$-1]_-;-* # ##0,00\ [$-1]_-;_-* "-"??\ [$-1]_-;_-@_-Aucun classeur ouvert... h hl'opration est annule !'P $ J! J!*S*eront  $ J! J!*S*e t!x!f'N+Veuillez patienter, conversion en cours.... ((z H N  H$x!| ~ H$x!| '^F est cache'\k5 H$x!'`F est protge'\k5 ^ `Feuille cache ou protge'R  La feuille H$x! \ h8souhaitez-vous slectionner la prochaine feuille...(Oui) h&...ou abandonner la conversion ? (Non)'P ((r P   R$jRT H 'Hp4RT`4nX4kP4H4 H N Gj H$xB@H] v!. $Pas de donnes'R'Il n'y a pas de montants sur la feuille  H$x!'P P p n RA@jkh3 J  J!' 0L F+@ (% J( b J( X 'X Z 'Z b J( Z 'ZkH2@2 HI==== Traitement termin, confirm par un message ========================1 TB@H ((r ((zFin de la conversion'R X Z    ?Les montants ventuellement trouvs ont t convertis en Euros. h h Nombre de cellules converties :  X h*Nombre de cellules mises au format Euro :  Z'Prmat P n p RA@jh0mPX $ J! J!*FlJATTENTION : *F* Prcdemment convertissait les Francs Belges galement !!!l WProblme avec les Francs Luxembourg qui sont formats de la mme manire que les FF !!!isc ((rc%Aucun montant trouv dans ce classeur'PFSeuls les montants formats en Florins (fl) seront convertis en Euros. h;Les formules trouves seront simplement formates en Euros.'PLSeuls les montants formats en Francs Belges (FB) seront convertis en Euros. h;Les formules trouves seront simplement formates en Euros.'PXSeuls les montants formats en Livre Irlandaise ou Punt (IR) seront convertis en Euros. h;Les formules trouves seront simplement formates en Euros.'Pc%Aucun montant trouv dans ce classeur'P%Aucun montant trouv dans ce classeur'P%Aucun montant trouv dans ce classeur'P%Aucun montant trouv dans ce classeur'P%Aucun montant trouv dans ce classeur'P%Aucun montant trouv dans ce classeur'P%Aucun montant trouv dans ce classeur'Pce%Aucun montant trouv dans ce classeur'P%Aucun montant trouv dans ce classeur'Pbkxexee H Ne}Attribute VB_Name = "EurTtDev_pa@rob" DescriptionPermet la convers.de devises europennn os.OExplicit '= MACRO COMPLEMENTAIRE DENVERSION DEVISES EN EUR8OS @ _Dvelop q PRobin@tibco.fr La Montagne Novembre 20 000'AvecC(efficace) Frdri@c SigoauW` 2jC .nDeutsch Mark @(AllemB) o?%- Pub@ Sub DM() Dim i As Integer, cellRange, NbF8eui- MessageS@ng, Titv#@wshWorksheeDNbƒntso rmatsmsgVariabl okCach, okProt g Yst< FB3"_-* # ##0,00\ [$-`1]_-;S "@"-""?? _-@_- IPf Apa.3books.Count < 1 Then  ~ cdu "impossi xc r (Aucun class| ou`Dt..p." _C c&@ vbLf "l'r e"annule ! sgBox ,Ex /k+OKOnlyC8 Exit!F End If!hSeuls lM m{9 f1 n K_DM) ser$tiBQG'L u tr! Ds@*@ie/D`e衦0A p osrtirEn c[z noter que :&M%In %#S]= ActiveD.S_i"dJ INStatuPsBara[Vp=@ v cours G! d@|=aToyJ[#(i).ViT= xl!Hidd Or oP VerydGcWy`Truxe: ~`X@heWEPect;b&:D3\B& "souhaitez-vous sl@0,n. =cpy #(Oxui)F/ ou abandwr? (Non&)xq Se Case 5(H QuK5YesN>oTHj9"Is-@6', ii + 1aGoTo ZyVa7Fit^1q) W*:g=creenUpd 0w%> *!Mvpl z_utilУ|valeWAK;K.Used IsEmpty()o7$@=Pa"XA#p\!x/Il np'y aesu&*?qP/3xa]]pu1UESIn 7!.Va lul (IsN(ume()), Aw@5tB.HasPmula7:1(BberatLocal Like "*DM*" + xRЎdt / 1.95583, 2: =<to†@EP5urO1 9OO?0b/ǀM])NexQD i Trq`mq min`firmRېm GL~. GMMQ~jt7OWsinAtC"""R2 y8FE dans`+# GIntu`ement trou vs ot convertis en Euros." & _ vbLfL 4"Nombre de cellules: NbM!ants(Emis@au format OFsEnd If MsgBox Message, vbOKOnlHy + In%ion, Titre Sub ` '=^2CsA Escudo (Port@ugal) stFPublic" @ ESB() Dim i As Integer,vRanAUNbFeuilner( laQcne@#(Oui)|/ ou abandontsbn? (Non)xq ,creenUpd+ng(Seq Case 8(A~QuM5KYesNo$Kl9"IsP6+WE_ii>1GoTo ZyVa7Fib1RW/:gp/i ><. " j#avplage_utilalg7L; L.Used7 IsEmpty()8#0"PasY$es#1Il pn'y P+gsr,2"JC04@S__:r˵c A ELÔIn 7vQ.Valul (IsNumeric()) A6tB.Hasula; F(BberatLocal L@ike "*z*" I=R`d / 200.482, 2?9{ =h=/6+ ?:1#P Co4Klu"IsP6+_ii>1GoTo ZyVa7Fib1‰RW/:gp/i ><' " j#qvplage_utilAal g7M; L.Used"7 IsEmpty()10"PazsYd$@^#1Il n'y P+m%gsr,2r404ԡ$b_JraWELӔIn 7v.Valul (IsNumeric()) A6tB.HasPmula; (BberatLocal Like "*fl*" )= RPdt / 2.20371, 29 =X=/&+ :1#P wElseurOSQOO?0bDg csJ1])NexQ iqt TrbҔ`m in@\firmX p@m g`in$J`._ G__P jtFa`!t0?gtC"""R2 /8FE dans`+v#*HIvu#s ts&xj= @/U_// ts En0d IfMsgBox Message, vbOKOnly +(Information, TiHtrep Sub '=_e Convers Franc (Belgique)  EuroePublic" FB@ v cours@G. d|=To!nA %J \(i).VicU= xlHidd OrQ VerydcEdzTrue: IaXc~e`MAectt"shrgaEA"PPc{R (lLa 2f5 "}G-Na1GoTo` ZyVa7Fic1oRW/:gp/i ><' " j#vplage_utilisealg7M; L.Used7 IsEmpty:()10"P|asY$@^#1Il n'y P+gss,2s404$&_ᦪroaWEL3In 7v.Valul (IsNumeric()) A 6tB.HasPmula; F(BberatLocal Like "*FB|*" )=Rdt / 40.3399, 29 =g+ :1s3sF 8!!!Y]/ Public S ub[ks() Dim i As Integer, cellRange, NbFeuilleMessag String,p Titq&wshWorksheetNbMaants/s msgVari ab8okCach, okb@tg nsxt FB3 = "_-* # ##0,00\ [$-1]_ -;S ""-""?? _-@_-" If AppPat@.3books.Cou|< 1 Then A @*cdu@Dimpossi5 xcutXy' " j#pl{_utilise@~valgWM; L.Us ed IsEmpty()8>Pab$@^#1Il n'y a pgsr@2r404e a__.r1aWELIn [.Valu` 'ATTENTION : *F* Pr鰄emo fts=٨Belgpg2e q#(IsNumeric()) A};t .Has mula|@( beratLocal Like "*F"a%RdT / 6.55957, 2= =>{s!AElseoure/1 9//BIat -NexQ i Trfc2'min`*firm0;r m/inN}.K?d?d jt9Fa@ wyin?4lH"""2 ;Js$J  dans@+?#w*HQVNvuٓ#s 1tsp&K}F*="Nomb`q$r3tiD:S_Q%_pes autMM&XBox Message, vbOKOnly +PInformation, Tit re End Sub  '=_e Co nvers Lire (Ita lie)  EuroePublic~D@ wG cours`G. d|=ToAnA EJ@\(i).Vi!U= xlHi$dd Or/Q VeryddEzTrue: iaXc~e`Qaect t"sr懺Ea" P?c{R HlLad f5 "}G-Nxamei&gl& "souhaitez-vous0 sl$@ner lac@tD F(Oui)!vbO @ou abando{zb? (Non)6YcreenUpdXng1 Se Cas4e q($#Qu`NquYesNoKPm9"IsP^6Tc_qii >1GoTo` ZyVa7Fi$c1-oSW/:gp/i ><. " j#plage_utiliseaalgWM; L`.Used IsEmpty()8ә0"PasY$@^#1Il pn'y P+gss,$,/s404$&ɥ_raWELCIn w 7v.0Valul (IsNumeric()) A06BtB.HasPmula; (BberatLocal0{ke "*L.*"W )=Rdt / 1936.2p7, 29 =?w+ _:13sCaise4ER) ser@ cti ¥[;7LuAtZrF@sWleme D dA prob detirEn Dz nog que :'M.'In 4'$Set _= ActiveEF.Sak"L OStatusBar]Vp?@ bxǎ coursH. f ~=AV>o{A K](i).ViV= xBlHidd OrR Ver>ydgeE{Trpue: ɀc"Zc!e`eRectt"ssFE" Pecc !mLa fc= "G-Namei&ğ& "souhaitez-vous sl$Xner lac2cneE F(Oxui)!"O @ou abonz? (Non)6YcreenUpdXng1 Se Caq($#!Qu qYesNo܁ iBIs 6K ii + 1GoTo ZyVa7Fic1-SW/:gp/i >z' " j#Qpl|_utilZval@hWM; L.UsedB IsEmptty()8ă>PasYd$@^#1Il n'y P+Fhss,2s404e a__ns߁1aWELIn [`.Valul (IsNumeric()) APz6tB.HasPpmula; (#Bberat Local{ke "*IR*"_ (Rd / 0.787564, 2?9 =ȝG?:vq?Elseurob1 9ooor ?P/K1)Nex`Q iq Tr1bm in ]firm pp`mdzinTJ.9G/__ jt7Fap!uinAC`?gC"""2 /zhFSE dansp+ƺ$*HIv up3#s Ѱts&떲x汚="Nomb q$3tip:2O_Q%_Pas auT C`M&oT)vbUSub&PMark (slande) vers Euro '=_ Public Sub MFxs() Dim i As Integer, cellRange, NbFeuille$6MessagString@, Titr wsh7Worksheet9NbMontants/@ormats msgVariab8,okCach, okProtg Const Fg4 = "_-* # ##0,00\ [$-10]_-; "" -""??_-@_-" @If Appa tion.gbooks.Count < 1 Then A!Tcduim possij xcuter@ Q Aucun classe ur out..." _ & vbLf "l'opr' eEannule !sgB(ox D,Ex'@@^@4 +OK0OnlyqExitA End IfB+Seuls les m s fcs en Mark Finnois (mk) ser conA6@@ [8G4LutZr@C@sTlxeme@_G FaA pro_0 de rEn@Aöz no@d que :LrMKInKFSet = AcPtiveE.Sÿ"dJ INStatusBara[Vp=@ vb*s course G. `d|=}TozA J\( i).ViCU= xlHidd $OrP Ve|rydcEDzTrue: )`aXc~e`PQ!ecty'> " j#plage_utilise~valpgWM; L.Us edr IsEmpty()8>PasYd$@^#1Il n'y P+vgsr,2s04e a__r1aWEL#In [.Valul  (IsNumeric()) Ay6tB.HasPmula; (BberatLocal Like "*mk*" H Rdt / 5.94573, 29 =؜W+ :1Q? wElseurOrWOO?0b= /QJ])Ne&x`Q i TrbҔ`min\firm p{@`m便`in$J`. G__ jtFa`!tinC0?gtC"""R2g G"8F SE dans`+ƹ#*HIvup#Ds ts=&xj="Nomb@q$3ti@:O_Q%_P`as auT sC`I&SsŠ)vbTSub&PdPeseta (Espag~n= Public Sub PEEuros() Dim i As Integer, cell@Range, NbFeuilleHlMessag.String@, Titr wsh7Worksheet9NbMontants_@ormatsmsgVariabpXokCach, okProtg Const F=h/ = "_-* # ##0,00\ [$-10]_-; "" -""??_-@_-" @If Appa tion.gbooks.Count < 1 Then A!Tcduim possij xcuter,Aucun classeur ouvert..." _-& vbLf "l'oprO eann@ule !sgBox D,Ex@@^@4 +OKOnlyqExitA E`nd IfB+Seuls les$ ms fcs en Peseta (pta) ser cozn5iBG73LKAutrB @s@Sleme^DD ` A pro@^ de @rEn C@z noc que :JMIInIDSet = Active.S BISta@tusBarVE-pz@BTs'AAcours.Y c{=TogyA eI`[(i).ViT= xl!Hidd Or OP Veryd'cEyTrue: ~`Wc}~e`%Pectgyb] B 'F1plage_ut ilise`~va~l gWM; L.0Used" Is@Empty()8>PasY$@^#1Il n'y P+&gsr,2r404e a__Nr1aWELӔIn [.Valul (IsNum eric()), A0y6tB.HasPmulv; (BberatLocal Like "*z*"  R`d / 166.386, 2/9 =+ /:1Ra?0wElseur_2W___r= ?!K})Nex0Q i 'q! Tr!b򔀐m in`]firm p`0m:ųinDJ.)G__ j(Fap!uin1CP?gCs"""r2w G"/HXF#E dansp+$*HIvu@##s ts&ۖxֱ="Nombq$3ti`:"OO_Q%_ isau$ Q C0۟I&TcŠ)vbTfSub(%PŠS ch (AuA che) Ps/ _SCQ3(e As String, Tit"r wsh|Worksheet Dim NbMontants,,Formats4msgVariabl okCach, okProtg @Const zEuro = "_-* # ##0,00\ [$-1]_-;,""-""??+_-@_-" If Application.books.Count < 1 Then < ATcduimpossij x`cuter,M@essageYAucun classeur ouvert..." _-& vbLf "l'oprO eannule !3sgBox 6,Ex4h +OKOnly7Exit Sub End IfWSeuls les m s fss en Schill (S) ser@ con5ims73LuAtrB@sSleme^OD `A pro^ de rEn @eu'ez noc que :@KrMNJInTJAESet = AcPtive.SNbF@{ BɛStatuPsBarVE-p{@er,Ts'AAcours.3 i~oAۃE@C( i).Vié= xlBHidd$Or Ve|rydgcEyTrue: ~ g"Xc!~e`ePQectc {R kLa f5 "}G-Namei&ḡ& "souhaitez-vous sl$Dner lacneE F(Oui)!"O @ou aban8donzP? (Non)6YcreenUpdXng1 Se@ Case q(s$#!Qu ]YesNo)BIs 6!fi1GoTo ZyVa7xFiAa[o^ :^i >gyb] B 'F plage_utilisee*alΧ !k`(.UsedRange IsEmpty()8ĂqrasY$@^#1Il n'y P+Fgsr,2r404 a__nr/1aWEL cell In ;7v.Valul (IsNumeric(a)) APy6t!B.HasPmula;1(BberatLocal Like "*S*"_ Rpdt / 13.7603, 29 ='|+ :133s!?0  h9$   0l)Ch!*#*# *1l2 )''hM@0lM@ 61*# *1l/ Ch)''hM@@lM@ 6+$ H 8 l=d)4$ H   0lpr)&:% $  zkrckzD%$  dW]/kzD%$  dW]/p)6 c0C@9kzD%$  dW)5R c C@0 nCh}:kzD%$  dWl@F::`p:P@:0 `1l)6p@ " $  `''hM@$lM@^ q6lY kzpzplll kzkr2kzD%$  d) $ @W N  ]ChL*FkzD%$  dW`1l)6)''hM@@lM@ 6 4t taE !ta Ĭ'taI:2}p'@6ADCli@%(%$ #%t,5:$%t,IT(TD(DA !ta 'taI:2}'p6:$%t,ID(D t q zdn '%d " $  %f% $  %Ch%T:&]/D:&]/'O'ClR(*#*# )*FT::*Dp`1l2 6 p)''hM@@lM@ 6oT< @hTdD  0lt@  p@ 0   h9$   0l)Ch!*#*# *1l2 )''hM@0lM@ 6 *# *1l/ Ch)''hM@@lM@ 6+$ H 8 l=d)4$ H   0lpr)&:% $  zkrckzD%$  dW]/kzD%$  dW]/p)6 c0C@9kzD%$  dW)5R c C@0 nCh}:kzD%$  dWl@F::`p:P@:0 `1l)6p@ " $  `''hM@$lM@^ q6lY kzpzplll kzkr2kzD%$  d) $ @W N  ]ChL*FkzD%$  dW`1l)6)''hM@@lM@ 6 4t taE !ta Ĭ'taI:0}p'@6ADׁ+D@%(%$ #%t,5:$%t,IT(TD(DA !ta 'taI:0}'p6:$%t,ID(D t q zdn '%d " $  %f% $  %Ch%T:&]/D:&]/'O'ClR(*#*# )*FT::*Dp`1l2 6 p)''hM@@lM@ 6bT< @hTdD  0lt@  p@ h9$   0l)Ch!*#*# *1l2 )''hM@0lM@ 6-*# *1l/ Cp@ h9$   0l)Ch!*#*# *1l2 )''hM@0lM@ 6+*# *1l/ Ch)''hM@@lM@ 6+$ H 8 l=d)4$ H   0lpr)&:% $  zkrckzD%$  dW]/kzD%$  dW]/p)6 c0C@9kzD%$  dW)5R c C@0 nCh}:kzD%$  dWl@F::`p:P@:0 `1l)6p@ " $  `''hM@$lM@^ q6lY kzpzplll kzkr2kzD%$  d) $ @W N  ]ChL*FkzD%$  dW`1l)6)''hM@@lM@ 6 4t taE !ta Ĭ'taI:,}p'@6AD8j3?%(%$ #%t,5:$%t,IT(TD(DA !ta 'taI:,}'p6:$%t,ID(D t q zdn '%d " $  %f% $  %Ch%T:&]/D:&]/'O'ClR(*#*# )*FT::*Dp`1l2 6 p)''hM@@lM@ 6T< @hTdD  0lt@  p@ 0   0  h9$   0l)Ch!*#*# *1l2 )''hM@0lM@ 65*# *1l/ Ch)''hM@@lM@ 6+$ H 8 l=d)4$ H   0lpr)&:% $  zkrckzD%$  dW]/kzD%$  dW]/p)6 c0C@9kzD%$  dW)5R c C@0 nCh}:kzD%$  dWl@F::`p:P@:0 `1l)6p@ " $  `''hM@$lM@^ q6lY kzpzplll kzkr2kzD%$  d) $ @W N  ]ChL*FkzD%$  dW`1l)6)''hM@@lM@ 6 4t taE !ta Ĭ'taI:6}p'@6AD0L F+@%(%$ #%t,5:$%t,IT(TD(DA !ta 'taI:6}'p6:$%t,ID(D t q zdn '%d " $  %f% $  %Ch%T:&]/D:&]/'O'ClR(*#*# )*FT::*Dp`1l2 6 p)''hM@@lM@ 6T< @hTdD  0lt@  p@  >__SRP_5_VBA_PROJECT+dir__SRP_0 `$`$`$`$!`$I`$q`$`$`$ `n䲀0* pHd VBAProject4@j = r 8; J< rstdole>stdole f%\*\Gt6z  _B_var_opt6nopt7{  _B_var_opt7nopt8|  _B_var_opt8nopt9}  _B_var_opt9nopt10 opt11  _B_var_opt10/ _B_var_opt110Itemz _B_var_IDN_B_var_Temporary2949~% (FrancsEurosn(DMEurosq(ESEuros-1(FloEurosЁ(FBEuros&FLEuros(LiEuros(IREurosz(MFEuros(PEEuros/(SCEuros53_Defaultj _B_var_Case EurTtDev_parob>ou^de\FrancsGLuxembourgeios$Nonseledt _B_var_seledtLE _B_var_Select'Esuite _B_var_IfPAucunBmontanttrouv}dans::ce\en] _B_var_enDREuros _B_var_ForjL _B_var_stepx   Z@ @{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE Automation^DOfficDO>fic5DD2DF8D04C-5BFA-101B -BDE5DAA5B42Dgram Files\Microso(ft 6\MSO9.DLL#  9.0 Ob LibraryC1ThisWorkbookGThcsWrkbo2 HB1t`B,Q!3"B+BxFeuil1GFSu#l14H2NU22223333UEurTtDev_parobGBEur TD@Xv_(pa@o{GO ;Y 5` Permet la convers@f de@vises europennan @os.HjArmt zacOnv"s@ond ~e isseBo *n e` b 5Co .@I@"C! QbrU~~{   A!Cancel A#5Permet la conversion de devises europennes en Euros.ZThisWorkbookThisWorkbookFeuil1Feuil1Feuil2Feuil2Feuil3Feuil3EurTtDev_parobEurTtD est cacheProtectContents  est protge 4Feuille cache ou protge La feuille Name psouhaitez-vous slectionner la prochaine feuille...(Oui)FOW~FIOW~F L...ou abandonner la conversion ? (Non) SelectUsedRange Pas am  $*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\FICHIERS COMMUNS\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{00020813-0000-0000-C000-000000000046}#1.3#0#C:\Program Files\Microsoft Office\Office\EXCEL9.OLB#Microsoft Excel 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automation *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library 8; 1ThisWorkbook133b972bdaThisWorkbook3 Feuil10;3b972bd9 Feuil1 Feuil20=3b972bd9 Feuil20 Feuil30?3b972bd9 Feuil3HEurTtDev_parob0:3b975690EurTtDev_parobjPermet la conversion de devises europennes en Euros.x`x0H/c]P%e/c]P%e/c]P%e/c]P%eP%e/c]P%ehX9CaseDElseOExit^Goto_IfkIsPublicSetStepSubThenWith Excel+ VBAWin16~Win32MacVBA6#Projet1 stdole` VBAProject Officeu ThisWorkbook| _Evaluate Feuil1X Feuil2Y Feuil3ZClasse1C ThisWorkbook15]Workbook_BeforeCloseCancelctr Application* CommandBars ControlsKBuiltInaDeletex Workbook_Opennouvop[AddrmsoControlButtonnID] TemporaryCaptionxOnActionModule1b euro_parob\_ConvertirEnEurooi`cellRange  NbFeuilleMessageTitrewshs Worksheet NbMontantsq NbFormats8 msgVariable:okCach, okProtgI FormatEuroׁ WorkbooksBCount0vvbLfT%MsgBoxR vbExclamationvbOKOnly vbInformationnScreenUpdating! ActiveWorkbook ActiveSheet%NSheets  StatusBarʜVisible xlSheetHidden4xlSheetVeryHiddenProtectContents vbQuestionvbYesNoZyVaFinwplage_utilisee6valeur UsedRangeȉIsEmpty ValueK IsNumeric$* HasFormulaNumberFormatLocal)RoundClassWorkbookkopt1u  BeforeClose~; _B_var_nouvopmsoControlPopupl) _B_var_opt1nopt2v  _B_var_opt2nopt3w  _B_var_opt3nopt4x  _B_var_opt4nopt5y  _B_var_opt5nopde donnes NIl n'y a pas de montants sur la feuille  FF *DM* Round (Fin de la conversion EOW~F FDOW~FDF WorksheetGOW~F! ~Les montants ventuellement trouvs ont t convertis en Euros. @Nombre de cellules converties :  TNombre de cellules mises au format Euro : 9VBE6.DLL &S &. &1 & Seuls les montants formatts en Escudo (Esc.) seront convertis en Euros. *Esc.*% Seuls les montants formatts en Florins (fl) seront convertis en Euros. *fl*$ Seuls les montants formatts en Francs (F) seront convertis en Euros.) Seuls les montants formatts en Lire Italienne (L.) seront convertis en Euros. *L.*( Seuls les montants formatts en Mark Finnois (mk) seront convertis en Euros. *mk* *F JAucun montant trouv dans ce classeur + Seuls les montants formatts en Francs Luxembourgeois(F) seront convertis en Euros.( Seuls les montants formatts en Francs Belges (FB) seront convertis en Euros. *FB* *FBSg;P%eSg;P%e 8&Conversion Devises en Euros% Seuls les montants formats en Escudo (Esc.) seront convertis en Euros. vLes formules trouves seront simplement formates en Euros.DREuros% Seuls les montants formats en Drachme (K*mrU~~~~~~~~~~~~~~~~~~~~4 I:OtP%e  e i   a yH ay1Ia9A!) ThisWorkbookFeuil1Feuil2Feuil3 euro_parob VBAProjectFDC:\PROGRAM FILES\FICHIERS COMMUNS\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA i )`F 3C:\Program Files\Microsoft Office\Office\EXCEL9.OLBExcel )p0FC:\WINDOWS\SYSTEM\stdole2.tlbstdole  L-[DR 1C:\Program Files\Microsoft Office\Office\MSO9.DLLOffice yFn.s~FFn.s~FDFWorkbookWorkbook_BeforeClose Workbook_Open @ ToolsF F F F "&Conversion EurosCaptionControlsAdd &Deutsch Mark - Euro DMEurosOnAction Escudo - Euro EsEuros Florin - Euro FloEuros &Franc - Euro FrancsEuros &Franc &Belge - Euro FBEuros "Franc &Lux - Euro FLEuros Lire - Euros LiEuros 0Livre Irlandaise - Euros IREuros .Mark Finlandais - Euros MFEuros Peseta - Euros PEEuros 8Schilling Autrichien - Euros SCEuros (&Deutsch Mark - Euro &Escudo - Euro F&lorin - Euro "Franc Lu&x - Euro L&ire - Euros 2Li&vre Irlandaise - Euros *Mar&k Finnois - Euros &Peseta - Euros :&Schilling Autrichien - EurosDMEurosESEurosFloEurosFBEuros FrancsEurosFLEurosLiEurosIREurosMFEurosPEEurosSCEuros  % _-* # ##0,00\ [$ -1]_-;-* # ##0,00\ [$ -1]_-;_-* "-"??\ [$ -1]_-;_-@_-FF9aF >Procdure impossible xcuter 0Aucun classeur ouvert...   2l'opration est annule !( Seuls les montants formatts en Deutsch Mark (DM) seront convertis en Euros. xLes formules trouves seront simplement formattes en Euros. bA propos de ConvertirEnEuro, veuillez noter que :FFHOW~F *F*EurTtDev_parob VVeuillez patienter, conversion en cours....Visible Drc) seront convertis en Euros. *Drc *Drc*( Seuls les montants formats en Francs Belges (FB) seront convertis en Euros. *BF. Seuls les montants formats en Livre Irlandaise ou Punt (IR) seront convertis en Euros. *IR*$ Seuls les montants formats en Francs (F) seront convertis en Euros.( Seuls les montants formats en Lire Italienne (L.) seront convertis en Euros.& Seuls les montants formats en Schilling (S) seront convertis en Euros. *S*__SRP_1PROJECTwmPROJECTSummaryInformation(ev_parobID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Feuil1/&H00000000 Document=Feuil2/&H00000000 Document=Feuil3/&H00000000 Module=EurTtDev_parob HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="6E6CC20DC237D33BD33BD73FD73F" DPB="83812F3859555955A6AB5A55E33CE2DB18C3EF6F41B03017B487CE57328C753D0C331FFB61" GC="989A344735473547" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Feuil1=0, 0, 0, 0, C Feuil2=0, 0, 0, 0, C Feuil3=0, 0, 0, 0, C EurTtDev_parob=0, 0, 0, 0, C  Oh+'0@H`x  Pascal Robinx Pascal RobinxMicrosoft Excel@Gbk@S{ ՜.+,0 PDocumentSummaryInformation8CompObjnXh px TIBCOFe Feuil3 Feuilles de calcul F"Feuille de calcul Microsoft ExcelBiff8Excel.Sheet.89q