Standard Jet DBnb` Ugr@?~1y0̝cßFN m7ҜL( `{6߱bCE93y[#|*| Â8f_Љ$g'DeFx -bT4.0sdv YS  Y   Y Y  Y Y  Y  Y  Y  r Y s Y E Y a Y d Y 2Y  Y   Y  jY ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeniYYIdParentIdName        OY@PROFILE=C:\DSY Y Y  Y 2erACMFInheritableObjectIdSIDNHTHKOODV EPATYObjectId YSY  Y Y Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Ordernzf edY"ObjectIdAttribute -YSY Y Y  Y  Y  Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship   YYYszObject$szReferencedObjectszRelationshipYv1b N  : k & W  C t/  @@@@* @@@ @@@S+LJkQOJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk+kh+MS+LJkQ+kh+M^YkM^YQbm`kvkJMMQkkdL[QMmk`kvkJMMQkku`^`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkm+M^YQbmJMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOZ  @ @ @       !  @ @ @ @ @ @ @ @%%%%%%%%% % % % %%%%%%%%%%%%%$%% %& %' %( %) %* %+%4%5%6%2%3%7%8%9%:%;%<%,%-%.%/%0%1!%=!%>!%?%%%% %% %%%%!%"%#  @         zd _ Z g  ~  !%,f#S@$S@T_Client@'>>>22222220 @Ijf#S@f#S@MSysAccessXML4MR2KeepLocal  T|||<<<<<<<: @T@3T@MSysAccessObjectsDDDDDDDDDDB  f>S@f>S@~sq_cF_Base~sq_cLISClient. @/4MR2KeepLocal T`TTTTTTR ` 5{1S@5{1S@F_Based@ ':::......., @ 3 !S@3 !S@UserDefinedA@'DDD88888886 @ 3 !S@3 !S@SummaryInfo@'DDD88888886 @ aoS@fX@AccessLayout4MR2KeepLocal T"@&zz:::::::8 @z !S@z !S@SysRel.........., z !S@z !S@Scripts0000000000. W !S@W !S@Reports0000000000. z !S@z !S@Modules0000000000. W !S@W !S@Forms,,,,,,,,,,* z !S@z !S@DataAccessPages@@@@@@@@@@> !S@!S@MSysRelationshipsDDDDDDDDDDB !S@!S@MSysQueries88888888886 !S@!S@MSysACEs22222222220 !S@!S@MSysObjects88888888886 !S@!S@MSysDb@':::......., @!S@!S@Relationships<<<<<<<<<<: !S@!S@Databases44444444442 l!S@l!S@Tables.........., Y T_Client.Prenom. g T_Client.NomClient1 g T_Client.IDClient0 g T_Client!!!     G Y N Y Y b!DataIDLLc c!YAOIndexv1~K[ȑ pK$SysAccessObjectsLLLLLLLLLLJ K[ࡱ> Root Entryp>A{!VBA#[ QyVBAProject _\a@yVBA_\a@y ]5 ^8 67IJKMNOPQRSTUVXYZ[ W_`abc\Root Entryp>A{#!VBA#[p>A{VBAProject _\p>A{VBA_\p>A{" ]5d $C&'()*+,-/01234967:;<>?@A!=DEFGHBPROJECTwmy&AcessVBADataz Forms #[Ka0Ca\p>A{PROJECTwmy&AcessVBADataz Forms #[Ka0Ca\p>A{  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEGHIKLMNOPQRSTUVWXYZ[\]^_`abcdefK[ghijklmnoqstuvwx}~  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEGHIKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoqstuvwx}~DataAccessPages #[#[Blob -PropData{ TypeInfo|BlobDelta[__SRP_3pg_VBA_PROJECT RFOHWF_DXSLBAEJKKANMHRPMZVWC:LPROJECT r29, 867, 801, Z Form_F_BaseForm_F_BaseͬP\U<@Ny˕Q5Dtaild IDClient_tiquetted tiquette4nLISClienth BDCEnvoiExceldhmnrU P$`$ nID="{A6D5FF5E-FC45-4E33-9A55-14BCA50B14AA}" DocClass=Form_F_Base/&H00000000 Name="Envoi classeur Excel par e-mail" HelpContextID="0" VersionCompatible32="393222000" CMG="464456E5B627632B632B632B632B" DPB="F7F5E7B429D4DBD5DBD5DB" GC="A8AAB8BBB9BBB944" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Form_F_Base=22, 29, dir1__SRP_0 |__SRP_1F__SRP_2 Jz -0* pHdEnvoi classeur Excel par e-mailQD@  =  2D %<9stdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\System32\e2.tlb#OLE Automation0DAO>JDAOA A5E0 1A5AProgram Files\Fichiers K[communs\Microsoft Shared\=\dao360.dll# 3.6 Object LibraryJADODB> AD\DB^^/10-8OAA006D2EtA4O1O/U\@ado\ms@21V,ActiveX Data.s 2.1Q/C/Exc~l@/]G/208131^1.5Q/G%Office\OFFICE11\EXCEL.EXEH[11.0\$Outlook>ulok.A]62FFF.9D.2+.mso@ .oH7% . Form_F_BaseG rm_F`Bas@2`RFOHWF_DXSLBAEJKKANMHRPMZVWC28!OHWDXSLQAEJK ANM RPZV5`C @1"a",H"(+˓K*mrU~~~~~~~~~~~~~~T #zIam  *\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{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB#Microsoft Access 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation$*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\Program Files\Fichiers communs\Microsoft Shared\DAO\dao360.dll#Microsoft DAO 3.6 Object Library&*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\Program Files\Fichiers communs\System\ado\msado21.tlb#Microsoft ActiveX Data Objects 2.1 Library*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00062FFF-0000-0000-C000-000000000046}#9.2#0#C:\Program Files\Microsoft Office\OFFICE11\msoutl.olb#Microsoft Outlook 11.0 Object Library2D 8RFOHWF_DXSLBAEJKKANMHRPMZVWC0:44328455Form_F_BaseH(__SRP_3pg_VBA_PROJECT %RFOHWF_DXSLBAEJKKANMHRPMZVWC:.PROJECT r867, 801, Z Z Form_F_BaseForm_F_BaseK[ͬP\U<@Ny˕Q5Dtaild IDClient_tiquetted tiquette4nLISClienth BDCEnvoiExceldhmnnddhF_Base 0CB0ijMSysDb ,d:\atelier\youpiii.xls(08=Bb ce ghijk?5{1S@]R@|{0 Uca3Gѓx{$S@T_Client)3[/D( :ca3Gѓx{IDClientˆh#cKʁ$Q>ca3Gѓx{NomClientGDdoca3Gѓx{Prenom  Arial8 h *\ G dXXA4TPRIV ''''4 ldArial FRENCHBRSPL01A.EXEBRRBATOM_1230opt_1230.inicop_1230.iniHL123ini.datHL123def.datBRSPL01A.EXEdArialdK[EOSC<6LPT1:d2 Tahomahbcgh Tahomam45bg[ Tahoman2cdh[ Tahoma` Dtaila=SB>h+n3UA`aNbcd* LISClientTable/QueryߚSELECT T_Client.IDClient, T_Client.NomClient, T_Client.Prenom FROM T_Client; 1440;1440;1440J'aLS(4d5U`Nabc$IDClient_tiquetteIDClient9_L3`h&qd5U`l ab;ctiquette4ݚIl manque volontairement les villes, exprs pour motiver l'utilisation de DAOZ&TFNJr-4h1U`NabciBDCEnvoiExcelEnvoyer un classeur Excel par E-Mail (Truc@Machin.com, copie Marcel@Bidule.com, avec les coordonnes de la personne slectionne"[Event Procedure]nF-IwNO^Gotoresumesubto VBAWin16~Win32MacVBA6#Projet1 stdole` Envoi classeur Excel par e-mail͸ DAO ADODBs Form_F_Base%$rU P$`$ nID="{A6D5FF5E-FC45-4E33-9A55-14BCA50B14AA}" DocClass=Form_F_Base/&H00000000 Name="Envoi classeur Excel par e-mail" HelpContextID="0" VersionCompatible32="393222000" CMG="E7E5F7CA09364C3A4C3A4C3A4C3A" DPB="2624360B4A758876887688" GC="656775488B868C868C79" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Form_F_Base=22, dir1__SRP_0 |__SRP_1F__SRP_2 Jz -0* pHdEnvoi classeur Excel par e-mailQD@  =  2D %<9stdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\System32\e2.tlb#OLE Automation0DAO>JDAOA A5E0 1A5AProgram Files\Fichiers communs\Microsoft Shared\=\dao360.dll# 3.6 Object LibraryJADODB> AD\DB^^/10-8OAA006D2EtA4O1O/U\@ado\ms@21V,ActiveX Data.s 2.1Q/C/Exc~l@/]G/208131^1.5Q/G%Office\OFFICE11\EXCEL.EXEH[11.0\$Outlook>ulok.A]62FFF.9D.2+.mso@ .oH7% . Form_F_BaseG rm_F`Bas@2`RFOHWF_DXSLBAEJKKANMHRPMZVWC28!OHWDXSLQAEJK ANM RPZV5`C @1"a",H"(+˓K*mrU~~~~~~~~~~~~~~T #zIam  *\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{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB#MK[icrosoft Access 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation$*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\Program Files\Fichiers communs\Microsoft Shared\DAO\dao360.dll#Microsoft DAO 3.6 Object Library&*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\Program Files\Fichiers communs\System\ado\msado21.tlb#Microsoft ActiveX Data Objects 2.1 Library*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00062FFF-0000-0000-C000-000000000046}#9.2#0#C:\Program Files\Microsoft Office\OFFICE11\msoutl.olb#Microsoft Outlook 11.0 Object Library2D 8RFOHWF_DXSLBAEJKKANMHRPMZVWC0:44328455Form_F_BaseH(x\fߠlCt0$)JR/ Access As=Dim^Gotoresumesubto VBAWin16~Win32MacVBA6#Projet1 stdole` Envoi classeur Excel par e-mail͸ DAO ADODBs Form_F_Base%$ _Evaluate BDCEnvoiExcellFormDtail2IDClient_tiquetteT~ tiquette4H LISClientUBDCEnvoiExcel_Click Excel+ UseOutlook MonOutlookr MonMessage'~ CreateObject createitem~cc\bcc*x Attachments_AddrSubjectRPCorpsnfChrK~bodylsend Outlook,VClick _B_var_Corps[* _B_var_Chr\;Test4 BaseSourceO TableCliento RecordsetDBEngineQ WorkspacesUd OpenDatabase` OpenRecordset| dbOpenDynaset  FindFirstM=MsgBoxRItemz Databases5LFields7Tk ableClientW_B_var_TDupontValueKMonExcel  MonBeauWordNWordk Application* Documents SelectionZTypeTextActiveDocument\SaveAsf; WorkbooksBSheets Range ActiveWorkbook ActiveSheet%NCurrente CurrentDbSKill _B_var_On6lD& K[8P HL!ENQP\U<@Ny˕Q5^G!,&AAwx^G!,&AAw!ENQMEh L@[LS S(LR6(LXLLLLLLLLLLLL %`* Li`, maH Px(t @d 0H0X @ p X ft@ ut G{00@ 0-0000xP($2D $*\Rffff*0:44328455*\R3*#2e*\R3*#24*\R1*#99*\R1*#98*\R3*#1b*\R3*#21*\R3*#22*\R3*#23*\R3*#0*\R3*#28*\R0*#14*\R0*#f*\R1*#60*\R1*#5e*\R0*#11*\R5*#2a9*\R1*#98*\R3*#24*\R1*#5e*\R3*#2e*\R3*#28*\R0*#fv4r8x<@pD- " ?";  &1(1(10T,TP,T   "0`p     $  $(P.h08"8  :0(` P `px0oh]]0Outlook.Application$..*YO *%0.,"marcel@machin.com;julien@chose.com ,(h#chef@machin.com;directeur@chose.com ,(2,un.copain@supermail.com;une-amie@hotmail.com ,(4Je suis content ,(:hiBonjour,'< < $> $>'< < ,(@02 ,B@B000.*X]X IDClient = " PB@^0 PB@Bnt = .P]L.r r!B@DirDataPropDataCmdbarsK[#[#[Modules#[#[Reports#[#[Scripts#[#[PropDataDatabases#[Ka0#[g) \Blob DirDataCustomGroups #[#[x\fߠlCt0$)JR/ Access As=Dim^Gotoresumesubto VBAWin16~Win32MacVBA6#Projet1 stdole` Envoi classeur Excel par e-mail͸ DAO ADODBs Form_F_Base%$8Ville :A3 r!!%(pC:\resultat.xls ,!6B@8B@ r!B@Ben.rHPNom :A1 r!!%(pmPrnom :A2 r!!%(pP NomClient$PB1 r!!%(pVille$PB3 r!!%(p(pPrenom$PB2 r!!%(pXpT_Client \ %Z.PP0 ENVOI PAR E-MAIL DU FICHIER :or@xC:\resultat.xls r!B@ <Voici le fichier convenu.'<C:\resultat.xlsA@Attribute VB_Name = "Form_F_Base8" L0{5CFC1450-3C55-4E40-9679-8ACB9551 AB35} |GlobalSpacFalse dCreatablTru Pre declaId"Expose_TemplateDerivCustomizD$Option Comp@ DT P&* Sub BDCEnvoiExcel_Click() D0im T) ent As Rec@ordsetSet= CurrDb.Opebn("T+ ", db Dyn Et31.FindFirst ("ID< & 8LIS (Mon.A'Objec&F= New B .App8aFA.Workbooks.AddJAct@^.Sheet.Range("A1"@).Valu" Nom : 2Prnr3IVil"BI3f(A6`"B`7B7Ȁ:/)  8On Error Wsu@(NexDK# "C:\resultat.xls6&GoTo 0yApSaveb#C>l} g Nothing!ah.J' ENVOI PAR E-MAIL DU FICHIE8R : {@Outl@^+gdMessagej}en("il1D-e =!ccBit0em(0J.tBo@"mar@machin.com;julien@ch@)mccchefdireur b#u pain@supermailune-amie@hotm@m`BsL/e Je suis conta5CorpsBonjour, & Chr(13)")"Voici `$fi@)er venu.mbody`sen£D:8NWEnd  9BNXEnd `   (  8 ! H`rU 0A  @ @ ) * + , -.S YNY  Y Y e Y D Y D Y eId LValueObjectGuidObjectNameProperty ValueDeDeDeDeDeDeDeDeD eDYYYId$ObjectGuidProperty$ObjectNamePropertyHv1b@   WYPROFILE=C:\DN""Y  Y d Y d Y erdIDClientNomClient Prenom Ville"$YPrimaryKeyv1!Z/MillerJulesAmsterdam VillemotGaspardGenve!BrassoliAntonioMilan KenzerHansMnichDupontMarcelParis ! #####@vcP=*z @ -  } j C 0  m Z G p]I6#"r_K8! !55|]^8zBt -w6o(nIg':S_Ut|H5SVJBca3Gѓx{NomClientGDdoca3Gѓx{Prenom MR2 GUIDNameMap@ ]R@|{0  Uca3Gѓx{$S@T_Client)3[/D( :ca3Gѓx{IDClientˆh#cKʁ$Q>ca3Gѓx{NomClientGDdoca3Gѓx{Prenom MR2&ValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapDefaultViewGUIDColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControlIMEModeIMESentenceMode$UnicodeCompressionSmartTags  P H Uca3Gѓx{~$S@T_Clientˆh#cKʁ$Q>ca3Gѓx{NomClientGDdoca3Gѓx{Prenom3YfSKS A*>+ca3Gѓx{Ville)3[/D( :ca3Gѓx{IDClient   ca3Gѓx{NomClient         m    ˆh#cKʁ$Q> Prenom         m    GDdo Ville         m    3YfSKS A*>+UIDClient       )3[/D( :MR2( ReplicateProject MR20 Title AuthorCompanyfF >Envoi classeur Excel par e-mail M .MR2ANSI Query Mode(Themed Form ControlsAccessVersion BuildProjVerN    08.50 c # LVALhDm    !?m m `m m 4  m m 2m m m m m m m m m 2m   d  d !T_Client.IDClientT_Client#T_Client.NomClientT_Client.Prenomxm pm m 8m  @m f>S@Pm hm m c  m c 2m cT_Clientxm 0m `m  m @m $S@1~sq_cF_Base~sq_cLISClienthm  m m  m m  m (m m m  m m c  m c 2m cT_Client m Hm  m Pm  2m Xm m m  m  m m  m  @m 8m Hm Xm hm xm `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m `m m m m ` m  m m `Hm m  Hm m  m z  m m  m chm ( m ` m m  m m ( m  d` m  d m 4 m m m ( m ` m  m  m T_Client m PrimaryKeym m v (m m m m m mq m m m m m m m m m m m m m m m m m m m m m m m m m m m m m  `m m pm m m T_ClientPrimaryKeym m (m  m (m m m m `m m m  m K[ ) Q y 1  Qy Qi ! i!q iya!Aia )Yy9)Qa@4 a) vvv@8I q rrr@ <  xxx @:@  @D! I ppp?@'D%'T%d%t$ t l@= x)t@;:d&0t! ?t $0 x /t60 'W (5 1:D3%:d*%W0/= 2>,C-60 1:D4%:d5%W0/= 2>,C-60 1:D6%:d7%W0/= 2>,C-60 T@:d8%tx t 0 Q@o%:T9%W0/= 2>,C-t60 T@:d %tx t 0 Q@o%:T:%W0/= 2>,C-t60 T@:d;%tx t 0 Q@o%:T<%W0/= 2>,C-t60 :d.N00 =50:d.%W /05 W /15 c x c= x0  0450(d%0450:d%:d%:d%:d@%W 5 :d% :d: 0 0  60 :d0  !c8  x(t@0 <Xt@0  <Xtx8 plXT@ <Xer\Youpiii.xlsActiveWorkbook SaveAs CloseActiveSheet Nom : A2 Ville : A3 NomClient B1 B2 Ville B3  @ 4d:\atelier\youpiii.xls.xlsl5LQӱYrU~~~~~u    I TU4X  A  a   Form_F_BaseEnvoi classeur Excel par e-mailF /C:\PROGRA~1\FICHIE~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA ! I`J_N?4C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLBAccess  Ap0FC:\WINDOWS\System32\stdole2.tlbstdole )Q^FAC:\Program Files\Fichiers communs\Microsoft Shared\DAO\dao360.dllDAO 1m.8C:\Program Files\Fichiers communs\System\ado\msado21.tlbADODB )QF4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE K[Excel Ai/F5C:\Program Files\Microsoft Office\OFFICE11\msoutl.olbOutlook Q yspBqy!ENQP\U<@Ny˕Q5^G!,&AAwAC7? tiquette4KC7? LISClientEC7? BDCEnvoiExcel31?FormSC7?DtailBDCEnvoiExcel_Click Pɤs h)aN? !m.;m.9m.sm. T_Clientqm. (NomClient = 'Dupont'1m. PrenomSm. &Outlook.Applicationcreateitem Dmarcel@machin.com;julien@chose.comto Fchef@machin.com;directeur@chose.comcc Xun.copain@supermail.com;une-amie@hotmail.combcc &d:\atelier\test.txtAttachmentsAdd (d:\atelier\test2.xls Je suis contentSubject Bonjour, @Je vous envoie un message idiot.bodysend VBE6.DLL S   Prnom : `  IDClient = 'Z;|? ' IDClient = EFFAiWorkbooks ca marche A1 Sheets Range Value ,D:\Ateli _Evaluate BDCEnvoiExcellFormDtail2IDClient_tiquetteT~ tiquette4H LISClientUBDCEnvoiExcel_Click Excel+ UseOutlook MonOutlookr MonMessage'~ CreateObject createitem~cc\bcc*x Attachments_AddrSubjectRPCorpsnfChrK~bodylsend Outlook,VClick _B_var_Corps[* _B_var_Chr\;Test4 BaseSourceO TableCliento RecordsetDBEngineQ WorkspacesUd OpenDatabase` OpenRecordset| dbOpenDynaset  FindFirstM=MsgBoxRItemz Databases5LFields7Tk ableClientW_B_var_TDupontValueKMonExcel  MonBeauWordNWordk Application* Documents SelectionZTypeTextActiveDocument\SaveAsf; WorkbooksBSheets Range ActiveWorkbook ActiveSheet%NCurrente CurrentDbSKill _B_var_On6lD& 8P HL!ENQP\U<@Ny˕Q5^G!,&AAwx^G!,&AAw!ENQMEh L@[LS S(LR6(LXLLL K[LLLLLLLLL %`* Li`, maH Px(t @d 0H0X @ p X ft@ ut G{00@ 0-0000xP($2D $*\Rffff*0:44328455*\R3*#2e*\R3*#24*\R1*#99*\R1*#98*\R3*#1b*\R3*#21*\R3*#22*\R3*#23*\R3*#0*\R3*#28*\R0*#14*\R0*#f*\R1*#60*\R1*#5e*\R0*#11*\R5*#2a9*\R1*#98*\R3*#24*\R1*#5e*\R3*#2e*\R3*#28*\R0*#fv4r8x<@pD- " ?";  &1(1(10T,TP,T  8 @"P`p     $  $(P.h08"8  :0( P `px0oh]]0Outlook.Application$..*YO *%0.,"marcel@machin.com;julien@chose.com ,(h#chef@machin.com;directeur@chose.com ,(2,un.copain@supermail.com;une-amie@hotmail.com ,(4Je suis content ,(:hiBonjour,'< < $> $>'< < ,(@02 ,B@B000.*X]X IDClient = " PB@^0 PB@Bnt = .P]L.r r!B@8Ville :A3 r!!%(pC:\resultat.xls ,!6B@8B@ r!B@Ben.rHPNom :A1 r!!%(pmPrnom :A2 r!!%(pP NomClient$PB1 r!!%(pVille$PB3 r!!%(p(pPrenom$PB2 r!!%(pXpT_Client \ %Z.PPD:\Atelier\Youpiii.xlsA@0 ENVOI PAR E-MAIL DU FICHIER :or@xC:\resultat.xls r!B@ <Voici le fichier convenu.'<Attribute VB_Name = "Form_F_Base8" L0{5CFC1450-3C55-4E40-9679-8ACB9551 AB35} |GlobalSpacFalse dCreatablTru Pre declaId"Expose_TemplateDerivCustomizD$Option Comp@ DT P K[&* Sub BDCEnvoiExcel_Click() D0im T) ent As Rec@ordsetSet= CurrDb.Opebn("T+ ", db Dyn Et31.FindFirst ("ID< & 8LIS (Mon.A'Objec&F= New B .App8aFA.Workbooks.AddJAct@^.Sheet.Range("A1"@).Valu" Nom : 2Prnr3IVil"BI3f(A6`"B`7B7Ȁ:/)  8On Error Wsu@(NexDK# "D:\Atelier\Youpiii.xls7@GoTo 0YBSave`c"C:\resultat$Cl~ hNothingw!aH.J' ENVOI PAR E-MAIL DU FICHIER : {@Outl _ hdMessagek~eo("oIm1De =dcBitem(0K.to@"mar@machin.com;ju 7n@ch@)n ccchefdireurb#u pain@supermailune-amie@hotom m@" CeaJe suis contA5CorpsBonjour, & Chr(13)`")"Voici I@fi@)er venu.mbod>y``Ese^nD:8NWEnd  em(0L.to!@"mar@machin.com;ju8n@ch@)eoccchefdirQ`eurb#u pain@supermailune-amie@hotmm  "d:\"Ny,N`0E!Je suis` cont6CorpsBonjour,& Chr(13^) ")" v ous eAe un m=idiot.-body@asenB,C-60 1:D4%:d5%W0/= 2>,C-60 1:D6%:d7%W0/= 2>,C-60 T@:d8%tx t 0 Q@o%:T9%W0/= 2>,C-t60 T@:d %tx t 0 Q@o%:T:%W0/= 2>,C-t60 T@:d;%tx t 0 Q@o%:T<%W0/= 2>,C-t60 :d.N00 =50:d.%W /05 W /15 c x c= x0  0450(d%0450:d%:d%:d%:d@%W 5 :d% :d: 0 0  60 :d0  !c8  x(t@0 <Xt@0  <Xtx8 plXT@ <Xer\Youpiii.xlsActiveWorkbook SaveAs CloseActiveSheet Nom : A2 Ville : A3 NomClient B1 B2 Ville B3  K[ @ 4d:\atelier\youpiii.xls.xlsl5LQӱYrU~~~~~u    I TU4X  A  a   Form_F_BaseEnvoi classeur Excel par e-mailF /C:\PROGRA~1\FICHIE~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA ! I`J_N?4C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLBAccess  Ap0FC:\WINDOWS\System32\stdole2.tlbstdole )Q^FAC:\Program Files\Fichiers communs\Microsoft Shared\DAO\dao360.dllDAO 1m.8C:\Program Files\Fichiers communs\System\ado\msado21.tlbADODB )QF4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel Ai/F5C:\Program Files\Microsoft Office\OFFICE11\msoutl.olbOutlook Q yspBqy!ENQP\U<@Ny˕Q5^G!,&AAwAC7? tiquette4KC7? LISClientEC7? BDCEnvoiExcel31?FormSC7?DtailBDCEnvoiExcel_Click Pɤs h)aN? !m.;m.9m.sm. T_Clientqm. (NomClient = 'Dupont'1m. PrenomSm. &Outlook.Applicationcreateitem Dmarcel@machin.com;julien@chose.comto Fchef@machin.com;directeur@chose.comcc Xun.copain@supermail.com;une-amie@hotmail.combcc &d:\atelier\test.txtAttachmentsAdd (d:\atelier\test2.xls Je suis contentSubject Bonjour, @Je vous envoie un message idiot.bodysend VBE6.DLL S   Prnom : `  IDClient = 'Z;|? ' IDClient = EFFAiWorkbooks ca marche A1 Sheets Range Value ,D:\AtelinddhF_Base 0CB0 K[ijMSysDb ,d:\atelier\youpiii.xls(LVALhDm.   !?mm`mm4  m m2m mm m mmm m m2m  d  d !T_Client.IDClientT_Client#T_Client.NomClientT_Client.Prenomxmpmm8m @mf>S@Pmhmeym!e m1 m!e  m2m!e T_Clientxm0m`m m@m$S@1~sq_cF_Base~sq_cLISClienthm mm m m m(mmm m m!e m1m m!e mm2m!e mmT_Client mHm mPm 2mXmmm m mm m @m8mHmXmhmxm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mm`mmmm` m m m`Hm m Hm m mz  mm m#ehm( m` m m m m( m d` m d m4 m m m( m` m m mT_Client mPrimaryKeymmv (mmmmmmqmmmmmmmmmmmmmmmmmmmmmmmmmmmmm `mmpmmmT_ClientPrimaryKeymm(m m(mmmm`mmm m LVALʾT_Client_Base&n3