Utiliser contenu d'une cellule

[Delphine]

Bonjour à tous,

Ca doit pas être très compliqué mais impossible de trouver comment faire:
je voudrais ouvrir plusieurs fichiers (pour récupérer des valeurs) et leurs noms sont dans un tableau.
comment utiliser Open File Name (ou une autre fonction) dans ce cas?

 

[@+Thierry]

Bonjour Delphine, le Forum

Si j'ai bien compris tu as une Plage (Ici "A1:A10") sur une Feuille (Ici "TheSheet") qui contient des noms de Fichiers...

Si tous les fichiers sont dans le même répertoire (Chemin) voici ce qui devrait faire l'affaire :

Sub LoopOpeningWorkBook()
Dim Chemin As String
Dim Fichier As String
Dim Plage As Range, Cell As Range

Chemin = "C:\Documents and Settings\te\My Documents\"

Set Plage = Worksheets("TheSheet").Range("A1:A10")

For Each Cell In Plage
Fichier = Cell.Text & ".xls" '<<< NB Si l'extension XLS n'est pas dans le tableau, sinon enlever!

Workbooks.Open Chemin & Fichier
Next
End Sub

Bien Entendu il faut que les fichiers listé de A1 à A10 existent bien sinon plantage assuré (et non géré ici)

Bon Appétit
@+Thierry

 

[Delphine]

j'ai rajouté un test pour ce genre de cas.
Merci bcp, ça marche nickel !!

note pour plus tard: ne pas écrire "Fichier" comme j'avais fait, ça ne marche pas 🙂