Je dois importer des données d'un autre fichier excel, dont la source est : "C:\Users\fetcheberry\Desktop\perf automatisaiton fabien.xlsx" vers mon document excel ouvert.

De plus je souhaite que les deux colonnes présentes dans "C:\Users\fetcheberry\Desktop\perf automatisaiton fabien.xlsx" soit introduites en colonne "K" et "L" dans mon fichier excel ouvert.

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
 
Sub Importer()
 
Dim Chemin As String, Fichier As String, Fichier2 As String
Chemin = ThisWorkbook.Path & Application.PathSeparator
Fichier = "C:\Users\fetcheberry\Desktop\perf automatisaiton fabien.xlsx"
 
  Application.ScreenUpdating = False
    With Workbooks.Open(Chemin & Fichier)
       Range("A2").Select
       Range(Selection, Selection.End(xlDown)).Select
       Range(Selection, Selection.End(xlToRight)).Select
       Selection.Copy
       ThisWorkbook.ActiveSheet.Range("K1").PasteSpecial Paste:=xlPasteValues
       .Close savechanges:=False
    End With
End Sub
Une personne aurait un code à me proposer, car mon code ci-dessus ne fonctionne malheureusement pas.