Bonsoir,

j ai besoin de votre aide svp,
j ai un fichier 1 et fichier 2 et j aimerais emporter des donnes du fichier 2 au fichier 1.
je veux importer des données de toute les feuilles sauf 3 feuilles.quel code je peux utiliser pour dire (sauf la feuille1(typ),feuille2(education),feuille3(typ2))

et merci voila mon 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
 
Sub import()
Dim b As Variant
Dim k As Variant
Dim i As Variant
Dim n As Variant
Dim wks As Worksheet
For b = 1 To Workbooks("fichier1.xls").Sheets.Count
Workbooks("fichier1.xls").Sheets(b).Activate
n = Workbooks("fichier1.xls").ActiveSheet.Name
For Each wks In Workbooks("fichier2.xls").Worksheets
If wks.Name = n Then
 
Workbooks("fichier1.xls").Sheets(n).Range("B5:F50").Value = _
Workbooks("fichier2.xls").Sheets(n).Range("B5:F50").Value
 
Else
End If
Next
Next b
Call MsgBox("fini ", vbInformation, "import")
 
End Sub
merci pour votre aide.