I
Isabelle
Guest
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
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