Macro qui calcule sur plusieurs fichiers

Bonjour le forum,

Je (re)cherche une macro qui me calculerais des données de plusieurs cellules de plusieurs fichiers sur un fichier nommé résultat. Les cellules sont toutes à la même place dans tous les fichiers.

Par avance, merci pour vos idées.

Bien à vous

Bonjour,

est ce qu'il faut parcourir tous les fichiers d'un répertoire connu ?

oui

les cellules sont t'elles sur la même feuille ?

si oui, les cellules sont t'elles adjacentes ?

Merci de t'investir dans ce challenge,

Toutes les cellules des feuilles sont toutes idenditiques et les résultats sont au même endroit (ex : A45).

Bien à toi

est ce que le nom et/ou le nombre de feuilles peut varier d'un fichier à l'autre ?

Oui et je pense que c'est une difficulté en plus

Oui et je pense que c'est une difficulté en plus

quand vous aurai toute l'information, revenez nous le dire.

Dans un fichiers j'ai 7 onglets

Dans 6 autres fichiers, j'ai 4 onglets

et il faut récupérer la valeur de la cellule (?) de l'onglet (?) ou de tous les onglet du fichier..... ?

Il faut récupérer la valeur a45 de la feuille1 du classeur1 pour les amener dans le classeur2 en feuille "résultat" en cellule a2.

Bonjour,

voici un exemple à tester,

Sub Lire_cellule()
'Il faut récupérer la valeur a45 de la feuille1 du classeur1 pour les amener dans le classeur2 en feuille "résultat" en cellule a2.

Dim Chemin As String, Fichier As String, adresse As String
Dim sRep As String, sFile As String, sSh As String, rw As Integer, cn As Integer

Chemin = "C:\Users\xxxxxx\Documents\test\" 'adapter à votre répertoire
Fichier = Dir(Chemin & "*.xls*")   'adapter à l'extention de vos fichiers
adresse = "$A$45"

Do While Fichier <> ""
    Debug.Print Fichier

    sRep = "" & Chemin
    sFile = "" & Fichier
    sSh = "zzz"     'adapter au nom de la feuille
    rw = Range(adresse).Row
    cn = Range(adresse).Column

    Arg = "'" & sRep & "[" & sFile & "]" & sSh & "'!R" & rw & "C" & cn & ""
    GetValue = ExecuteExcel4Macro(Arg)

    Debug.Print GetValue
    Resultat = Resultat + GetValue

    'prochain fichier
    Fichier = Dir()
Loop

Sheets("résultat").Range("A2") = Resultat
End Sub

Bonjour,

J'ai beau essayer mais rien ne se passe.

Que veut dire "adapter à votre répertoire",ni connaissant rien en macro, je suis perdu

Bonjour,

Que veut dire "adapter à votre répertoire

dans quel répertoire son vos fichiers ?

Mes fichiers sont sur le bureau

donc vous comprenez que les fichiers ne sont pas sur le répertoire,

Chemin = "C:\Users\xxxxxx\Documents\test\"

il vous reste à modifier cette ligne par votre répertoire, idem pour le nom de feuille et l'extension des fichiers.

Rechercher des sujets similaires à "macro qui calcule fichiers"