Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

somme recap de fichiers identiques enregistrés dans un même répertoire

A

amauryde

XLDnaute Occasionnel
Bonjour, je sais que je vous en demande bcp mais grace à vous je pregresse très vite

Je collecte 30 fichiers excel tous identiques. J'aimerai faire un fichier excel avec le même format, les mêmes cellule au même endroit en ayant dans chaque cellule numérique, la somme des 60 fichiers.

Exemple sur 4 fichiers: en cellule B10 de mes fichiers j'ai les nombres 1, 5, 4, 6 . j'aimerai retrouver dans la cellule B10 de mon fichier récapitulatif la somme, soit 16 (dans mon exemple).

La solution de cliquer sur tous les fichiers un par un pour faire de références ne me parait pas viable.

Merci de votre aide.

Cordialement.

informations:

- tous les fichiers, et seulement ceux là, sont dans un même répertoire
- ils sont tous écrit sous la forme: "Reporte de Chatarra del " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & ActiveWorkbook.Name
- le fichier recap ne serait pas enregistré dans le même répertoire
 
Trier par date Trier par votes
A

amauryde

XLDnaute Occasionnel
Re : somme recap de fichiers identiques enregistrés dans un même répertoire

Re,

j'ai parlé trop vite. je me retrouve avec une incompatibilité de type 13.

Chacune de mes cases B5,..., B18, de mes fichier à additionner dépendent d'une fonction: =SOMMEPROD(SOMME.SI(INDIRECT("'"&Nf&"'!Q32:Q38");A5;INDIRECT("'"&Nf&"'!V32:V38"))), je ne pensais pas que ça poserai problème
lorsque j'execute la commande du fichier recap pour pouvoir additionner mes infos journalières, excel ne prend pas en compte cette fonction et me mets dans chaque case de mon premier fichier de ma boucle: REF!

puis débogage à partir d'ici:

ActiveWindow.ActiveSheet.Range("B5") = ActiveWindow.ActiveSheet.Range("B5") + xlSheet.Range("B5")
ActiveWindow.ActiveSheet.Range("B6") = ActiveWindow.ActiveSheet.Range("B6") + xlSheet.Range("B6")
ActiveWindow.ActiveSheet.Range("B7") = ActiveWindow.ActiveSheet.Range("B7") + xlSheet.Range("B7")
ActiveWindow.ActiveSheet.Range("B8") = ActiveWindow.ActiveSheet.Range("B8") + xlSheet.Range("B8")
ActiveWindow.ActiveSheet.Range("B9") = ActiveWindow.ActiveSheet.Range("B9") + xlSheet.Range("B9")
ActiveWindow.ActiveSheet.Range("B10") = ActiveWindow.ActiveSheet.Range("B10") + xlSheet.Range("B10")
ActiveWindow.ActiveSheet.Range("B11") = ActiveWindow.ActiveSheet.Range("B11") + xlSheet.Range("B11")
ActiveWindow.ActiveSheet.Range("B12") = ActiveWindow.ActiveSheet.Range("B12") + xlSheet.Range("B12")
ActiveWindow.ActiveSheet.Range("B13") = ActiveWindow.ActiveSheet.Range("B13") + xlSheet.Range("B13")
ActiveWindow.ActiveSheet.Range("B14") = ActiveWindow.ActiveSheet.Range("B14") + xlSheet.Range("B14")
ActiveWindow.ActiveSheet.Range("B15") = ActiveWindow.ActiveSheet.Range("B15") + xlSheet.Range("B15")
ActiveWindow.ActiveSheet.Range("B16") = ActiveWindow.ActiveSheet.Range("B16") + xlSheet.Range("B16")
ActiveWindow.ActiveSheet.Range("B17") = ActiveWindow.ActiveSheet.Range("B17") + xlSheet.Range("B17")
ActiveWindow.ActiveSheet.Range("B18") = ActiveWindow.ActiveSheet.Range("B18") + xlSheet.Range("B18")
ActiveWindow.ActiveSheet.Range("B19") = ActiveWindow.ActiveSheet.Range("B19") + xlSheet.Range("B19")

As-tu une idée pour contourner ou régler ce problème?

Merci d'avance
 
Vote positif 0 Vote négatif

WUTED

XLDnaute Occasionnel
Re : somme recap de fichiers identiques enregistrés dans un même répertoire

Re,

Sans le fichier avec formule sous la main, en ajoutant à ça que je ne suis pas encore super à l'aise avec les formules d'excel...essaye de rajouter un .Value aprés tes Range, histoire de préciser que tu veux seulement la valeur de la cellule.
 
Vote positif 0 Vote négatif
A

amauryde

XLDnaute Occasionnel
Re : somme recap de fichiers identiques enregistrés dans un même répertoire

merci pour ta réponse mais ça ne marche pas, je te prépare un fichier si tu as le temps de jeter un coup d'oeil
Merci
 
Vote positif 0 Vote négatif
A

amauryde

XLDnaute Occasionnel
Re : somme recap de fichiers identiques enregistrés dans un même répertoire

avec un fichier qui marche c'est juste mieux dsl pour mon dernier envoi
 

Pièces jointes

  • 06-Junio 2012.zip
    104.3 KB · Affichages: 21
  • 06-Junio 2012.zip
    104.3 KB · Affichages: 24
  • 06-Junio 2012.zip
    104.3 KB · Affichages: 18
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

D
  • Question
Microsoft 365 Passage d'un répertoire à Teams
Réponses
1
Affichages
174
fanch55
G
  • Résolu(e)
XL 2021 2 tableaux, 2 exploitations identiques, une fonctionne l'autre pas je suis perdu
Réponses
5
Affichages
224
greggies
G
M
  • Question
XL 2010 Récupération de données et les transformer avec Power Query ?
Réponses
3
Affichages
302
DJunqueira
D
  • Question
Microsoft 365 Conserver la valeur de ma variable pour l'utiliser dans un autre code
Réponses
3
Affichages
164
mapomme
B
  • Résolu(e)
Power Query récupérer fichier excel toujours de la première à la nième colonne
Réponses
7
Affichages
372
Cousinhub
F
  • Question
Microsoft 365 macro edition détail d'un TCD et envoi dans un email
Réponses
1
Affichages
141
fabancel
F
B
  • Question
XL 2016 Exécution macro à l'ouverture de fichier
Réponses
3
Affichages
370
crocrocro
C
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
274
Nico2978
B
  • Question
XL 2019 Création d'une base de données à partir de plusieurs fichiers Excel
Réponses
5
Affichages
981
battijo
B
  • Question
XL 2016 Base puis création de fichiers multiples sous une présentation similaire
Réponses
5
Affichages
450
Julie-F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…