Addition à travers plusieurs fichiers

Bonjour et meilleurs voeux à tous

voilà j'ai parcouru les sujets et je n'ai pas vraiment trouvé ce que je cherche

les classeurs sont dans un dossier mensuel nommé "x"

les classeurs ont tous le meme nom au format xlsm : donc nom du classeur "y"_jj_mm_aaaa.xlsm

la cellule a additionner quotidiennement est "I10" de la feuille1

le total du mois est a reporter dans la cellule "I11" de la meme feuille et ce pour chaque nouveau jour

espérant avoir été assez clair je vous souhaite le meilleur pour 2025

Jacques

Bonjour,

Power Query me semble la bonne solution.

Cordialement

Bonsoir à tous !

jpbt84 a écrit :

Power Query me semble la bonne solution.

Hélas non !

De ce que je comprends, il est nécessaire d'effectuer une opération identique dans les classeurs du dossier concerné. Nous sommes hors de l'usage de l'outil Power Query.

A voir du côté de VBA.

JFL a écrit :

Bonsoir à tous !

jpbt84 a écrit :

Power Query me semble la bonne solution.

Hélas non !

De ce que je comprends, il est nécessaire d'effectuer une opération identique dans les classeurs du dossier concerné. Nous sommes hors de l'usage de l'outil Power Query.

A voir du côté de VBA.

bonjour le nom du chemin

merçi à tous mais j'ai trouvé grace à une macro qui a résolu le problème

encore merçi

Bonjour, je réouvre le sujet en vous mettant la macro qui fonctionne bien mais j'aimerais qu'elle fonctionne différement, c'est à dire que j'aimerais qu'elle me fasse le total mais qu'elle ne parcoure pas tous les classeurs jusqu'à la fin du mois puisque le mois n'est pas terminé donc il faudrait qu'elle me mette le total dans le classeur du jour et qu'elle laisse le classeur du jour ouvert car cette macro met du temps et me met le total uniquement dans la dernière feuille du mois et ferme le classeur

le dossier se nomme : Janvier2025, les classeurs ont tous le même nom: PokerSpins_JJ/MM/AAAA.xlsm

il n'est pas nécéssaire d'avoir uns MsgBox à la fin pour me dire que ça s'est bien passé car le classeur du jour sera ouvert donc je le verrai directement si ça a fonctionné

pour les mois suivants je créerai un dossier avec le mois etc etc

merçi à tous d'avance

Sub a058AdditionnerJ10EtMettreDansJ11FinDeMois()

    Dim dossier As String
    Dim fichier As String
    Dim somme As Double
    Dim wb As Workbook

    ' Spécifiez le chemin du dossier contenant vos fichiers
    dossier = "C:\Users\Julien\OneDrive\Poker\Janvier2025\"  ' Chemin vers le dossier

    ' Initialiser la somme
    somme = 0

    ' Obtenir le premier fichier avec le nom spécifié
    fichier = Dir(dossier & "PokerSpins_*.xlsm")  ' Fichiers des PokerSpins au format XLSM

    ' Boucler à travers tous les fichiers
    Do While fichier <> ""
        ' Ouvrir le classeur
        Set wb = Workbooks.Open(dossier & fichier)

        ' Additionner la valeur de J11 dans la feuille Winamax
        somme = somme + wb.Sheets("Winamax").Range("J11").Value

        ' Fermer le classeur
        wb.Close SaveChanges:=False

        ' Obtenir le prochain fichier
        fichier = Dir
    Loop

    ' Ouvrir le classeur du dernier jour du mois (31 janvier 2025)
    Set wb = Workbooks.Open(dossier & "PokerSpins_31_01_2025.xlsm")  ' Nom du fichier pour le dernier jour

    ' Placer la somme dans la cellule J12 de la feuille Winamax
    wb.Sheets("Winamax").Range("J12").Value = somme

    ' Enregistrer et fermer le classeur
    wb.Close SaveChanges:=True

    ' Informer l'utilisateur que l'opération est terminée

End Sub

    ' Réactiver le recalcul automatique et les alertes
    Application.Calculation = xlCalculationAutomatic
    Application.DisplayAlerts = True

    ' Informer l'utilisateur que l'opération est terminée
    MsgBox "La somme des cellules I10 a été ajoutée à I11 dans le fichier du dernier jour."
End Sub

Veuillez m'excuser , ma macro n'est pas bonne merçi je clos le sujet