Discussion :

[Nad777]

Bonjour,

Sous un même répertoire, j'ai 10 fichiers avec plusieurs onglets chacun. Dans chaque fichier se trouve un onglet nommé P2.

Je veux créer un nouveau fichier avec toutes les données P2 des 10 fichiers . Les cellules se retrouvent dans le range A1 - O54 (il se peut que le nombre de ligne soit éventuellement variable).

J’ai essayé ce codage, mais je ne réussit pas à sélectionner un onglet en particulier dans mes fichiers (soit la feuille P2)…

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 bachfile()
    Set fs = Application.FileSearch
    With fs
     .LookIn = "C:\…"
     .Filename = "*.xls"
     .Execute
       For i = 1 To .FoundFiles.Count
    '  MsgBox.FoundFiles (i)
       If .FoundFiles(i) <> "C:\…" Then
       Workbooks.Open Filename:=.FoundFiles(i)
       x = Workbooks("testing.xls").Sheets("Download").Range("A65536").End(xlUp).Row + 1
       Range("A1:O54").Copy Workbooks("testing").Sheets("Download").Range("A" & x)
    ActiveWorkbook.Close SaveChanges:=False
    End If
    Next i
    If .FoundFiles.Count = 0 Then
    MsgBox "Aucun fichier n'a été trouvé"
    End If
    End With

Avez-vous une solution…

Merci beaucoup

[Qwazerty]

SAlut et bienvenu
Etant nouveau tu n'as surement pas du voir la fonction recherche du forum, en l'utilisant ou en regardant les dernier sujet posté tu aurais pu trouver ceci (un peu de pub pour Ouskel'n'ord ) qui je pense repondra a ta question ou du moins te donnera suffisement d'information pour nous proposer une macro que nous t'aideront a debugger si besoin.

Juste une petite parenthésé, je trouve que c'est dernier jour il a a vraiment beaucoup d'inscription... et les sujets sont très souvent identiques, vous suivez tous la même formation ? ou c'est juste une coïncidence?

A++
Qwaz