boucle d'ouverture de fichier excel

Version imprimable

Bonjour à tous voilà je suis un peu nouveau en VBA alors je vous expose mon problème :
j'ai 2050 fichiers excel (classeurs) et je voudrais créer une boucle qui me prend le premier fichier, copie la troisième feuille du classeur ferme le classeur ouvert, colle cette feuille dans un nouveau classeur (que l'on appel B)... cette même opération se répète jusqu'au dernier fichier excel afin d'obtenir un classeur B avec une ou plusieurs feuilles où sont collés à la suite les données originales des feuilles 3 de chaque fichier.
Comme tous les fichiers sont dans le même répertoire, j'ai pensé à çà mais la macro ne fait que tourner et ne s'arrête jamais, et quand je l'arrête dans le fichier que je récupère (doc1.xls dans la suite) il n'y a que les résultats d'un seul fichier????
ma macro :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub Macro_ouverture() ' ' Macro_ouverture Macro ' Macro enregistrée le 14/04/2008 par Utilisateur ' macro ouvrant un fichier x, sélectionnant feuille et copiant cette feuille dans un nouveau fichier Application.ScreenUpdating = False Application.DisplayAlerts = False Dim class As Workbooks Dim ws As Worksheets Dim Repertoire As String, Fichier As String Repertoire = "D:\romain\travail\Sophy_2004_origine\essai\" Fichier = Dir(Repertoire & "*.xls") Do While Fichier <> "" Set class = Workbooks.Open(Repertoire & Fichier) Worksheets(3).Activate ActiveSheet.Copy ActiveWorkbook.SaveAs FileName:="D:\romain\travail\doc1.xls" ActiveWorkbook.Close Loop End Sub
j'attends votre aide avec impatience!!!
merci d'avance

14/04/2008, 18h35
Pierre Fauconnier

Bonsoir, et bienvenue sur nos forums.

Je ne comprends pas très bien ce que j'ai mis en gras...

Citation:

Envoyé par rom05

...
j'ai 2050 fichiers excel (classeurs) et je voudrais créer une boucle qui me prend le premier fichier, copie la troisième feuille du classeur ferme le classeur ouvert, colle cette feuille dans un nouveau classeur (que l'on appel B)... cette même opération se répète jusqu'au dernier fichier excel afin d'obtenir un classeur B avec une ou plusieurs feuilles où sont collés à la suite les données originales des feuilles 3 de chaque fichier....

Si on copie la 3ième feuille de chacun des 2050 fichiers dans les fichier B, on va, à mon avis, se retrouver avec un fichier B contenat 2050 feuilles...

Mais comme, par ailleurs, tu dis que les données vont se trouver collées à la suite, on pourrait comprendre que le fichier B n'aura qu'une seule feuille reprenant les données la troisième feuille de chaque fichier, les unes en dessous des autres...

8O 8O

Si tu pouvais préciser ce que tu souhaites réellement obtenir, nous pourrions t'aider de façon plus efficace...

P.S.: Je n'ai pas regardé le code...
14/04/2008, 18h44
rom05

désolé je me suis sûrement mal expliqué...
en fait l'idéal çà serait d'avoir la fameuse feuille 3 compilé pour les 2050 fichiers dans une même feuille.. vu que je pense que çà va dépasser largement la limte en ligne d'excel il faudrait peu être l'exporter en fichier texte. merci pour ta réponse en tout cas
14/04/2008, 19h15
alsimbad

ça dépend de ce que tu as dans cette feuille 3. si tu nous le disais ?
15/04/2008, 08h23
rom05

é ben dans cette feuille 3 j'ai en ligne le numéro de relevé et en colonne des variables liés à la localisation et la précision de celle-ci.
Chaque tableau est constitué de la même manière à part le nombre de ligne qui change bien sur entre classeur c'est-à-dire étude. Je voudrais donc répertorier l'ensemble des données de cette feuille localisation en une seule est même feuille : alors comment je peux faire pour 2050 fichier?
Merci d'avance!!!

besoin d'aide

re,
voilà le problème soulevé plus haut reste entier, mais je me suis documenté et inspiré de sript de personnes... et ma macro marche mais bug au bout de 2 fichiers :

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
39
40
41
42
43
44
45
46
47
48
49
50
Sub ouvrir_copier()
Dim CL1 As Workbook, CL2 As Workbook
Dim FL1 As Worksheet, FL2 As Worksheet
Dim Fich As Variant, i As Byte, Rep$
 
    'Répertoire des fichiers à copier
    Rep = "D:\romain\travail\Sophy_2004_origine\essai\"
    Set CL1 = ThisWorkbook
 
    'Ajoute une feuille au classeur destiné à recevoir les données des autres classeurs
    CL1.Sheets.Add
    CL1.ActiveSheet.Name = "localisation_Cumul"
 
    Set FL1 = CL1.ActiveSheet 'Instance le la feuille
 
    'Crée le tableau des fichiers du répertoire
    Set Fich = Application.FileSearch
 
    'Ouverture des fichiers du répertoire
    With Fich
        .LookIn = Rep
        .FileType = msoFileTypeExcelWorkbooks
        If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
            For i = 1 To .FoundFiles.Count
                Set CL2 = Workbooks.Open(.FoundFiles(i))
                DoEvents
 
                'Parcours la feuille a copié
                Set FL2 = Worksheets("Localisation")
                    'Dernière ligne où coller les données copiées dans FL2
                    NoLigne = FL1.Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1
 
                    'Copie de la plage renseignée de chaque feuille du classeur
                    FL2.Range(FL2.Cells(1, 1), _
                        FL2.Cells(FL2.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row, _
                        FL2.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row)).Copy _
                        FL1.Range("A" & NoLigne)
                    DoEvents
                    Set FL2 = Nothing
                'Next
                CL2.Close False 'fermeture du classeur copié
                DoEvents
                Set CL2 = Nothing
            Next i
        Else
            MsgBox "Aucun fichier dans le répertoire " & Rep
        End If
    End With
End Sub

del'aide s'il vous plait.
merci

16/04/2008, 09h21
rom05

de l'aide...

de l'aide svp...
est-ce que quelqu'un pourraît me dire comment faire pour ouvrir un classeur aller à la feuille 2 prendre les données de la feuille 2 les copier et les coller dans un nouveau classeur (classeur de récupération des données qui peut être celui de la macro), fermer le classeur précedemment ouvert... en ouvrir un autre et récupérer les données de la feuille 2 et les coller à la suite des données déjà copier dans mon classeur de récupération (même feuille, à la suite)... et ainsi de suite pour 2050 fichiers qui se trouvent tous dans le même répertoire.
merci d'avance pour ceux qui me répondront...
16/04/2008, 10h52
neupont
Ce ne serait pas à cause de ta déclaration "i As Byte" ?
Tu devrais essayer avec integer peut-être.

Autre piste éventuelle :
à partir de la 2ème fois où tu relances ton code, il plante à ce niveau :
Code:

1 2 CL1.ActiveSheet.Name = "localisation_Cumul"
car la feuille avec ce nom existe déjà, et il ne peut pas en recréer une deuxième nommée pareil.

Parce que sinon ton code a l'air de fonctionner, même si ça va être sacrément long avec 2050 fichiers...
16/04/2008, 14h59
rom05

toujours coincé

en fait, çà ne bloque au 2° mais à la 3° ouverture de fichier... J'ai essayer sur une autre feuille du classeur et là stupéfaction çà marche du premier au dernier fichier et çà me renvoi bien ce que je lui demande... alors pourquoi çà bloque sur l'autre feuille...
moi pas comprendre!!!