Discussion :

[nouha_79]

Bonjour,
j ai un excel vba fichier ,ou je peux imprimer a pdf et autres chose a faire .
bon moi j aimerais que j importe plusieurs feuilles (6) d une version a ma version excel vba.

est ce que ca marche ?

merci
j ai essayer ca mais malheureusement,ca marche rien qu avec une seul feuille comment la faire marcher avec plusieurs feuilles.

merci

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
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Import_mit_Dialog()
Dim Quelle As Object, Ziel As Object
Dim Datei As String
 
On Error GoTo Fehler
 
'Dialog "Datei öffnen" anzeigen
Datei = Application.GetOpenFilename("Excel-Dateien(*.xls),*xls")
 
'Abbrechen falls keine Datei ausgewählt
If Datei = "Falsch" Then
  MsgBox "keine Datei ausgewählt", , "Abbruch"
  Exit Sub
End If
 
'MsgBox "Ausgewählte Datei: " & Datei, , ""
 
'Ausgewählte Datei öffnen
Workbooks.Open Filename:=Datei
 
Set Quelle = ActiveWorkbook.Worksheets(1)
Set Ziel = ThisWorkbook.Worksheets(1)
Set Quelle = ActiveWorkbook.Worksheets(2)
Set Ziel = ThisWorkbook.Worksheets(2)
 
 
'kopieren und einfügen
Quelle.UsedRange.Copy Ziel.Tabelle1!
Quelle.UsedRange.Copy Ziel.Tabelle2!
ActiveWorkbook.Close
 
'Speicher freigeben
Set Quelle = Nothing
Set Ziel = Nothing
 
Exit Sub
 
Fehler:
Set Quelle = Nothing
Set Ziel = Nothing
 
    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
    & "Beschreibung: " & Err.Description _
    , vbCritical, "Fehler"
End Sub

[jfontaine]

En bouclant sur les feuilles de ton classeur

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim Sht As Worksheet
 
 
For Each Sht In ThisWorkbook.Sheets
 
    'Traitement
 
Next

[nouha_79]

malheureusement ca marche pas je crois mon code n est pas le correct que je cherche pour importer les feuilles dans ma nouvelle version.
est ce que ca marche d abord ou pas?

[AlainTech]

Code :

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

1
2
3
4
Set Quelle = ActiveWorkbook.Worksheets(1)
Set Ziel = ThisWorkbook.Worksheets(1)
Set Quelle = ActiveWorkbook.Worksheets(2)
Set Ziel = ThisWorkbook.Worksheets(2)

En faisant cela, tu écrases les premières données avec les deuxièmes.
Comme le conseille jfontaine, tu dois faire une boucle.

[nouha_79]

Bonjour,
j ai un excel fichier (X)avec macro de 50 feuilles ,et j ai un autre excel fichier (y) avec 20 feuilles .les feuilles dans les deux fichier ont les memes noms.
ma question et la suivante .est ce qu on peux importer les informations que contient cahque feuille de (Y) en fichier (X)?est ce que ca marche si oui comment? merci de votre aide.

[alsimbad]

tu a plusieur possibilités, tu les trouvera en faisant des recherches sur le forum. l'importation de donnée reviens souvent

[nouha_79]

bonjour,
j ai essayer plusieures solution mais ca marche pas chez moi.
moi je veux rien que les informations que contient chaque feuilles du fichier X les importer a mon fichier Y.
sachant que les feuilles sont de la meme facon construite.

merci

[Tiresia]

Code :

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

1
2
3
4
5
For ind = 1 To Workbooks(Mon Fichier).Sheets.Count
 
       'faire ce qu'il faut 
 
Next ind

Et un truc comme ça ?

[nouha_79]

bonjour,

j ai essayer de cree une macro ca marche tres bien mais il me manque quelque chose dans ma macro:
1)je veux quand la macro veut importer les information de chaque feuille, qu il cherche dans chaque cellules. si il ya des infos ou bien des numeros, qu il l importe si il trouve pas il n importe rien pour chaque feuille .
quel code je puex utiliser ici ?

voila ma macro pour l instant:

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
Option Explicit
Sub Zusammenfügen()
Dim b As Variant
Dim k As Variant
Dim i As Variant
Dim n As Variant
Dim wks As Worksheet
Dim Daten_Einlesen As String
Dim Datei2 As String
Daten_Einlesen = Application _
    .GetOpenFilename("Excel-Dateien (*.xl*),*.xl*")
Workbooks.Open Daten_Einlesen
Datei2 = ActiveWorkbook.Name
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).Worksheets
       If wks.Name = n Then
     Workbooks("fichier1.xls").Sheets(n).Unprotect ("Password")
        Workbooks("fichier1.xls").Sheets(n).Range("A1:G55").Value = _
        Workbooks(fichier2).Sheets(n).Range("A1:G55").Value
     Workbooks("fichier1.xls").Sheets(n).Protect ("Password")
    Else
   End If
  Next
 Next b
 Workbooks(fichier2).Close
 Call MsgBox("FERTIG ", vbInformation, "Zusamenfügen")
 
 End Sub

merci pour votre aide