Microsoft 365 Créer tableur récapitulatif d'autres fichiers

good57 · 16 Août 2023

Bonjour à tous,

Dans un dossier "AOUT", j'ai plusieurs classeurs (dont le nombre et le nom sont variables d'un mois à l'autre).
Je souhaite, dans le même dossier créer un classeur récapitulatif qui me permettra automatiquement à l'ouverture d'aller récupérer des données dans les cellules de chacun de mes classeurs.

Par exemple, dans mon classeur "RECAPITULATIF", je souhaite que :
- dans la colonne A, soit reporté les données de la cellule D4 de chaque classeur de mon dossier "AOUT"
- dans la colonne B, soit reporté les données de la cellule B8 de chaque classeur de mon dossier "AOUT"

Merci pour votre aide

Dranreb · 16 Août 2023

Bonjour.
Essayez ce genre dans le module ThisWorkbook :

VB:

Option Explicit
Private Sub Workbook_Open()
   Dim NomFic As String, TR(), L&, Wbk As Workbook, Wsh As Worksheet
   ReDim TR(1 To 5000, 1 To 2)
   NomFic = Dir(ThisWorkbook.Path & "\*.xlsx")
   Do While NomFic <> ""
      If NomFic <> ThisWorkbook.Name Then
         Set Wbk = Workbooks.Open(ThisWorkbook.Path & "\" & NomFic)
         Set Wsh = Wbk.Worksheets(1)
         L = L + 1
         TR(L, 1) = Wsh.[D4].Value
         TR(L, 2) = Wsh.[B8].Value
         Wbk.Close SaveChanges:=False
         End If
      NomFic = Dir(): Loop
   Me.Worksheets(1).[A1].Resize(5000, 2).Value = TR
   End Sub

good57 · 17 Août 2023

Merci beaucoup.
C'est exactement ça qu'il me fallait. C'est une excellente base de travail pour le fichier que j'ai à créer !
Merci encore !

Microsoft 365 Créer tableur récapitulatif d'autres fichiers

good57

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

good57

XLDnaute Occasionnel

Discussions similaires

Microsoft 365 Créer tableur récapitulatif d'autres fichiers

good57

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

good57

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency