importation données

[fred94000]

Bonjour au forum et à tout les Excel..ences
mon p'tit soucis et que je voudrais adapter ce code, qu'il n'importe que les dernières lignes manquantes du classeur source et non pas la feuille entière.
voici le code:

sub importer()
Dim classeurSource As Workbook, classeurDestination As Workbook
Set classeurSource = Application.Workbooks.Open("e:\BaseA.xls", , True)
Set classeurDestination = ThisWorkbook
classeurSource.Sheets("BD").Range("a1:q65536").Cells.Copy _ classeurDestination.Sheets("BD1").Range("a1:q65536")
classeurSource.Close True
End Sub

dans l'attente merci

 

[tototiti2008]

Re : importation données

Bonjour fred,

Et comment identifier

que les dernières lignes manquantes du classeur source

?

D'ici je vois très mal...
Un bout de classeur exemple ?

 

[fred94000]

Re : importation données

bonjour tototiti2008,
je vais te joindre deux fichiers.
1er BaseA.xls qui sert de base de données principale qui est modifier en ajoutant des données.
2ème : Importe BaseA.xls, est le classeur qui doit être renseigné par le code ci-dessus qui fonctionne.

Ma question est que si je continus à remplir le fichier BaseA.xls, lorsque j'ouvre le fichier Importe BaseA.xls,
que la mise à jour renseigne le ou les dernières lignes ajoutées dans baseA dans Importe BaseA.

J'espère avoir été assez clair.