Discussion :

[chouki60]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

[arosec]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LouiMz]

Bonjour,

Même si le post est assez ancien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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