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
|
Option Explicit
Sub load_fichier_xls()
'
Dim f As String ' fichier à ouvrir
Dim L As Long ' ligne max à récup
'
Const C1 As String = "A" ' colonne à récup : début
Const C2 As String = "E" ' colonne à récup : fin
Const d As String = "data" ' onglet de réception
'
f = Application.GetOpenFilename(",*.xlsx"): If (f = "Faux") Then Exit Sub
'
Workbooks.Open Filename:=(f) ' ouvre le fichier à copier
'
Range(C1 & 1).Select
Selection.End(xlDown).Select
'
L = ActiveCell.Row ' détecte la dernière ligne à copier
'
Range(C1 & 1 & ":" & C2 & L).Select
Selection.Copy
'
ActiveWindow.Close
'
Sheets(d).Select: Cells(1, 1).Select ' se positionne sur l'onglet réception
'
L = 0
'
Do
L = L + 1
If (Cells(L, 1).Value = "") Then Exit Do ' détecte la ligne libre
Loop
'
Cells(L, 1).Select ' se positionne sur la ligne libre
'
ActiveSheet.PasteSpecial: Cells(1, 1).Select ' copie les données
'
MsgBox " fin... "
'
End Sub |
Partager