cp4
XLDnaute Barbatruc
Bonjour,
Je suis coincé. Avec la procédure ci-dessous, je parviens à ouvrir plusieurs fichiers à une seule feuille et récupérer l'adresse.
Je ne parviens pas à récupérer les valeurs dans un tableau (array).
Autrement dit, avoir des tableaux T&i pour chacun des fichiers.
Avec mes remerciements anticipés.
Je suis coincé. Avec la procédure ci-dessous, je parviens à ouvrir plusieurs fichiers à une seule feuille et récupérer l'adresse.
VB:
Sub MesMois()
Dim Fichiers As Variant, i As Integer, T As Variant
Fichiers = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsx", , , , True)
If IsArray(Fichiers) Then
For i = 1 To UBound(Fichiers)
Workbooks.Open Fichiers(i)
'T(i) = Workbooks(Dir(Fichiers(i))).Sheets(1).UsedRange.Value
Debug.Print Workbooks(Dir(Fichiers(i))).Sheets(1).UsedRange.Address
Next
End If
End Sub
Autrement dit, avoir des tableaux T&i pour chacun des fichiers.
Avec mes remerciements anticipés.