Sub ExtractionChoixFichier()
'copie de test vers base -'colA vers colA - 'colD vers colD - 'colT vers colG - 'colU vers colJ
Dim filePath As String, TestWb As Workbook, BaseWb As Workbook, dl As Long
Set BaseWb = ActiveWorkbook
With BaseWb.Sheets("feuil1")
dl = .UsedRange.Rows(.UsedRange.Rows.Count).Row
Application.Union(.Range("A2:A" & dl), .Range("D2:D" & dl), .Range("G2:G" & dl), .Range("J2:J" & dl)).Cells.ClearContents
End With
'ouvrir fenetre choix fichier
Dim Nom_Fichier As Variant
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsx")
If Nom_Fichier <> False Then
Set TestWb = Workbooks.Open(Nom_Fichier)
TestWb.Activate
End If
With ActiveSheet
dl = .UsedRange.Rows(.UsedRange.Rows.Count).Row
.Range("A2:A" & dl).Copy
BaseWb.Sheets("feuil1").Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Range("D2:D" & dl).Copy
BaseWb.Sheets("feuil1").Range("D2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Range("T2:T" & dl).Copy
BaseWb.Sheets("feuil1").Range("G2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Range("U2:U" & dl).Copy
BaseWb.Sheets("feuil1").Range("J2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
TestWb.Close
MsgBox "Extraction terminée!"
End Sub