Bonjour,
Pour trouver la dernière ligne ayant un enregistrement tu peux utiliser:
1 2 3
|
dim NBline as integer
NBLine = Worksheets("nomdelafeuille").Range("A1").End(xlDown).Row |
* la cellule B4 de la date de création du fichier (ça c'est le bonus )
De quelle création? de la mise à jour (saisie sur cette ligne) ou la dernière sauvegarde?
Worksheets("nomdelafeuille").range("B4").value = Now
si je ne me trompe pas...
Envoyé par
christoff916
1 2 3 4 5 6 7 8
| Private Sub Workbook_Open()
Dim Repertoire As String, Fichier As String
Dim Ligne As Long
Dim CLe, CLs As Workbook 'Classeur entree & source
Dim FLe, FLs As Worksheet 'Feuille entree & source
Dim DerniereLigneFeuille1, LigneCourante As Long |
Pourquoi ne pas déclarer DerniereLigneFeuille1 et LigneCourante comme des "Integer"?
Envoyé par
christoff916
1 2
|
DerniereLigneFeuille1 = FLs.Range("A5").End(xlDown).Row 'censé aller chercher la dernière ligne non vide |
Pourquoi tu pars de la 5ème ligne?
Envoyé par
christoff916
1 2
|
FLs.Range("A" & LigneCourante).Copy Destination:=FLe.Cells(2, 2) 'par la dernière ligne remplie de la colonne A |
Tu n'es pas obligé de mettre le
Partager