Malicious Office (OOXML) — malware analysis report

Static analysis result for SHA-256 af3ef59c530181fe…

MALICIOUS

Office (OOXML)

1.44 MB Created: 2012-11-25 17:01:38 UTC Authoring application: Microsoft Excel 12.0000 First seen: 2020-10-09
MD5: a7be9b9a26d56d3a0050d4018d64c4af SHA-1: 3ec11a8044c47d65bea7bef56d823fcfa1ed15d6 SHA-256: af3ef59c530181fe28320f2d8a0bcc9d2168af1da157d06f3bb9a57dfc9ba8a7
614 Risk Score

Heuristics 17

  • VBA project inside OOXML medium 14 related findings OOXML_VBA
    Document contains a VBA project — VBA macros present
  • Potential Shell call in VBA critical OLE_VBA_SHELL
    Potential Shell call in VBA
    Matched line in script
                x = Shell("C:\Program Files (x86)\MySQL\MySQL Tools for 5.0\MySQLAdministrator.exe", vbMaximizedFocus)
  • URLDownloadToFile in VBA critical OLE_VBA_DOWNLOAD
    URLDownloadToFile in VBA
    Matched line in script
        Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias _
  • LOLBin reference in VBA critical OLE_VBA_LOLBIN
    LOLBin reference in VBA
    Matched line in script
                Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8 "
  • VBA stages a PowerShell/LOLBin download-and-run command critical OLE_VBA_BITSTRANSFER_DROPPER
    The macro assembles a download command using a PowerShell or LOLBin download primitive (Start-BitsTransfer, Invoke-WebRequest, Net.WebClient, bitsadmin, certutil, ...) that fetches a remote payload, then executes it -- writing it to a script file and running it, or launching it directly from an auto-exec handler. The keywords are commonly split with PowerShell backtick / cmd caret escapes to evade scanners; this detection de-escapes the source first. A high-confidence downloader/dropper, stronger than the individual Shell / download keywords on their own.
    Matched line in script
    Private Sub Workbook_Activate()
  • VBA native-memory callback shellcode loader critical OLE_VBA_NATIVE_MEMORY_CALLBACK_LOADER
    VBA auto-exec macro declares or calls native memory allocation, process-memory write/copy, and callback/timer execution APIs. This is the in-memory shellcode loader pattern: allocate writable memory, copy decoded payload bytes into it, then transfer control through a callback such as CreateTimerQueueTimer. Benign document automation does not combine these primitives.
    Matched line in script
        Private Declare PtrSafe Function VirtualAlloc Lib "kernel32.dll" (ByRef lpAddress As Any, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
  • VBA email-worm self-replication (Outlook mass-mailer) critical OLE_VBA_EMAIL_WORM_SELF_REPLICATION
    VBA macro drives Outlook to mass-mail itself: it automates Outlook.Application, programmatically creates a mail item, and spreads by harvests recipients from the MAPI address book / inbox, attaches a file to the outgoing message. Harvesting recipients from the address book / inbox and auto-attaching the carrier to outgoing messages is the defining behavior of the Melissa / LoveLetter / W97M mass-mailer worm lineage — there is no benign document use, independent of any AV signature.
    Matched line in script
        Set objmail = objol.CreateItem(olMailItem)
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set Speech = CreateObject("sapi.spvoice")
  • GetObject call high OLE_VBA_GETOBJ
    GetObject call
    Matched line in script
        Set oOutlook = GetObject(, "Outlook.Application")
  • cmd.exe reference in VBA high OLE_VBA_CMD
    cmd.exe reference in VBA
    Matched line in script
        Shell ("cmd /c " & Chr(34) & "net view >" & Workbooks("Gestionnaire UTB.xlsm").Path & "\Serveurs.txt" & Chr(34)) 'recup par cde dos net view liste pc
  • VBA polls global keyboard state (keylogger) high OLE_VBA_KEYLOGGER_SPYWARE
    The macro declares or calls a Win32 keystroke-monitoring API (GetAsyncKeyState, SetWindowsHookEx WH_KEYBOARD, or GetKeyboardState) to capture keystrokes system-wide. No legitimate document automation polls global key state; this is the core of a VBA keylogger, usually paired with active-window capture (GetForegroundWindow) and a log file. A high-confidence spyware behaviour independent of any download / Shell evidence.
    Matched line in script
        Private Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
  • VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXEC
    Triggers on the COMBINATION of two tokens co-occurring in the same compiled VBA/cache stream: an auto-execution entry point (Auto_Open / AutoOpen / Document_Open / Workbook_Open / Auto_Close / AutoClose) AND a shell/download/object-execution token (Shell, CreateObject, GetObject, PowerShell, cmd.exe, URLDownloadToFile, WinHttp, XMLHTTP, ADODB.Stream, ShellExecute, ExecuteExcel4Macro). Neither token alone fires it — it is the pairing that flags p-code-only or source-extraction-failure macro documents where the visible VBA source is unavailable. The matched tokens are named in the detail line below.
  • Workbook_Open macro low OLE_VBA_WBOPEN
    Workbook_Open macro
    Matched line in script
    Private Sub Workbook_Open()
  • Auto_Open macro low OLE_VBA_AUTO
    Auto_Open macro
    Matched line in script
    Sub Auto_open()
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
    Matched line in script
          Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
  • External hyperlinks (6) low OOXML_EXTERNAL_HYPERLINKS
    Document contains 6 external hyperlinks — clickable URLs are stored as external relationships. First target: http://utbmontceau.fr/Images/
  • Embedded URL info EMBEDDED_URL
    One or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.
    URL http://utbmontceau.fr/Conferences/ Referenced by macro
    • http://utbmontceau.fr/Images/Referenced by macro
    • http://utbmontceau.fr/Voyages/Referenced by macro
    • http://utbmontceau.fr/Referenced by macro
    • http://utbmontceau.voila.net/images/utb_logo.pngReferenced by macro
    • http://utbmontceau.voila.netReferenced by macro
    • http://utbmontceau.fr/images/utb_logo.pngReferenced by macro
    • http://utbmontceau.frReferenced by macro
    • http://utbmontceau.voila.net/images/laurencin1.jpgReferenced by macro
    • http://montceau-news.com/imagesPost/2015/03/PINETTE-29-03-15.jpgReferenced by macro
    • http://data.moviecovers.com/DATA/zipcache/SOSReferenced by macro
    • http://utbmontceau.fr/Voyages/Photos/Referenced by macro
    • http://utbmontceau.fr/Photos/Referenced by macro
    • http://www.kubiszyn.co.ukReferenced by macro
    • http://utbmontceau.fr/Conferences/5Referenced by macro
    • http://schemas.microsoft.com/office/2006/01/customuiReferenced by macro
    • http://www.google.com/url?q=http%3A%2F%2Futbmontceau.voila.net&sa=D&sntz=1&usg=AFQjCNEO7X4zslZV7ZkbvSnKULNQ_vv85wReferenced by macro

Extracted artifacts 2

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source from OOXML) 1474583 bytes
SHA-256: 12407e3963048565bce583a1bd35dce40e6518d17610cb3ba46b420756803900
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
#If VBA7 Then
    Private Declare PtrSafe Function FindWindowA Lib "user32" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare PtrSafe Function GetWindowLongA Lib "user32" _
    (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare PtrSafe Function SetWindowLongA Lib "user32" _
    (ByVal hWnd As Long, ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long
#Else
    Private Declare Function FindWindowA Lib "user32" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function GetWindowLongA Lib "user32" _
    (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLongA Lib "user32" _
    (ByVal hWnd As Long, ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long

#End If

Private Sub Workbook_Activate()
    ActiveWorkbook.Unprotect
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Cancel = True
     Application.ThisWorkbook.Saved = True
'Exit Sub
 Dim hWnd As Long
 hWnd = FindWindowA(vbNullString, Application.Caption)
 SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H80000
 End Sub

Private Sub Workbook_Deactivate()
    'UnHookMouse
End Sub

Private Sub Workbook_Open()
    'Exit Sub
     Dim hWnd As Long
     hWnd = FindWindowA(vbNullString, Application.Caption)
     SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
 
End Sub



Attribute VB_Name = "Feuil5"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "Feuil2"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   ' pInit
    'frmPointages.zPointage = Fc(2).Range("O2")
   ' Fc(2).Range("O2").Select
   
End Sub

Attribute VB_Name = "Feuil3"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "mdlMenu"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Université pour Tous de Bourgogne
' Application de gestion de l'antenne de Montceau-les-Mines
'   - Menus : mdlMenus
'       . Menu Général..........................= pMenu_Général
'                                               = pSup_Menu_Général

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Code, Exercice, Dec As Integer, Fréquence
Public msg, Msg_1, Msg_2, Nature, saison, n1, n2, n3, n4, n5, n6 As String
Public Msg_Femmes, Msg_Hommes, Profil


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Actions à l'ouverture du fichier
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Auto_open()
'Exit Sub
   'Stop
    'Application.OnKey "{F3}", "mdlInit.test_Serveur"
    'Application.OnTime Now() + TimeValue("00:00:15"), "mdlInit.pLog"
'Message d'acceuil
    'Dim Message_acceuil_1, Speech
    'Set Speech = CreateObject("sapi.spvoice")
    'Message_acceuil_1 = "Bienvenue sur l'application de gestion des activités de l'UTB"
    'Speech.Speak Message_acceuil_1
    
    With Workbooks("Gestionnaire UTB.xlsm")
        .Activate
        .Sheets("Bureau").Select
    End With
    Application.ScreenUpdating = True
'Rétablissement des commandes de fermeture du gestionnaire
    reactive "Gestionnaire UTB.xlsm"
'Identification du poste connecté
    pRépertoire
   ' Stop
'Identification des postes connectés au réseau
    pServeurs (ComputerName_FX)
'Paramères du poste connecté
    pParamètrages_Poste_Utilisateur (ComputerName_FX)
'Identification de l'utilisateur
    pIdentification_Utilisateur
'
 
 'Stop
    Année = 2011
    With frmSaison
        .Caption = Space(15) & "U.T.B. Montceau-les-Mines"
        pListe_Saisons ("frmSaison")
        .Show
    End With
    'Stop
    
    Select Case Ret
        Case 1 'Valider
            Workbooks("Gestionnaire UTB.xlsm").Sheets("Paramètres").Range("Saison") = frmSaison.zSaison
            GoTo suite
        Case 0 'Quitter
            'Application.DisplayAlerts = False
            'Workbooks("Gestionnaire UTB.xlsm").Saved = True
            Application.Quit
           'Exit Sub
    End Select
suite:
'Affichage du menu général
'Stop
    pMenu_Général frmSaison.zSaison
   ' Application.ScreenUpdating = False
End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Menu général de l'application
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub pMenu_Général(saison)
'Stop
'Déclarations
   Dim Menu_1, Menu_2, Menu_3, Menu_4, Menu_5, Menu_6, Menu_7, Menu_8, Menu_9, Menu_10, bar
'Suppression des menus personnalisés
    For Each bar In Application.CommandBars
   ' MsgBox bar.Name
        If Not bar.BuiltIn And Not bar.Visible Then bar.Delete
    Next
'Initialisations
    'Application.ScreenUpdating = False
    'Workbooks.Open fileName:=Workbooks("Gestionnaire UTB.xlsm").Path & "\Editions.xlsm", UpdateLinks:=0
'Suppression de l'affichage des onglets du bureau
    'Workbooks("Editions.xlsm").Activate
    'ActiveWindow.DisplayWorkbookTabs = True
    'Workbooks("Gestionnaire UTB.xlsm").Activate
    'ActiveWindow.DisplayWorkbookTabs = True
    'Application.ScreenUpdating = False
'Menu général
    Set Menu_1 = CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=9, TEMPORARY:=True)
    Set Menu_1 = Application.CommandBars("Worksheet Menu Bar").Controls(9)
    
'Attribution des fonctionnalités selon les profils
    Select Case Profil
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Case 1 'Président
            With Menu_1
                .Caption = "U.T.B. Montceau-les-Mines"
        'Menu " Gestion des Inscriptions"
                With .Controls.Add(msoControlButton)
                    .Caption = "Gestion des inscriptions"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlAdhérents.pGestion_Inscriptions"
                End With
        'Menu "Gestion des conférences"
                With .Controls.Add(msoControlButton)
                    .Caption = "Gestion des conférences"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlConférences.pGestion_Conférences"
                End With
        'Menu "Contrôle des entées
                 With .Controls.Add(msoControlButton)
                    .Caption = "Contrôle des entrées"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pPointage"
                End With
        'Menu "Gestion des Inscriptions aux voyages"
                'With .Controls.Add(msoControlButton)
                    '.Caption = "Gestion des inscriptions aux voyages"
                    '.OnAction = "Gestionnaire UTB.xlsm!mdlVoyages.pGestion_Inscriptions_Voyages"
                'End With
        'Menu "Gestion des voyages"
                'With .Controls.Add(msoControlButton)
                   ' .Caption = "Gestion des voyages"
                    '.OnAction = "Gestionnaire UTB.xlsm!mdlVoyages.pGestion_Voyages"
               ' End With
        'Menu "Editions"
            Set Menu_6 = Menu_1.Controls.Add(msoControlPopup)
            With Menu_6
                .Caption = "Edition des états"
                With .Controls.Add(msoControlButton)
                   .Caption = "Edition de la liste des adhérents"
                   .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Adhérents"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Synthèse des voyages"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pAffiche_Synthèse_Voyages"
                End With
                With .Controls.Add(msoControlButton)
                   .Caption = "Edition des inscriptions aux voyages"
                   .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Inscriptions_Voyages"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Edition de la fiche voyage"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Fiche_Voyage"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Bilan des inscriptions aux voyages"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlvoyages.pBilan_Inscriptions_Voyages"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Liste des adhérents bénévoles"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Taches"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Tableau de bord"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Tableau_de_bord"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Planning des conférences"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pAffiche_Planning"
                End With
                 With .Controls.Add(msoControlButton)
                    .Caption = "Liste des conférences"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Conférences"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Synthèse des conférences"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Synthèse_Conférenciers"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Liste des conférenciers"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Conférenciers"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Liste des relations extérieures de l'UTB"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Relations_UTB"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Liste des adhérents à joindre par courrier"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pEnvoi_Courriers"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Synthèse de la participation aux conférences"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pParticipations_Conférences"
                End With
           End With
        'Menu "Utilitaires/Paramètrages"
            Set Menu_7 = Menu_1.Controls.Add(msoControlPopup)
            With Menu_7
                .Caption = "Utilitaires / Paramètrages"
                With .Controls.Add(msoControlButton)
                    .Caption = "Impression de la carte d'adhérent"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pImpression_Carte"
                End With
                'Set Menu_9 = Menu_7.Controls.Add(msoControlPopup)
               ' With Menu_9
                   ' .Caption = "Communication interne"
                    ' With .Controls.Add(msoControlButton)
                       ' .Caption = "Envoi des mails hebdomadaires"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdloutlook.pGénération_Mails_Evolution"
                   ' End With
                   
                    'With .Controls.Add(msoControlButton)
                        '.Caption = "Liste des adhérents à joindre par courrier"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pEnvoi_Courriers"
                   ' End With
                   ' With .Controls.Add(msoControlButton)
                       ' .Caption = "Transfert des photos d'illustrations des conférences"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlFTP.pGestion_Illustrations"
                   'End With
                    'With .Controls.Add(msoControlButton)
                        '.Caption = "Pointage des adhérents joints  avec le mailing"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pEnvoi_Emails_Pointage"
                    'End With
                End With
            Set Menu_10 = Menu_1.Controls.Add(msoControlPopup)
                With Menu_10
                    .Caption = "Gestion des photos d'identité"
                    With .Controls.Add(msoControlButton)
                        .Caption = "Gestion des photos d'identité sur le serveur distant"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pGestion_Photos_Identités"
                    End With
                     
                   ' With .Controls.Add(msoControlButton)
                       ' .Caption = "Liste des identités manquantes"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Identités_Manquantes"
                   ' End With
                End With
            'Set Menu_11 = Menu_1.Controls.Add(msoControlPopup)
               ' With Menu_11
                   ' .Caption = "Divers"
                    'With .Controls.Add(msoControlButton)
                        '.Caption = "Relations hors UTB"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pRelations_UTB_Init"
                   ' End With
                    'With .Controls.Add(msoControlButton)
                        '.Caption = "Liste des mailings"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pEnvoi_Emails"
                    'End With
                   ' With .Controls.Add(msoControlButton)
                        '.Caption = "Recherche à partir d'adresses mail"
                       ' .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pRecherche_Email"
                    'End With
                    'With .Controls.Add(msoControlButton)
                       ' .Caption = "Recherche sur chèque"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlCompta.pRecherche_Chèque"
                   ' End With
                   ' With .Controls.Add(msoControlButton)
                       ' .Caption = "Génération des mails voyages"
                       ' .OnAction = "Gestionnaire UTB.xlsm!mdlOutlook.pGénération_Emails_Voyages"
                   ' End With
                'End With
            'End With
            'Menu "Statistiques"
            Set Menu_8 = Menu_1.Controls.Add(msoControlPopup)
            With Menu_8
                .Caption = "Statistiques"
                With .Controls.Add(msoControlButton)
                    .Caption = "Centres d'intérêts et passions"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlStatistiques.pStatistiques_Centres"
                End With
                With .Controls.Add(msoControlButton)
                   .Caption = "Nouveaux adhérents et départs "
                   .OnAction = "Gestionnaire UTB.xlsm!mdlStatistiques.pStatistiques_Evolutions_Adhérents"
                End With
            End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Diffusion d'un mail depuis le dossier 'Brouillons' d'Outlook."
                    .OnAction = "Gestionnaire UTB.xlsm!mdloutlook.pReprise_Mail_Brouillon"
            End With
            'Menu "Aide"
            Set Menu_9 = Menu_1.Controls.Add(msoControlPopup)
            With Menu_9
                .Caption = "Aides"
                With .Controls.Add(msoControlButton)
                    .Caption = "Gestion des photos d'identité"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlAide.pPhotos_Identités"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Fusionner 2 photos"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlAide.pFusion_Photos"
                End With
               ' With .Controls.Add(msoControlButton)
                   '.Caption = "Gestion des illustrations conférences"
                   '.OnAction = ""
               'End With
                With .Controls.Add(msoControlButton)
                   .Caption = "Documentation voyages"
                   .OnAction = "Gestionnaire UTB.xlsm!mdlAide.pDocuments_Voyages"
                End With
            End With
        'Menu "Quitter"
            With .Controls.Add(msoControlButton)
                .Caption = "Quitter"
                .OnAction = "Gestionnaire UTB.xlsm!mdlMenu.pQuitter_Menu_Général"
            End With
        End With
        'Stop
        Case 2 'Vice Président
             With Menu_1
                .Caption = "U.T.B. Montceau-les-Mines"
        'Menu " Gestion des Inscriptions"
                With .Controls.Add(msoControlButton)
                    .Caption = "Gestion des inscriptions"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlAdhérents.pGestion_Inscriptions"
                End With
        'Gestion des photos d'identité
                With .Controls.Add(msoControlButton)
                    .Caption = "Gestion des photos d'identité sur le serveur distant"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pGestion_Photos_Identités"
                End With
                
        'Menu "Gestion des conférences"
                'With .Controls.Add(msoControlButton)
                    '.Caption = "Gestion des conférences"
                    '.OnAction = "Gestionnaire UTB.xlsm!mdlConférences.pGestion_Conférences"
               ' End With
        'Menu "Gestion des Inscriptions aux voyages"
                'With .Controls.Add(msoControlButton)
                    '.Caption = "Gestion des inscriptions aux voyages"
                    '.OnAction = "Gestionnaire UTB.xlsm!mdlVoyages.pGestion_Inscriptions_Voyages"
               ' End With
        'Menu "Gestion des voyages"
               ' With .Controls.Add(msoControlButton)
                    '.Caption = "Gestion des voyages"
                    '.OnAction = "Gestionnaire UTB.xlsm!mdlVoyages.pGestion_Voyages"
                'End With
        'Menu "Editions"
            Set Menu_6 = Menu_1.Controls.Add(msoControlPopup)
            With Menu_6
                .Caption = "Edition des états"
                With .Controls.Add(msoControlButton)
                   .Caption = "Edition de la liste des adhérenrs"
                   .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Adhérents"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Synthèse des voyages"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pAffiche_Synthèse_Voyages"
                End With
                With .Controls.Add(msoControlButton)
                   .Caption = "Edition des inscriptions aux voyages"
                   .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Inscriptions_Voyages"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Edition de la fiche voyage"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Fiche_Voyage"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Bilan des inscriptions aux voyages"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlvoyages.pBilan_Inscriptions_Voyages"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Liste des adhérents bénévoles"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Taches"
                End With
               ' With .Controls.Add(msoControlButton)
                   ' .Caption = "Tableau de bord"
                   ' .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Tableau_de_bord"
               ' End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Planning des conférences"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pAffiche_Planning"
                End With
                 With .Controls.Add(msoControlButton)
                    .Caption = "Liste des conférences"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Conférences"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Liste des conférenciers"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Conférenciers"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Liste des relations extérieures de l'UTB"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Relations_UTB"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Liste des adhérents à joindre par courrier"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pEnvoi_Courriers"
                End With
           End With
        'Menu "Utilitaires/Paramètrages"
            'Set Menu_7 = Menu_1.Controls.Add(msoControlPopup)
           ' With Menu_7
               ' .Caption = "Utilitaires / Paramètrages"
                'Set Menu_9 = Menu_7.Controls.Add(msoControlPopup)
                'With Menu_9
                    '.Caption = "Communication interne"
                     'With .Controls.Add(msoControlButton)
                       ' .Caption = "Envoi des mails hebdomadaires"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdloutlook.pGénération_Mails_Evolution"
                    'End With
                   
                    'With .Controls.Add(msoControlButton)
                        '.Caption = "Liste des adhérents à joindre par courrier"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pEnvoi_Courriers"
                   ' End With
                   ' With .Controls.Add(msoControlButton)
                        '.Caption = "Transfert des photos d'illustrations des conférences"
                       ' .OnAction = "Gestionnaire UTB.xlsm!mdlFTP.pGestion_Illustrations"
                    'End With
                    'With .Controls.Add(msoControlButton)
                        '.Caption = "Pointage des adhérents joints  avec le mailing"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pEnvoi_Emails_Pointage"
                    'End With
                'End With
            'Set Menu_10 = Menu_7.Controls.Add(msoControlPopup)
               ' With Menu_10
                    '.Caption = "Gestion des photos d'identité"
                   ' With .Controls.Add(msoControlButton)
                       ' .Caption = "Gestion des photos d'identité sur le serveur distant"
                       ' .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pGestion_Photos_Identités"
                    'End With
                    'With .Controls.Add(msoControlButton)
                        '.Caption = "Liste des identités manquantes"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Identités_Manquantes"
                    'End With
                'End With
            'Set Menu_11 = Menu_7.Controls.Add(msoControlPopup)
                'With Menu_11
                    '.Caption = "Divers"
                   ' With .Controls.Add(msoControlButton)
                       ' .Caption = "Relations hors UTB"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pRelations_UTB_Init"
                    'End With
                    'With .Controls.Add(msoControlButton)
                        '.Caption = "Liste des mailings"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pEnvoi_Emails"
                    'End With
                   ' With .Controls.Add(msoControlButton)
                        '.Caption = "Recherche à partir d'adresses mail"
                       ' .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pRecherche_Email"
                   ' End With
                   ' With .Controls.Add(msoControlButton)
                       ' .Caption = "Recherche sur chèque"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlCompta.pRecherche_Chèque"
                   ' End With
                   ' With .Controls.Add(msoControlButton)
                        '.Caption = "Génération des mails voyages"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlOutlook.pGénération_Emails_Voyages"
                    'End With
               ' End With
            'End With
            'Menu "Statistiques"
            'Set Menu_8 = Menu_1.Controls.Add(msoControlPopup)
            'With Menu_8
               ' .Caption = "Statistiques"
                'With .Controls.Add(msoControlButton)
                   ' .Caption = "Centres d'intérêts et passions"
                    '.OnAction = "GGestionnaire UTB.xlsm!mdlStatistiques.pStatistiques_Centres"
               ' End With
               ' With .Controls.Add(msoControlButton)
                   '.Caption = "Nouveaux adhérents et départs "
                   '.OnAction = "Gestionnaire UTB.xlsm!mdlStatistiques.pStatistiques_Evolutions_Adhérents"
               ' End With
           ' End With
        'Menu "Quitter"
            With .Controls.Add(msoControlButton)
                .Caption = "Quitter"
                .OnAction = "Gestionnaire UTB.xlsm!mdlMenu.pQuitter_Menu_Général"
            End With
        End With
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Case 3 'Secrétariat
              With Menu_1
                .Caption = "U.T.B. Montceau-les-Mines"
                'Menu " Gestion des Inscriptions"
                With .Controls.Add(msoControlButton)
                    .Caption = "Gestion des inscriptions"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlAdhérents.pGestion_Inscriptions"
                End With
                'Menu " Gestion des Conférences"
                 With .Controls.Add(msoControlButton)
                    .Caption = "Gestion des conférences"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlConférences.pGestion_Conférences"
                End With
                'Menu "Utilitaires"
                Set Menu_7 = Menu_1.Controls.Add(msoControlPopup)
                    With Menu_7
                    .Caption = "Utilitaires / Paramètrages"
                    'Set Menu_9 = Menu_7.Controls.Add(msoControlPopup)
                        With .Controls.Add(msoControlButton)
                            .Caption = "Diffusion d'un mail depuis le dossier 'Brouillons' d'Outlook."
                            .OnAction = "Gestionnaire UTB.xlsm!mdloutlook.pReprise_Mail_Brouillon"
                        End With
                        With .Controls.Add(msoControlButton)
                            .Caption = "Gestion des photos d'identité sur le serveur distant"
                            .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pGestion_Photos_Identités"
                        End With
                        With .Controls.Add(msoControlButton)
                            .Caption = "Transmission des mails aux conférenciers"
                            .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pMail_Conférenciers"
                        End With
                        With .Controls.Add(msoControlButton)
                            .Caption = "Impression de la carte d'adhérent"
                            .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pImpression_Carte"
                        End With
                    End With
                'Menu "Editions"
                Set Menu_6 = Menu_1.Controls.Add(msoControlPopup)
                With Menu_6
                    .Caption = "Edition des états"
                    With .Controls.Add(msoControlButton)
                       .Caption = "Edition de la liste des adhérents"
                       .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Adhérents"
                    End With
                    With .Controls.Add(msoControlButton)
                       .Caption = "Liste des nouveaux adhérents et départs"
                       .OnAction = "Gestionnaire UTB.xlsm!mdlStatistiques.pStatistiques_Evolutions_Adhérents"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Liste des conférenciers"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Conférenciers"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Liste des conférences"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Conférences"
                    End With
                    
                End With
                'Menu "Aides"
                Set Menu_7 = Menu_1.Controls.Add(msoControlPopup)
                With Menu_7
                     .Caption = "Aides"
                     With .Controls.Add(msoControlButton)
                         .Caption = "Gestion des photos d'identité"
                         .OnAction = "Gestionnaire UTB.xlsm!mdlAide.pPhotos_Identités"
                     End With
                    ' With .Controls.Add(msoControlButton)
                         '.Caption = "Fusionner 2 photos"
                         '.OnAction = "Gestionnaire UTB.xlsm!mdlAide.pFusion_Photos"
                     'End With
                    ' With .Controls.Add(msoControlButton)
                        '.Caption = "Gestion des illustrations conférences"
                        '.OnAction = ""
                    'End With
                    'With .Controls.Add(msoControlButton)
                       '.Caption = "Documentation voyages"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlAide.pDocuments_Voyages"
                     'End With
                End With
                'Menu "Quitter"
                With .Controls.Add(msoControlButton)
                    .Caption = "Quitter"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlMenu.pQuitter_Menu_Général"
                End With
             End With
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Case 5 'Inscriptions aux voyages
             With Menu_1
                .Caption = "U.T.B. Montceau-les-Mines"
                 Set Menu_2 = Menu_1.Controls.Add(msoControlPopup)
                 With Menu_2
                    .Caption = "Voyages"
                    With .Controls.Add(msoControlButton)
                        .Caption = "Gestion des voyages"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlVoyages.pGestion_Voyages"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Synthèse des voyages"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pAffiche_Synthèse_Voyages"
                    End With
                    'Menu "Gestion des Inscriptions aux voyages"
                    With .Controls.Add(msoControlButton)
                        .Caption = "Gestion des inscriptions aux voyages"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlVoyages.pGestion_Inscriptions_Voyages"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Edition des inscriptions aux voyages"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Inscriptions_Voyages"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Edition de la fiche voyage"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Fiche_Voyage"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Bilan des inscriptions aux voyages"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlvoyages.pBilan_Inscriptions_Voyages"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Liste des adhérents à joindre par courrier"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pEnvoi_Courriers"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Documentation Voyages"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pGestion_Documents_Voyages"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Génération des mails voyages"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlOutlook.pGénération_Emails_Voyages"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Diffusion d'un mail depuis le dossier 'Brouillons' d'Outlook."
                        .OnAction = "Gestionnaire UTB.xlsm!mdloutlook.pReprise_Mail_Brouillon"
                    End With
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Gestion des inscriptions"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlAdhérents.pGestion_Inscriptions"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Recherche sur chèque"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlCompta.pRecherche_Chèque"
                End With
                
                With .Controls.Add(msoControlButton)
                       .Caption = "Edition d'un bordereau de remise de chèques"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pBordereau_remise_chèques"
                End With
                With .Controls.Add(msoControlButton)
                   .Caption = "Aide - Documentations voyages"
                   .OnAction = "Gestionnaire UTB.xlsm!mdlAide.pDocuments_Voyages"
                End With
                'Menu "Quitter"
                With .Controls.Add(msoControlButton)
                    .Caption = "Quitter"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlMenu.pQuitter_Menu_Général"
                End With
            End With
            
        Case 6 'Consultations
            With Menu_1
                .Caption = "U.T.B. Montceau-les-Mines"
                'Menu "Editions"
                Set Menu_6 = Menu_1.Controls.Add(msoControlPopup)
                With Menu_6
                    .Caption = "Edition des états"
                    With .Controls.Add(msoControlButton)
                       .Caption = "Edition de la liste des adhérenrs"
                       .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Adhérents"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Liste des conférenciers"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Conférenciers"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Liste des conférences"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Conférences"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Planning des conférences"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pAffiche_Planning"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Synthèse des voyages"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pAffiche_Synthèse_Voyages"
                    End With
                    With .Controls.Add(msoControlButton)
                       .Caption = "Edition des inscriptions aux voyages"
                       .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Inscriptions_Voyages"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Liste des adhérents bénévoles"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Taches"
                    End With
                End With
                'Menu "Quitter"
                With .Controls.Add(msoControlButton)
                    .Caption = "Quitter"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlMenu.pQuitter_Menu_Général"
                End With
            End With
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
         Case 7 'Développement
         'Stop
            With Menu_1
                .Caption = "U.T.B. - Gestion des activités "
        'Menu " Gestion des Inscriptions"
                With .Controls.Add(msoControlButton)
                    .Caption = "Gestion des inscriptions aux conférences"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlAdhérents.pGestion_Inscriptions"
                End With
        'Menu "Contrôle des entées
                 With .Controls.Add(msoControlButton)
                    .Caption = "Contrôle des entrées"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pPointage"
                End With
        'Menu "Gestion des conférences"
                With .Controls.Add(msoControlButton)
                    .Caption = "Gestion des conférences"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlConférences.pGestion_Conférences"
                End With
        'Menu "Gestion des Inscriptions aux voyages"
                With .Controls.Add(msoControlButton)
                    .Caption = "Gestion des inscriptions aux voyages"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlVoyages.pGestion_Inscriptions_Voyages"
                End With
        'Menu "Gestion des voyages"
                With .Controls.Add(msoControlButton)
                    .Caption = "Gestion des voyages"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlVoyages.pGestion_Voyages"
                End With
        'Menu "Editions"
            Set Menu_6 = Menu_1.Controls.Add(msoControlPopup)
            With Menu_6
                .Caption = "Edition des états"
                With .Controls.Add(msoControlButton)
                   .Caption = "Edition de la liste des adhérenrs"
                   .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Adhérents"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Synthèse des voyages"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pAffiche_Synthèse_Voyages"
                End With
                With .Controls.Add(msoControlButton)
                   .Caption = "Edition des inscriptions aux voyages"
                   .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Inscriptions_Voyages"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Liste des adhérents bénévoles"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Taches"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Tableau de bord"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Tableau_de_bord"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Planning des conférences"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pAffiche_Planning"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Liste des conférences"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Conférences"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Synthèse des conférences"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Synthèse_Conférenciers"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Liste des conférenciers"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Conférenciers"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Liste des relations extérieures de l'UTB"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Relations_UTB"
                End With
                 With .Controls.Add(msoControlButton)
                    .Caption = "Edition de la fiche voyage"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Fiche_Voyage"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Bilan des inscriptions aux voyages"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlvoyages.pBilan_Inscriptions_Voyages"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Recherche sur chèque"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlCompta.pRecherche_Chèque()"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Liste des adhérents à joindre par courrier"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pEnvoi_Courriers"
                End With
                With .Controls.Add(msoControlButton)
                    .Caption = "Synthèse de la participation aux conférences"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pParticipations_Conférences"
                End With
                'With .Controls.Add(msoControlButton)
                   ' .Caption = "Participation aux conférences - Synthèse"
                    '.OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pParticipations_Conférences"
                'End With
                
           End With
        'Menu "Utilitaires/Paramètrages"
            Set Menu_7 = Menu_1.Controls.Add(msoControlPopup)
            With Menu_7
                .Caption = "Utilitaires / Paramètrages"
                Set Menu_9 = Menu_7.Controls.Add(msoControlPopup)
                With Menu_9
                    .Caption = "Communication interne"
                   '  With .Controls.Add(msoControlButton)
                       ' .Caption = "Envoi mails"
                       ' .OnAction = "Gestionnaire UTB.xlsm!mdloutlook.pGénération_Mails"
                    'End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Envoi mails"
                        .OnAction = "Gestionnaire UTB.xlsm!mdloutlook.pGénération_Mails_Evolution"
                    End With
                     With .Controls.Add(msoControlButton)
                        .Caption = "Diffusion d'un mail depuis le dossier 'Brouillons' d'Outlook."
                        .OnAction = "Gestionnaire UTB.xlsm!mdloutlook.pReprise_Mail_Brouillon"
                    End With
                    With .Controls.Add(msoControlButton)
                    .Caption = "Liste des mailings"
                    .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pEnvoi_Emails"
                     End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Liste des adhérents à joindre par courrier"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pEnvoi_Courriers"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Pointage des adhérents joints  avec le mailing"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pEnvoi_Emails_Pointage"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Transfert des photos d'illustrations des conférences"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlFTP.pGestion_Illustrations"
                    End With
                End With
            Set Menu_10 = Menu_7.Controls.Add(msoControlPopup)
                With Menu_10
                    .Caption = "Gestion des photos d'identité"
                    With .Controls.Add(msoControlButton)
                        .Caption = "Gestion des photos d'identité sur le serveur distant"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pGestion_Photos_Identités"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Mise à jour de la base des photos d'identité pour les adhérents de la saison"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pMAJ_Identités_Base"
                    End With
                    'With .Controls.Add(msoControlButton)
                        '.Caption = "Enregistrement global des photos d'identité"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pTransfert_Identités"
                    'End With
                    'With .Controls.Add(msoControlButton)
                    '.Caption = "Contrôle de la base des photos d'identité"
                    '.OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pIdentités"
                    'End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Liste des identités manquantes de la base restreinte"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlEditions.pEdition_Liste_Identités_Manquantes"
                    End With
                End With
            Set Menu_11 = Menu_7.Controls.Add(msoControlPopup)
                With Menu_11
                    .Caption = "Paramètrage de l'environnement"
                    'With .Controls.Add(msoControlButton)
                        '.Caption = "Relations hors UTB"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pRelations_UTB_Init"
                    'End With
                    ' With .Controls.Add(msoControlButton)
                        '.Caption = "Recherche à partir d'adresses mail"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pRecherche_Email"
                   ' End With
                   ' With .Controls.Add(msoControlButton)
                        '.Caption = "Paramètrage des saisons"
                        '.OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pParamètrage_Saisons"
                   ' End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Gestions des postes utilisateurs"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pGestion_Postes_Utilisateurs"
                    End With
                     With .Controls.Add(msoControlButton)
                        .Caption = "Gestions des utilisateurs"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pGestion_Utilisateurs"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Paramètrage du serveur distant"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pParamètrages_Serveur_Distant"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Gestion du répertoire 'Conférences' du serveur distant"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pGestion_Répertoires_Distants"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Sélection du badge de la saison"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pSélection_Badge"
                    End With
                
                
                
                End With
                Set Menu_12 = Menu_7.Controls.Add(msoControlPopup)
                With Menu_12
                    .Caption = "Divers"
                    With .Controls.Add(msoControlButton)
                        .Caption = "Relations hors UTB"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pRelations_UTB_Init"
                    End With
                     With .Controls.Add(msoControlButton)
                        .Caption = "Recherche à partir d'adresses mail"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pRecherche_Email"
                    End With
                   With .Controls.Add(msoControlButton)
                        .Caption = "Génération des mails voyages"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlOutlook.pGénération_Emails_Voyages"
                    End With
                     With .Controls.Add(msoControlButton)
                        .Caption = "Documentation Voyages"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pGestion_Documents_Voyages"
                    End With
                    With .Controls.Add(msoControlButton)
                       .Caption = "Transmission des mails aux conférenciers"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pMail_Conférenciers"
                    End With
                    With .Controls.Add(msoControlButton)
                       .Caption = "Extraction base pour 'Badge Studio'"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pBase_Cartes"
                    End With
                    With .Controls.Add(msoControlButton)
                       .Caption = "Edition d'un bordereau de remise de chèques"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pBordereau_remise_chèques"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Impression de la carte d'adhérent"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pImpression_Carte"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Présentation Power Point"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlPower_Point.pPrésentation_PP"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Pointage des entrées"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlUtilitaires.pPointage"
                    End With
                     With .Controls.Add(msoControlButton)
                        .Caption = "Création des badges"
                        .OnAction = "Gestionnaire UTB.xlsm!mdlBadges.pCréation_Badges"
                    End With
                    With .Controls.Add(msoControlButton)
                        .Caption = "Transfert des photos d'identités des adhérents de la saison depuis le serveur"
…
vbaProject_00.bin vba-project OOXML VBA project: xl/vbaProject.bin 3679744 bytes
SHA-256: 535ad00ecc2c670a74477d2c44e6309b3bc3361a99085c2bcaec556bd366538c

Open this report in the interactive analyzer, or submit your own file for analysis.