Automatiser l'actualisation d'une feuille de 6 fichiers vers 1 fichier

Bonjour,

Je souhaiterai savoir s'il est possible de créer un fichier qui viendrait récupérer 1 feuille bien précise sur chacun des fichiers suivants :

En gros, sur ce fichier le but serait d'avoir un bouton MAJ qui permet de récupérer à chaque fois la feuille n°5 (mis à jour et avec les dernières données) de chacun des 6 fichiers (donc il y aurait 6 feuilles sur ce fichier). Donc si quelqu'un vient ajouter une ligne sur cette feuille n°5, je voudrai que sur le fichier unique l'onglet se mette à jour automatiquement avec cette nouvelle ligne et ainsi de suite...

Connaissez-vous une méthode pour automatiser cela ?

Cordialement,

Charles CARON

Bonjour à tous !

VBA et Power Query peuvent vous aider dans votre quête.

Pourriez-vous poster deux ou trois fichiers représentatifs ?

Bonjour

En VBA

Sub CombineFeuilles(spath As String, index As Integer, rightCar As String)
Dim fileName As String
Dim Sheet As Worksheet
Dim NewWorkbook
Set NewWorkbook = Workbooks.Add
fileName = Dir(spath & "*.xl*")
Do While fileName <> ""
  Workbooks.Open fileName:=spath & fileName, ReadOnly:=True
  Set Sheet = ActiveWorkbook.Sheets(index)
  'MsgBox Sheet.Cells(1, 1)
  Sheet.Copy after:=NewWorkbook.Sheets(1)
  If InStr(1, lcase(fileName), lcase(rightCar)) Then
  ActiveSheet.Name = Replace(Right(Lcase(fileName), InStr(1, Lcase(fileName), rightCar) + 1), ".xlsx", "")
  End If
Workbooks(fileName).Close
fileName = Dir()
Loop
End Sub

Sub Combine()
Call CombineFeuilles("T:\SERVICE QUALITE\Avis d'anomalie\", 5, "-")
End Sub

Lancer la macro combine avec votre bouton MAJ

Cdlt

Merci, vous êtes un génie