Discussion :

[nouha_79]

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.

[jfontaine]

pourquoi pas avec un select case

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
For Each wks In Workbooks("fichier2.xls").Worksheets
  select case wks.Name 
      case "typ","education","typ2"
          'on ne fait rien
      case else
          'on copie les données
   end select
Next

[nouha_79]

bonjour,
ces 3 feuilles je veux pas les importer.
c est a dire je veux importer tout le fichier,mais les 3 feuilles non.

merci

[jfontaine]

dans le principe, je ferais une copie du classeur puis supprimerais les onglets que je ne veux pas

[ouskel'n'or]

Tu as aussi cette méthode

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
Sub LaMacro()
Dim CL1 As Workbook
Dim CL2 As Workbook
Dim LaFeuille as Worksheet
Dim i As Byte, ListeANePasCopier '(as variant)
Dim ko As Boolean
Set CL1 = Workbooks("Classeur1.xls")
Set CL2 = Workbooks("Classeur2.xls")
ListeANePasCopier = Array("Feuil1", "Feuil6", "Feuil9")
    For Each LaFeuille In CL1.Worksheets
        For i = 0 To UBound(ListeANePasCopier)
            ko = ko Or LaFeuille.Name = ListeANePasCopier(i)
        Next
        If Not ko Then LaFeuille.Copy After:=CL2.Worksheets(CL2.Worksheets.Count)
        ko = False
    Next
    Set CL1 = Nothing
    Set CL2 = Nothing
End Sub

Edit
Déclarations corrigées

Dim CL1 As Workbook
Dim CL2 As Workbook

[nouha_79]

merci beaucoup ca marche tres bien,mais j ai une autre question s il te plait:
les classeurs(Calsseur1.xls) parfois change de nom,parfois meme le nom du (classeur2.xls)
est ce qu il ya une methode pour faire apparaitre un MSGbox pour ecrire le nom du classeur1 ou les informations seront importer.et une autre boite dialogue ou je choisi le file ou il ya les infos qui seront importer?


merci pour votre aide.