extraction donnée excel

bonjour,
j'ai fait ce petit bout de code afin d'importer des données mais le problème c'est qu' a cause de (xlToRight ) des que j'ai une colonne vide il s'arrete et ne prend pas la totalité de mes donnée !
comment contourner ce problème?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Sub ImportationFichiers() ' ' ImportationFichiers Macro ' Macro enregistrée le 12.03.2012 par   AdresseMain = "L:\_SUIVI_EQUIPEMENTS\fiche de vie équipement montage Extraction.xls"       ' Import8400   Adresse8400 = "L:\_SUIVI_EQUIPEMENTS\fiche de vie 8400\fiche de vie machine 8400.xls" 'A adapter selon le besoin Workbooks.Open (Adresse8400) Sheets("Interface").Select Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Application.DisplayAlerts = False     Windows("fiche de vie équipement montage Extraction.xls").Activate Sheets("Donnée 8400").Select Range("A2").Select ActiveSheet.Paste Application.DisplayAlerts = False         End Sub

---

Bonjour,

Pour la lisibilité, n'oubliez pas de sélectionner votre code et ensuite de cliquer sur le petit dièse dans le menu de formatage du texte ;)

Effectivement vos lignes de code vont permettre de sélectionner le table jusqu'à la première ligne et la première colonne vides.

Le plus simple est de dimensionner votre tableau puis de copier en fonction.

Ici, vous copier depuis A2, donc la première colonne est 1, la première ligne est 2.

Code:

---

1 2 3 4 5 6 7

FirstRow=2 FirstCol=1 LastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row '(1 est la colonne pour laquelle Excel renverra la dernière ligne remplie) LastCol = ActiveSheet.UsedRange.Columns.Count   Range(cells(FirstRow,FirstCol),cells(LastRow,LastCol)).copy

---

BC

ca marche Nickel!!!


merci"bifconsult.

Et quel condition doit on utiliser pour copier seulement les nouvelles données et ne pas écraser a chaque extraction mais seulement rajouter les nouvelles données ?