Addition facture à partir des fichier fermé

 Addition.Liste.Column(1, Addition.Liste.ListCount - 1) = Wb.Sheets(1).[MontantTTC].Value

Public addition_facture As Double ' mettre tout en haut du code
Public chemin As String ' mettre tout en haut du code
Private Sub CBAddition_Click()
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")

For I = Liste.ListCount - 1 To 0 Step -1
If Addition.Liste.Selected(I) = True Then
WK = chemin & Addition.Liste.List(I)
NomFeuille = "Akisti Bat"
Set MonObject = GetObject(WK)
With MonObject
If addition_facture = 0 Then
addition_facture = .Sheets(NomFeuille).Range("MontantTTC").Value
Else:
addition_facture = addition_facture + .Sheets(NomFeuille).Range("MontantTTC").Value
End If
End With
MonObject.Close (True)
Set MonObject = Nothing
End If
Next
MsgBox addition_facture, vbInformation, "Somme des factures sélectionnées"
End Sub

Const Chemin As String ="c:\Ronibo\"
Private Sub CBAddition_Click()
Dim cnx As Object
Dim i As Integer, rs, cnt
Const sql As String = "SELECT * FROM MontantTTC;"
Const cnxString As String = "Provider=Microsoft.ACE.OLEDB.12.0;DataSource= ?;Extended Properties=""Excel 12.0 Macro;HDR=YES"";"
    
    For i = 0 To Liste.ListCount - 1
        If Me.Liste.Selected(i) Then
            Set cnx = CreateObject("ADODB.Connection")
            cnx.ConnectionString = Replace(cnxString, "?", Chemin & Liste.List(i))
            cnx.Open
            Set rs = cnx.Execute(sql)
            cnt = cnt + CDbl(rs.Fields(0).Name)
            rs.Close: Set rs = Nothing
            cnx.Close: Set cnx = Nothing
            Me.Liste.Selected(i) = False
        End If
    Next
    MsgBox Format(cnt, "currency")
End Sub