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

VBA : addition d'une cellule se trouvant sur plusieurs fichiers excel

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion peper94
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

peper94

XLDnaute Nouveau
Bonjour à tous,
je sollicite votre aide pour un souci sous excel.
Je souhaite additionner une cellule fusionnée (H4) qui se trouve sur plusieurs classeurs excel (de type *.xls) dans un nouveau classeur.
J'ai donc récupéré sur ce forum le code suivant (que j'ai adapté à ma situation) :


Sub a()
Dim Chemin$, feuille$, classeur$, cellule$, x_ls$, n As Long, x As Double
Chemin = "F:\2012 01 02\moi\2011"
feuille = "Recap": cellule = "'!R4C8": x_ls = Dir(Chemin & "*.xls")
Application.ScreenUpdating = False
Do While x_ls <> ""
classeur = x_ls
n = n + 1
x = x + Val(ExecuteExcel4Macro("'" & Chemin & "[" & x_ls & "]" & feuille & cellule))
x_ls = Dir
Loop
Application.ScreenUpdating = True
[A1] = "TOTAL de la cellule H4 de " & n & " classeur(s)"
[A2] = x
End Sub

Mon problème c'est que ce code ne me donne aucun résultat sauf l'affichage en A1 de "TOTAL de la cellule H4 de 0 classeur(s)" et en A2 le chiffre 0.

Merci d'avance pour votre aide 😀.
 
Trier par date Trier par votes
Re : VBA : addition d'une cellule se trouvant sur plusieurs fichiers excel

Bonjour peper94, bienvenue sur XLD,

Bien sûr je n'ai pas testé, mais a priori il manquait un slash \ à la fin :

Code: 
Chemin = "F:\2012 01 02\moi\2011\"
A+
 
Vote positif 0 Vote négatif
Re : VBA : addition d'une cellule se trouvant sur plusieurs fichiers excel

Merci pour cette réponse rapide job75.
J'ai ajouté le "\" mais maintenant j'ai un message d'erreur 1004 au niveau de cette ligne :

x = x + Val(ExecuteExcel4Macro("'" & Chemin & "[" & x_ls & "]" & feuille & cellule))


j'ai donc essayé ça:
Chemin = "F:\2012 01 02\moi\2011 ===> sans le "\"
x = x + Val(ExecuteExcel4Macro("'" & Chemin & "\[" & x_ls & "]" & feuille & cellule))

mais le résultat est le même que d'habitude: c'est que ce code ne me donne aucun résultat sauf l'affichage en en A1 de "TOTAL de la cellule H4 de 0 classeur(s)" et en A2 le chiffre 0.


NB: mon fichier dans lequel est appliqué le code est dans le même dossier que les autres fichiers

Merci encore !!
 
Vote positif 0 Vote négatif
Re : VBA : addition d'une cellule se trouvant sur plusieurs fichiers excel

Re,

peper94 à dit:
NB: mon fichier dans lequel est appliqué le code est dans le même dossier que les autres fichiers
Cliquez pour agrandir...

Alors on peut simplifier le chemin en utilisant ThisWorkbook.Path.

Et s'il y a des fichiers .xls sans feuille Recap utiliser On Error Resume Next :

Code: 
Sub a()
Dim Chemin$, feuille$, classeur$, cellule$, x_ls$, n As Long, x As Double
Chemin = ThisWorkbook.Path & "\"
feuille = "Recap": cellule = "'!R4C8": x_ls = Dir(Chemin & "*.xls")
Do While x_ls <> ""
If x_ls <> ThisWorkbook.Name Then 'exclut le fichier contenant la macro
  On Error Resume Next 'si la feuille Recap n'existe pas
  x = x + Val(ExecuteExcel4Macro("'" & Chemin & "[" & x_ls & "]" & feuille & cellule))
  If Err = 0 Then n = n + 1
End If
x_ls = Dir
Loop
[A1] = "TOTAL de la cellule H4 de " & n & " classeur(s)"
[A2] = x
End Sub
Nota : j'ai enlevé les Application.Screenupdating, ils ne servent à rien...

A+
 
Vote positif 0 Vote négatif
Re : VBA : addition d'une cellule se trouvant sur plusieurs fichiers excel

Merci beaucoup !!!!! ça marche !!!

J'imagine que le problème venait du chemin d'accès aux fichiers, mais cette méthode est parfaite !!!! 😎
 
Vote positif 0 Vote négatif
Re : VBA : addition d'une cellule se trouvant sur plusieurs fichiers excel

Re,

Mis à part l'histoire du slash, le bug venait de Recap qui n'existe probablement pas dans le fichier de la macro...

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
791
job75
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
3 K
cathodique
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
357
CDALE
C
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
547
JJ69
J
L
  • Résolu(e)
Microsoft 365 Décompte via plusieurs fichiers CSV
Réponses
12
Affichages
775
WTF
C
  • Résolu(e)
Microsoft 365 Amélioration Macro.
Réponses
7
Affichages
694
crazy
C
P
  • Résolu(e)
XL 2016 4 étapes en 1 seule Excel vba
Réponses
4
Affichages
835
Pygos691
P
S
  • Question Question
XL 2019 Enregistrer plusieurs feuilles excel en un fichier PDF dans un dossier portant le nom d'une cellule
Réponses
4
Affichages
2 K
Phil69970
O
  • Question Question
XL 2010 suppression fichiers excel vba
Réponses
9
Affichages
676
Oneida
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
372
Lu76Fer
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
681
loreak
L
F
  • Résolu(e)
XL 2010 Importer des données de plusieurs fichiers sans les ouvrir
Réponses
9
Affichages
2 K
Hasco
  • Question Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
4 K
Nicolas JACQUIN
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
832
oguruma
Z
  • Question Question
Microsoft 365 Changement de la valeur d'une cellule en fonction de la valeur d'une autre cellule
Réponses
7
Affichages
914
Zifox
Z
R
  • Question Question
XL 2010 VBA : consolidation
Réponses
2
Affichages
914
Rousseau Benoit
R
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
N
  • Question Question
XL 2021 BESOIN D'aide macro
Réponses
7
Affichages
1 K
Gégé-45550
  • Question Question
XL 2021 import-informations-classeurs-fermes
2 3
Réponses
40
Affichages
4 K
Usine à gaz
B
  • Résolu(e)
XL 2019 Appliquer une macro à plusieurs fichiers d'un dossier - Débogage ?
Réponses
9
Affichages
1 K
Bastien43
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…