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 😀.
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 😀.