Comment copie coller à partir d'un fichier Excel fermer

bonjour;

veuillez trouver ci-joint le dossier nouveau dossier.rar qui comporte le tableau synthese et les classeurs des 3 agents

comment remplir le tableau syntheses sans ouvrire les classeurs des trois agents par VBA MACRO ( LES cases à remplir automatiquement (nom prénom, matricule, intitulé de poste,role,niveau de contribution) et ce selon la colonne ( nom classeur) jusqu’à la fin ligne non vide de la colonne.

remarque : les cases de la colonne(nom classeur) c'est les critéres pour trouver les case à remplir automatique dans la liste de synthese

bonne reception

cordialement

Bonjour,

voici un exemple,

Sub RequeteClasseurFerme()
'activer la référence Microsoft ActiveX Data Objects x.x Library
Dim Cn As ADODB.Connection
Dim Fichier As String
Dim NomFeuille As String, texte_SQL As String
Dim Rst As ADODB.Recordset

For ligne = 2 To Sheets("LISTE").Cells(Rows.Count, "A").End(xlUp).Row
    nom = Cells(ligne, 1)
    Fichier = "C:\Users\isabelle\Documents\Test1\" & nom & ".xlsx"  ' à adapter
    NomFeuille = "Feuil1"
    addrSource = Array("B2", "B3", "B4", "G2", "G3")

    Set Cn = New ADODB.Connection
    With Cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & Fichier & ";Extended Properties=""Excel 12.0;HDR=NO;"""
        .Open
    End With

    For i = LBound(addrSource) To UBound(addrSource)
        texte_SQL = "SELECT * FROM [" & NomFeuille & "$" & addrSource(i) & ":" & addrSource(i) & "]"""
        Set Rst = New ADODB.Recordset
        Set Rst = Cn.Execute(texte_SQL)
        Cells(ligne, i + 2).CopyFromRecordset Rst
    Next i
Next ligne
    Cn.Close
    Set Cn = Nothing
End Sub

merci, j'essaie faire ce code sur mon dossier

bonne journée