Copier dernierligne du tableau

Fermé
dianbobo Messages postés 151 Date d'inscription mardi 20 avril 2010 Statut Membre Dernière intervention 15 juin 2014 - 27 juil. 2010 à 14:26
Bonjour,
etant donné k la derniere ligne de la feuille ("Feuil1") ,je voudrais copier la derniere ligne
'de la feuille "historik" sachant que cette ligne change chaque jour elle est toujours a "k+1"
'comment bien definir le tableau:
Range("A(k) :AB(k)")

'merci de votre aide
'jai essayé comme ça :
Workbooks("LeFichier").Worksheets(LaFeuille).Range("Ak :ABk").Copy Worksheets("Feuil1").Range("A" & k)
'
mais ça marche pas
nb:
Set ws = wb.Worksheets("Feuil1")
k = ws.Cells(Rows.Count, 4).End(xlUp).Row + 1
LaFeuille = "Historik"


merci de votre aide
A voir également: