Attribute VB_Name = "ModAlimenterPop7"
Option Explicit

Public Sub AlimenterPopulationSalaries()
    Dim wsImport As Worksheet
    Dim wsPop As Worksheet
    Dim lastRow As Long

    Set wsImport = Worksheets("IMPORT_CSV_SALARIES")
    Set wsPop = ResetSheetIDR("POPULATION_SALARIES")

    EcrireEntetesPopulation wsPop

    lastRow = wsImport.Cells(wsImport.Rows.Count, 1).End(xlUp).Row
    If lastRow < 2 Then
        MsgBox "Aucune donnee dans IMPORT_CSV_SALARIES.", vbExclamation
        Exit Sub
    End If

    wsImport.Range("A2:Q" & lastRow).Copy
    wsPop.Range("A2").PasteSpecial xlPasteValues
    Application.CutCopyMode = False

    lastRow = wsPop.Cells(wsPop.Rows.Count, 1).End(xlUp).Row
    AjouterCalculAgeAnciennete wsPop, lastRow
    FormatReferentielIDR wsPop, "A1:S1"

    MsgBox lastRow - 1 & " salaries charges dans POPULATION_SALARIES.", vbInformation
End Sub

Private Sub EcrireEntetesPopulation(ByVal ws As Worksheet)
    ws.Cells(1, 1).value = "Matricule"
    ws.Cells(1, 2).value = "Nom"
    ws.Cells(1, 3).value = "Prenom"
    ws.Cells(1, 4).value = "Sexe"
    ws.Cells(1, 5).value = "CSP"
    ws.Cells(1, 6).value = "Accord_Entreprise"
    ws.Cells(1, 7).value = "Date_Naissance"
    ws.Cells(1, 8).value = "Date_Entree"
    ws.Cells(1, 9).value = "Date_Sortie"
    ws.Cells(1, 10).value = "Statut"
    ws.Cells(1, 11).value = "Convention"
    ws.Cells(1, 12).value = "Etablissement"
    ws.Cells(1, 13).value = "Salaire_Brut_Mensuel"
    ws.Cells(1, 14).value = "Remuneration_12_Mois"
    ws.Cells(1, 15).value = "Remuneration_3_Mois"
    ws.Cells(1, 16).value = "Primes_Annuelles"
    ws.Cells(1, 17).value = "Temps_Travail"
    ws.Cells(1, 18).value = "Age"
    ws.Cells(1, 19).value = "Anciennete"
End Sub

Private Sub AjouterCalculAgeAnciennete(ByVal ws As Worksheet, ByVal lastRow As Long)
    With ws
        .Range("R2:R" & lastRow).Formula = "=IFERROR(DATEDIF(G2,TODAY(),""Y""),0)"
        .Range("S2:S" & lastRow).Formula = "=IFERROR(DATEDIF(H2,TODAY(),""Y""),0)"
    End With
End Sub