D
David
Guest
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
Quelle est la solution qui est devant mes yeux et que je ne vois pas.
En vous remerciant.
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
Code:
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
En vous remerciant.