Problème liaison access excel

[David]

Bonjour le forum

Vous trouverez ci-dessous mon code pour lequel je rencontre un problème qui, pour vous, je n’en doute pas, n’est qu’un détail.
Ce code me permet d’importer des données d’Access, puis de les dispatcher dans l’ensemble des feuilles correspondant aux données de ma plage.
Mon code s’exécute normalement jusqu’à la ligne :.Refresh BackgroundQuery:=False.

A ce moment là, j’ai le charmant petit message :
Erreur d’exécution « 1004
Erreur générale ODBC

Pour information, avant de réduire ce code(fait par mon prédécesseur), celui-ci était multiplié par autant de données qu’il pouvait y avoir dans ma plage, le code, restait le même et, fonctionnait.
En le simplifiant, il ne fonctionne pas.
HELP HELP HELP HELP HELP

[/code]Bonjour,

Vous trouverez ci-dessous mon code pour lequel je rencontre un problème qui, pour vous, je n’en doute pas, n’est qu’un détail.
Ce code me permet d’importer des données d’Access, puis de les dispatcher dans l’ensemble des feuilles correspondant aux données de ma plage.
Mon code s’exécute normalement jusqu’à la ligne :.Refresh BackgroundQuery:=False.

A ce moment là, j’ai le charmant petit message :
Erreur d’exécution « 1004
Erreur générale ODBC

Pour information, avant de réduire ce code(fait par mon prédécesseur), celui-ci était multiplié par autant de données qu’il pouvait y avoir dans ma plage, le code, restait le même et, fonctionnait.
En le simplifiant, il ne fonctionne pas.
HELP HELP HELP HELP HELP

Sub recup()
    
    Dim plage As Range   
    
    Sheets('affaire').Select
    
    Set plage = Range('a2').End(xlDown)(1, 1)
    Range('a2', plage).Select
    For Each cell In Selection    
        Sheets('Données' & cell).Select
        Range('J7').CurrentRegion.Select
        Selection.ClearContents
        
        With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
            'ODBC;DSN=MS Access Database;DBQ=C:\\user\\LOGICIEL\\suivi .mdb;DefaultDir=C:\\user\\LOGICIEL;DriverId=25;FIL=MS Access;MaxBufferSi' _
            ), Array('ze=2048;PageTimeout=5;')), Destination:=Range('J7'))
            .CommandText = Array( _
             'SELECT cell  .différence, cell.`alerte `, cell.Pays, cell.désignation' & Chr(13) & '' & Chr(10) & 'FROM `C:\\user\\LOGICIEL\\suivi `.cell cell' _
        )
            .Name = 'Lancer la requête à partir de MS Access Database'
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = True
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .PreserveColumnInfo = True
            .Refresh BackgroundQuery:=False
        End With
    
    Next
End Sub

Quelle est la solution qui est devant mes yeux et que je ne vois pas.
En vous remerciant.