Sommes de cellules de plusieurs classeurs sans les ouvrir

Bonjour

J'ai besoin de vous.

J'ai récupéré un code qui me semblait être parfait. J'ai effectué quelques test sur des fichiers test qui ont fonctionnés.

Par contre dès que j'ai ajouté le code à mon fichier source j'ai un message d'erreur d'exécution 13 Incompatibilité de type.

L'erreur semble provenir de cette partie

 For i = LBound(Cellules) To UBound(Cellules): Somme(i) = CSng(Range(Cellules(i))): Next

Je vous présente mon code.

 Sub SommeCellules() 
 Dim Chemin As String, Fichier As String, Feuille As String, Somme(), Cellules, i As Byte, V As String, AddCel

    Chemin = ThisWorkbook.Path & "\"

    Feuille = "Sommaire": Cellules = Array("A9:N9", "A11:N11", "A16:N16", "A18:N18")
    ReDim Somme(LBound(Cellules) To UBound(Cellules))
    For i = LBound(Cellules) To UBound(Cellules): Somme(i) = CSng(Range(Cellules(i))): Next
   Fichier = Dir(Chemin & "*.xlsm")

    Do While Len(Fichier) > 0
                For i = LBound(Cellules) To UBound(Cellules)
                    V = "'" & Chemin & "[" & Fichier & "]" & Feuille & "'!" & Range(Cellules(i)).Address(, , xlR1C1)
                    AddCel = Application.ExecuteExcel4Macro(V)
                    Somme(i) = CSng(Somme(i)) + CSng(AddCel)
                Next
        Fichier = Dir()
    Loop
    For i = LBound(Somme) To UBound(Somme): Range(Cellules(i)) = Somme(i): Next
End Sub

Merci de votre aide!

Bonjour,

Sans tester...

Comme tu as défini "i" as Byte, tu es donc limité à 32 255 lignes..

Définis le comme "Long", pour être sûr?

Non toujours la même erreur!!!

Re-,

Tu dis que ça fonctionne avec tes essais...

Je ne pense pas qu'on puisse convertir toute une plage de cellules (CSng(Range(....)), mais je peux me tromper!!!!

Re-,

Comme le suggère ton titre, tu souhaites la somme de ces cellules

peut-être ainsi :

 For i = LBound(Cellules) To UBound(Cellules): Somme(i) = CSng(Application.Sum(Range(Cellules(i)))): Next

Merci cousinhb29 Tout est régler avec ta solution!