L
lezabour
Guest
Bonjour a tous,
J'ai reussi a trouver sur le net grace a Excelabo (merkiii!!!!) la source suivant:
Sub LitDatas()
Dim Fich$, Arr
Fich = "C:\Documents and Settings\EBO\Bureau\fact.xls"
'récup des données à partir de l'adresse d'une plage de cellules
GetExternalData Fich, "patrick", "A2:K400", False, Arr
'récup des données à partir du nom d'une plage de cellules
' GetExternalData Fich, "", "essainom", False, Arr
With ThisWorkbook.Sheets("Feuil1")
.Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Arr
End With
End Sub
C'est une des 2 sub que j'utilise pour avoir les données, l'autre etant getExternalData.
Mon probleme, est que ici, je cherche a prendre a la source (fact.xls, feuille: Patrick) la plage allant de A2 a K400.
Le probleme est que le k400 varie, chaque jour on ajoute des données aux fichiers.
Comment faire pour que au lieu de "A2:K400" j'ai un truc qui fasse "A2: KFinDuFichier"
j'ai tenter de faire "A2:" & ActiveCell.SpecialCells(xlLastCell) => fonctionne pas ;(
Merci a tous![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
J'ai reussi a trouver sur le net grace a Excelabo (merkiii!!!!) la source suivant:
Sub LitDatas()
Dim Fich$, Arr
Fich = "C:\Documents and Settings\EBO\Bureau\fact.xls"
'récup des données à partir de l'adresse d'une plage de cellules
GetExternalData Fich, "patrick", "A2:K400", False, Arr
'récup des données à partir du nom d'une plage de cellules
' GetExternalData Fich, "", "essainom", False, Arr
With ThisWorkbook.Sheets("Feuil1")
.Range("A1", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value = Arr
End With
End Sub
C'est une des 2 sub que j'utilise pour avoir les données, l'autre etant getExternalData.
Mon probleme, est que ici, je cherche a prendre a la source (fact.xls, feuille: Patrick) la plage allant de A2 a K400.
Le probleme est que le k400 varie, chaque jour on ajoute des données aux fichiers.
Comment faire pour que au lieu de "A2:K400" j'ai un truc qui fasse "A2: KFinDuFichier"
j'ai tenter de faire "A2:" & ActiveCell.SpecialCells(xlLastCell) => fonctionne pas ;(
Merci a tous