Importer des données à partir d'un autre fichier excel

Version imprimable

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:

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.

Salut,

Code:

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
 
Sub Importer()
 
    Dim Chemin As String, Fichier As String, Fichier2 As String
 
    '
    Dim wkb As Workbook
    Dim shFrom As Worksheet
    Dim shTo As Worksheet
    Dim varTab As Variant
    '
    '
    Chemin = ThisWorkbook.Path & Application.PathSeparator
    Fichier = "C:\Users\fetcheberry\Desktop\perf automatisaiton fabien.xlsx"
 
    ' pointeurs
    Set wkb = Workbooks.Open(Chemin & Fichier)
    Set shFrom = wkb.Worksheets("LeNomDeLaFeuilleSource")
    Set shTo = ThisWorkbook.Worksheets("LeNomDeLaFeuilleDestination")
 
    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
 
    varTab = shFrom.Range(shFrom.Range("A1"), shFrom.Range("A1").End(xlDown))
    shTo.Range("K1").Resize(UBound(varTab), UBound(varTab, 2)) = varTab
 
    varTab = shFrom.Range(shFrom.Range("B1"), shFrom.Range("B1").End(xlDown))
    shTo.Range("L1").Resize(UBound(varTab), UBound(varTab, 2)) = varTab
 
End Sub

@Philippe PONS, Merci de ta réponse

Code:

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
 
Sub Importer()
 
    Dim Chemin As String, Fichier As String, Fichier2 As String
 
    '
    Dim wkb As Workbook
    Dim shFrom As Worksheet
    Dim shTo As Worksheet
    Dim varTab As Variant
    '
    '
    Chemin = ThisWorkbook.Path & Application.PathSeparator
    Fichier = "C:\Users\fetcheberry\Desktop\perf automatisaiton fabien.xlsx"
 
    ' pointeurs
    Set wkb = Workbooks.Open(Chemin & Fichier)
    Set shFrom = wkb.Worksheets("LeNomDeLaFeuilleSource")
    Set shTo = ThisWorkbook.Worksheets("LeNomDeLaFeuilleDestination")
 
    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
 
    varTab = shFrom.Range(shFrom.Range("A1"), shFrom.Range("A1").End(xlDown))
    shTo.Range("K1").Resize(UBound(varTab), UBound(varTab, 2)) = varTab
 
    varTab = shFrom.Range(shFrom.Range("B1"), shFrom.Range("B1").End(xlDown))
    shTo.Range("L1").Resize(UBound(varTab), UBound(varTab, 2)) = varTab
 
End Sub

Du coup sur ton code j'ai uniquement modifié :

("LeNomDeLaFeuilleSource") => "Feuil1" (qui est issue de C:\Users\fetcheberry\Desktop\perf automatisaiton fabien.xlsx)
et
("LeNomDeLaFeuilleDestination") => "Feuil1"(qui est le nom de la feuille de destination)

Jusqu'ici tout est bon ?

Cependant lorsque j'exécute la macro, ce message apparaît : "erreur d'exécution '1004' ".
Pourtant j'ai bien vérifié mais l'adresse où se trouve les données dont j'ai besoin se situe bien au "C:\Users\fetcheberry\Desktop\perf automatisaiton fabien.xlsx".

27/04/2016, 08h48
78chris

Bonjour

Quand les noms contiennent des espaces , ou toujours pour être tranquille, il faut les imbriquer dans des ' (apostrophes)

Code:

"'C:\Users\fetcheberry\Desktop\perf automatisaiton fabien.xlsx'"

et automatisaiton semble bizarre
27/04/2016, 08h57
fabien32200

1 pièce(s) jointe(s)
Concernant "automatisaition", c'est une faute de frappe que j'ai fait lors de l'enregistrement du fichier (j'ai bien vérifié dans : fichier -> information, l'adresse est bien : C:\Users\fetcheberry\Desktop\perf automatisaiton fabien.xlsx')

Du coup j'ai fait ce que tu m'as dit :
Code:

1 2 "'C:\Users\fetcheberry\Desktop\perf automatisaiton fabien.xlsx'"
Ça m'indique toujours :

Pièce jointe 208050
27/04/2016, 08h59
Philippe PONS
Dans la fenêtre d'exécution, fait
Code:

1 2 ?Dir("C:\Users\fetcheberry\Desktop\perf automatisaiton fabien.xlsx")
Si ça renvoi le nom du fichier, c'est qu'il existe bel et bien!
27/04/2016, 09h07
fabien32200

:plusser: Merci Philippe PONS, ton code marche !

Par contre à chaque fois que j'exécute ce code le document excel ou je vais piocher les informations s'ouvre.
Il n'existerait pas une astuce pour fermer ce document automatiquement ?
27/04/2016, 09h28
78chris

Bonjour

Ton message d'erreur montre que tu as 2 fois le chemin : dans ton code tu mets chemin et fichier. Donc ne remet pas le chemin dans ta variable fichier.

Pour fermer un fichier il faut une ligne close...
27/04/2016, 09h37
fabien32200

Ok 78chris, je vais bosser sur ça pour régler ce petit problème !