Attribute VB_Name = "modPipelineIDR13"
Option Explicit

Public Sub RunPipelineIDRIFC()

    On Error GoTo GestionErreur

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    '==========================================
    ' Vérification des référentiels obligatoires
    '==========================================

    If Not SheetExistsIDR("REFERENTIEL_SOURCES_CERTIFIEES") Then
        MsgBox "REFERENTIEL_SOURCES_CERTIFIEES absent.", vbCritical
        GoTo FinTraitement
    End If

    If Not SheetExistsIDR("REF_HYPOTHESES_ACTUARIELLES") Then
        MsgBox "REF_HYPOTHESES_ACTUARIELLES absent.", vbCritical
        GoTo FinTraitement
    End If

    If Not SheetExistsIDR("TABLE_MORTALITE") Then
        MsgBox "TABLE_MORTALITE absente.", vbCritical
        GoTo FinTraitement
    End If

    If Not SheetExistsIDR("BAREMES_IDR") Then
        MsgBox "BAREMES_IDR absent.", vbCritical
        GoTo FinTraitement
    End If

    '==========================================
    ' Import population
    '==========================================

    ImporterCSVPopulation

    AlimenterPopulationSalaries

    '==========================================
    ' Calcul IDR
    '==========================================

    CalculerProvisionIDRProjetee

    '==========================================
    ' Contrôles
    '==========================================

    LancerTousLesControlesIDR

    '==========================================
    ' KPI
    '==========================================

    CalculerKPIHypothesesIDR

    '==========================================
    ' Dashboard
    '==========================================

    ConstruireDashboardIDR

    MsgBox "Pipeline IDR/IFC terminé avec succès.", vbInformation

FinTraitement:

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    Exit Sub

GestionErreur:

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    MsgBox "Erreur Pipeline : " & _
           Err.Number & " - " & _
           Err.Description, _
           vbCritical

End Sub