Récupérer des données de plusieurs Excel identiques dans un seul Résolu/Fermé

Question

Bonjour,

J'ai différents fichiers Excel, tous organisés de la même façon. Dans ces fichiers, je dois uniquement récupérer certaines valeurs. Il s'agit dans mon cas des lignes 9 à 40 des colonnes A, B, C et E.

Je veux pouvoir mettre toutes ces valeurs dans un unique tableau les unes en dessous des autres dans un nouveau fichier à part. Ex: Fichier 1 dans les lignes 2 à 33 ; Fichier 2 dans les lignes 34 à 65 etc...

Je suis sur Windows 7 avec Microsoft Excel 2007.

Quelqu'un aurait- il une solution à mon problème?

Merci d'avance, n'hésitez pas à me demander si j'ai oublié des informations

Zoul67 · Answer

Bonjour,

Tu peux essayer un truc de ce genre-là (en mettant le nom des fichiers en colonne A : https://www.cjoint.com/?DCyqM37tsn6
Sinon, ça devra passer par une macro.

A+

Vinsanity15 · Answer

Merci Zoul67 pour ta réponse,

le problème c'est qu'avec cette solution le fichier doit être ouvert sinon "#REF!" s'affiche dans la case. Je souhaite juste récupérer les informations.

L'idéal (si possible) serait par l'appui sur un bouton d'une macro de sélectionner un dossier et que tous les informations que je souhaite soit récupérer dans chaque fichier présent dans le dossier sélectionné.

Je ne sais pas si c'est possible et encore merci pour ton aide.

eriiic · Answer

Bonjour,

à tester : https://www.cjoint.com/?DCysWF9VTv5
Mettre le classeur dans le répertoire à traiter, l'ouvrir, cliquer sur le bouton.

eric 
 
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(devise Shadok)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

Vinsanity15 · Answer

Merci Eric pour ton aide,
Après quelques modifications de code, on arrive à récupérer les données de plusieurs classeurs présents dans un même dossier.
Voici le code 

Sub synthèse()

    'lignes 9 à 40 des colonnes A, B, C et E.
    'fichier 1 dans les lignes 2 à 33 ; Fichier 2 dans les lignes 34 à 65 etc...     Dim chemin As String, Fichier As String
    Dim wb As Workbook, wb2 As Workbook, sh As Worksheet, sh2 As Worksheet
    Dim chemin As String, Fichier As String, nbFich As Long
    Dim derlig As Long
    Set wb = ThisWorkbook
    Set sh = Worksheets(1)

    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = ActiveWorkbook.Path & "\"
        .Show
        If .SelectedItems.Count > 0 Then
            chemin = .SelectedItems(1) & "\"
        Else
            Exit Sub
        End If
    End With
    
    Application.ScreenUpdating = False
    derlig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    If derlig > 1 Then Range("A2:A" & derlig).EntireRow.Delete
    Fichier = Dir(chemin & "*.xl*")    ' 1er fichier
    Do While (Len(Fichier) > 0)
        If Fichier <> wb.Name Then
            Workbooks.Open chemin & Fichier
            ' traitement
            Set wb2 = ActiveWorkbook
            ' Set sh2 = ActiveSheet
            Set sh2 = Worksheets(1)
            wb.Activate
            sh2.[A9:C40].Copy
            sh.Cells(nbFich * 32 + 2, 2).Select
            Selection.PasteSpecial Paste:=xlPasteValues
            'Selection.PasteSpecial Paste:=xlPasteFormats
            
            sh2.[E9:E40].Copy
            sh.Cells(nbFich * 32 + 2, 5).Select
            Selection.PasteSpecial Paste:=xlPasteValues
            'Selection.PasteSpecial Paste:=xlPasteFormats
            sh.Cells(nbFich * 32 + 2, 1) = Fichier
            nbFich = nbFich + 1
            wb2.Close
        End If
        Fichier = Dir()    ' fichier suivant
    Loop
    [A1].Select
End Sub

Mais maintenant on aimerait récupérer les données de tous les dossiers présents dans un répertoire en une seule fois.
Comment dois je faire ? ajouter une boucle ?

eriiic · Answer

Bonjour,

Pour ça je te conseille l'excellent site de J Boigontier.
Sur cette page tu trouveras 'Arborescence des sous-répertoires d'un répertoire'

eric

eriiic · Answer

Dans VBE regarde dans 'Outils / Références...' si tu peux activer Microsoft Scripting Runtime.

Il le faut pour utiliser le FileSystemObject (fso) et toutes les versions d'excel ne l'ont pas.
Sinon ici : lister les répertoires avec Dir() (sans fso donc)

eric
 
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(devise Shadok)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

Récupérer des données de plusieurs Excel identiques dans un seul

6 réponses

Discussions similaires