Copier derniere ligne 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:28
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: