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
| Sub Choix_du_Fichier()
Dim FichierSource As Variant
Dim Source As Workbook
Dim Cible As Worksheet
Set Cible = Sheets("Fin de Travaux réalisés")
FichierSource = Application.GetOpenFilename("Fichiers (*.xlsx),*.xlsx")
Application.ScreenUpdating = False
Set Source = Workbooks.Open(FichierSource)
With Source
.Sheets("Fin de Travaux réalisés").Range("C12:D800,M12:M800").Copy Destination:=Cible.Range("A1")
End With
Dim Ligne_A As Integer
Ligne_A = Range("A" & Rows.Count).End(xlUp).Row + 1
With Source
.Sheets("Fin de Travaux réalisés").Range("E12:E800").Copy Destination:=Cible.Range("A" & Ligne_A)
End With
Dim Ligne_B As Integer
Ligne_B = Range("B" & Rows.Count).End(xlUp).Row + 1
With Source
.Sheets("Fin de Travaux réalisés").Range("F12:F800").Copy Destination:=Cible.Range("B" & Ligne_B)
End With
Dim Ligne_C As Integer
Ligne_C = Range("C" & Rows.Count).End(xlUp).Row + 1
With Source
.Sheets("Fin de Travaux réalisés").Range("n12:n800").Copy Destination:=Cible.Range("C" & Ligne_C)
.Close False
End With
'Supprime les doublons
'Prend en compte les 3 colonnes
Range("A1:C800").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlNo
Application.ScreenUpdating = True
MsgBox "Fin de l'import !"
End Sub |
Partager