Petit code pour changer la connexion ODBC de tous les tableaux croisés dynamiques d'un fichier Excel

Sub Get_PT_Source_Code()
    Dim pvtTable As PivotTable
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Sheets
        For Each pvtTable In ws.PivotTables
            With pvtTable.PivotCache
                .Connection = "ODBC;DSN=tondsn;UID=orbr4552;APP=Microsoft Office 2003;WSID=FT-5AA857960B25;DATABASE=tadatabase;Trusted_Connection=Yes"
                Debug.Print .Connection 'the connection
            End With
        Next
    Next
End Sub