Copier données à partir de la dernière ligne remplie

Version imprimable

Bonjour le forum,

Je souhaite importer des données d'un onglet du classeur A à un onglet du classseur B suivant le titre des colonnes..
Alors pour faire cela je suis passée par un intermédiaire qui consiste à copier l'onglet du classeur A dans un onglet du classeur B.
Puis dans le nouvel onglet du classeur B je copie mes données d'un onglet à l'autre. Voici mon code.
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 32 33 34 35 36 37 Private Sub Importer_click_Click() Feuil1 = Application.GetOpenFilename("Fichier Excel (*.xls), *.xls") If Len(Replace(Feuil1, ".xls", "")) = Len(Feuil1) Then MsgBox "Format fichier invalide" Else Set Classeur1 = Application.Workbooks.Open(Feuil1) End If Set feuille_essai = ThisWorkbook.Worksheets("Essai") 'je copie d'un classeur à un autre Sheets("Feuil1").Range("A5:S10000").Copy ThisWorkbook.Activate Sheets("Essai").Range("A8").Insert shift:=xlDown 'après je copie d'un onglet à un autre Sheets("Essai").Range("A8:B10000").Copy Sheets("Feuil2").Range("A8").PasteSpecial (xlPasteValues) Sheets("Essai").Range("C8:F10000").Copy Sheets("Feuil2").Range("D8").PasteSpecial (xlPasteValues) Sheets("Essai").Range("G8:S10000").Copy Sheets("Feuil2").Range("K8").PasteSpecial (xlPasteValues) 'cache la feuille essai Set feuille_essai = ThisWorkbook.Worksheets("Essai") feuille_essai.Visible = 2 End Sub
Alors je sais que ce n'est pas du très beau code, mais ça fonctionne :D

Lorsque j'appuie sur le bouton "importer", j'aimerais que les données que je copie, se copient à partir de la dernière ligne remplie (et non après la 10000eme ligne..)
Quelle fonction je peux utiliser?

Merci de votre aide.

Bonjour,

Ci joint une fonction pour importer des données d'un autre fichier Excel...
Tu dois adapter les variables r et c à ton besoin ainsi que strSql et sheetDest .

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Sub ImportFromExcelFile()
Dim sheetDest As Worksheet
Dim ImportFileName
Dim cn As Object
Dim rs As Object
Dim strSql As String
Dim r
Dim c As Integer
 
On Error GoTo lblErr
 
'Requête pour récuppérer les données du fichier Ecel à importer
strSql = "SELECT * FROM [Feuil1$A5:S10000]"
 
'Sélectionner le fichier Excel à importer
ImportFileName = Application.GetOpenFilename("Fichier Excel (*.xls), *.xls")
If ImportFileName = False Then Exit Sub
 
'Se connecter au fichier
Set cn = CreateObject("ADODB.Connection")
With cn
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .ConnectionString = "Data Source=""" & ImportFileName & """;Extended Properties=Excel 8.0;"
  .Open
  'Extraire les données
  Set rs = .Execute(strSql)
  'Copier les données dans l'onglet à partir de la ligne r et la colonne c
  Set sheetDest = ThisWorkbook.Worksheets("Feuil1")
  Set r = sheetDest.Cells.Find(What:="*", LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
  If r Is Nothing Then
    r = 1
  Else
    r = r.Row
  End If
  c = 1
  sheetDest.Cells(r, c).CopyFromRecordset rs
  rs.Close
  .Close
End With
 
GoTo lblFin
lblErr:
  MsgBox Err.Description
lblFin:
  Set sheetDest = Nothing
  Set rs = Nothing
  Set cn = Nothing
End Sub

Bonjour,

Même si le post est assez ancien:

Code:

1
2
3
4
5
'On affecte le numero de la premiere ligne non vide (en partant du bas)
derniere_ligne = Range("A65536").End(xlup).row
 
'On selectionne de la cellule A8 à B & derniere_ligne
Range("A8:B" & derniere_ligne).select