Victor21
XLDnaute Barbatruc
Bonjour.
Ce sera sans doute plus clair dans les fichiers joints.
Il y a des formules dans 11 lignes, dont certaines non renseignées du fichier que je veux sauvegarder.
Lors de chaque sauvegarde les 11 lignes sont copiées, y compris celles qui n'ont aucune donnée, et la dernière cellule de la sauvegarde n'est pas la dernière avec des données, mais ici la 11° après la 1° ligne sauvée dans mon fichier sauvegarde.
Le pb vient de ma définition de :
DerligSaisie = Range("A1").SpecialCells(xlCellTypeLastCell).Row et/ou de
PremligHisto = wb.Sheets("Archive").Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1
J'ai essayé avec CurrentRégion sans succès.
Merci d'avance à qui pourra me fournir une piste pour que mes lignes sauvegardées se suivent sans ligne vide.
Des conseils pour améliorer, simplifier, fiabiliser, optimiser mon code seront également les bienvenus. Mais là, j'abuse, non ?
Ce sera sans doute plus clair dans les fichiers joints.
Il y a des formules dans 11 lignes, dont certaines non renseignées du fichier que je veux sauvegarder.
Lors de chaque sauvegarde les 11 lignes sont copiées, y compris celles qui n'ont aucune donnée, et la dernière cellule de la sauvegarde n'est pas la dernière avec des données, mais ici la 11° après la 1° ligne sauvée dans mon fichier sauvegarde.
Le pb vient de ma définition de :
DerligSaisie = Range("A1").SpecialCells(xlCellTypeLastCell).Row et/ou de
PremligHisto = wb.Sheets("Archive").Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1
J'ai essayé avec CurrentRégion sans succès.
Merci d'avance à qui pourra me fournir une piste pour que mes lignes sauvegardées se suivent sans ligne vide.
Des conseils pour améliorer, simplifier, fiabiliser, optimiser mon code seront également les bienvenus. Mais là, j'abuse, non ?
Pièces jointes
Dernière édition: