[VBA] Récupérer nom connexions Excel-Access

Bonjour,

Je suis bloqué depuis quelques jours sur la modification d'une connexion externe Access vers mon classeur Excel.

Je veux modifier cette connexion en changant juste l'extension .mdb par .accdb, par VBA, j'ai ceci :

           With ActiveWorkbook.Connections("Suivi_pal_quai").OLEDBConnection
                .BackgroundQuery = True
                .CommandText = Array("R2_comptage_palettes")
                .CommandType = xlCmdTable
                .Connection = Array( _
                "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=\\NASTOU01.lactadom.ad\MESDONNEES_EFLTOU\fr01199\Suivi_pal_quai.accdb;")
                .SourceDataFile = "\\NASTOU01.lactadom.ad\MESDONNEES_EFLTOU\fr01199\Suivi_pal_quai.accdb"
            End With
        
            With ActiveWorkbook.Connections("Suivi_pal_quai")
                .Name = "Suivi_pal_quai"
            End With

Cela fonctionne mais j'aimerai utilisé cette macro pour plusieurs fichiers. Donc il faudrai que je puisse récupérer le nom de la connexion, le nom de la requete, et la source en les stockant dans une variable pour les utiliser ici. J'aimerai savoir si c'est possible, et comment y arriver ?

Merci d'avance !!!