Salut, j'ai récupéré un programme pour ouvrir des fichiers contenus dans une liste.
Le problème c'est que la première ligne du programme ne fonctionne pas et je ne sais pas pourquoi.
Pouvez-vous m'aider?
Voilà le programme:
Attribute VB_Name = "OuvertureTableauFichiers"
Sub FileNameArray()
Dim fNames As Variant
Dim mycell As Range
Dim lLastRow As Long
Dim lCount As Long
lLastRow = Range("A1").End(xlDown).Row
fNames = Range("A1:A" & lLastRow)
For lCount = 1 To UBound(fNames)
Workbooks.Open Filename:=fNames(lCount, 1)
Next lCount
End Sub