utilisation de données d'un autre fichier

[Romain]

Bonsoir à tous,

j'ai créé une macro me permettant de regrouper plusieurs données contenues dans des tableaux différents. Chaque tableau était sur une feuille et j'ai regroupé les données de chaque feuille sur un même tableau.
cependant, je souhaite maintenant avoir un fichier par tableau et je n'arrive pas à adapter ma macro.
cette macro effectue tout simplement une copie des données du tableau et vient les recopier dans mon tableau de synthèse. Elle effectue l'opération pour les 3 tableaux; je récupère ainsi toutes mes données dans un même tableau.
Pourriez-vous m'indiquez si il est possible de faire cette manip en utilisant des fichiers. je ne veux pas être obligé de les ouvrir...
merci d'avance pour votre précieuse aide!

 

[myDearFriend]

Bonsoir Romain,

Si tu ne veux pas être obligé d'ouvrir les fichiers pour récupérer les données, je te joins un petit exemple VBA qui devrait t'intéresser.

Sans ouvrir les fichiers, on peut récupérer les valeurs de chaque cellule grâce à la fonction suivante :

Public Function RecupValeur(Chemin, Fichier, Feuille, Cellule) As Variant
' Cette fonction est tirée de : "The SpreadSheet Page" de J.Walkenbach

' Récupère une valeur dans un classeur fermé
Dim Cible As String
' Vérifier que le classeur existe
If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
If Dir(Chemin & Fichier) = "" Then
RecupValeur = "<< Cible non trouvée >>"
Exit Function
End If
' Reconstitue le chemin complet qui conduit à la cellule cible
Cible = "'" & Chemin & "[" & Fichier & "]" & Feuille & "'!" & _
Range(Cellule).Range("A1").Address(, , xlR1C1)
' Execute une macro XLM
RecupValeur = ExecuteExcel4Macro(Cible)
End Function


Espérant que cela puisse t'être utile.

Cordialement.
Didier_mDF

 

[Romain]

merci pour cette réponse si rapide; J'essaye demain et je te tiens au courant.
Bonne nuit!