Synthèse automatique de données

Bonjour à Tous,

Je suis novice en VBA et je dois réaliser un tableau de synthèse à partir de X feuilles bilan situées dans le même répertoire Windows. Je pense savoir comment ouvrir chaque fichier tour à tour mais je ne sais pas comment réussir à copier dans le fichier ouvert les cellules qui m’intéressent (qui sont les mêmes dans chaque fichier, P1, Q4, T8,…) pour pouvoir les coller dans une colonne dédié à ce fichier dans la feuille de synthèse contenant la macro… Quelqu’un pourrais m’orienter SVP ?

PS : j’ai aussi vu que dans beaucoup de code il était question d’effacer la zone d’écriture, est-ce primordial ?

PS2: Je joins la feuille de synthèse pour voir aider à visualiser !

Merci d'avance à ceux qui prendront le temps de me lire

J'en arrive là mais apparament il y a un problème avec la ligne que j'ai surligné (er 424 objet non défini) et j'ai l'impression que ça empêche la boucle de tourner, avec vous une idée du pourquoi ?

Option Explicit

Dim F(), Col
Dim Chemin, NomFichier, wb2, Fdép

Sub SyntheseDesOutils()

    Application.ScreenUpdating = False
    Application.EnableEvents = False

    Set Fdép = ActiveSheet
    Chemin = ThisWorkbook.Path & "\"
    NomFichier = Dir(Chemin & "*.xls*") 'ouvre tous les fichiers .xls*
    With Fdép
        Do While Len(NomFichier) > 0
            If NomFichier <> ThisWorkbook.Name Then
                Set wb2 = Workbooks.Open(Chemin & NomFichier) 'Ouvre le fichier
            End If

            Col = .Cells(3, Columns.Count).End(xlToLeft).Column + 1
            .Range("B:B").Copy .Range(.Columns(Col), .Columns(Col + 1))

                wb2.Close False
       Loop

    Columns("B:B").Hidden = True

    End With

End Sub

Bonjour et bienvenue sur le forum

Sans le fichier qui va avec, c’est délicat …

Essaie de rajouter, juste après

wb2.Close False

l’instruction :

Monfichier = Dir

gmb a écrit :

Bonjour et bienvenue sur le forum

Sans le fichier qui va avec, c’est délicat …

Essaie de rajouter, juste après

wb2.Close False

l’instruction :

Monfichier = Dir

et entre les 2 tu y déplaces l'instruction end if que tu as mise plus haut.

Merci de vos répondes, j'ai écouté vos instructions qui ont fonctionnées mais un autre problème ce pose... J'ai posté sur plusieurs forums et apparemment c'est mal vu donc je laisse couler ce Topic pour éviter les doublons, merci !