Salut,
J'ai deux fichiers (workbooks) excel. Dans le fichier1 il y a la Feuil1, dans le Fichier2 j'ai la Feuil2.
J'ai mis un bouton dans la Feuil2. chaque fois que j'ai Click sur le bouton, j’aimerai importer toutes les données de la Feuil1, c'est-à-dire, tout la Feuil1.
Je suis en train de créer une macro pour le faire mais j'arrive pas. Est ce que quelqu'un pourrai me donner une idée de comme faire? . Merci

Voici le code:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub test()
' Get customer workbook...
Dim customerBook As Workbook
Dim filter As String
Dim caption As String
Dim customerFilename As String
Dim customerWorkbook As Workbook
Dim targetWorkbook As Workbook
 
' make weak assumption that active workbook is the target
Set targetWorkbook = Application.ActiveWorkbook
 
' get the customer workbook
filter = "Text files (*.xlsx),*.xlsx"
caption = "Please Select an input file "
customerFilename = Application.GetOpenFilename(filter, , caption)
 
Set customerWorkbook = Application.Workbooks.Open(customerFilename)
 
 
' copy data from customer to target workbook
Dim targetSheet As Worksheet
Set targetSheet = targetWorkbook.Worksheets(1)
Dim sourceSheet As Worksheet
Set sourceSheet = customerWorkbook.Worksheets(1)
 
'Workbooks("PGT.xlsx").Worksheets(1).Copy After:=Workbooks("Classeur1.xlsx").ActiveSheet
 
 
' Close customer workbook
'customerWorkbook.Close
End Sub
Merci