Bonjour à tous,

Je viens vers vous car je me retrouve confronté à une erreur 1004
"Erreur définie par l'objet ou par l'application" sur la ligne de code vba
"Selection.QueryTable.Refresh BackgroundQuery:=False".

Je cherche à actualiser le résultat d'une requête Access par cette macro, mais lorsque j'exécute la macro, la même erreur me remonte à chaque fois. Je suis donc obligé d'actualiser mes données manuellement via un clic droit> Actualiser sur une des cellules du tableau résultat.

Le plus étonnant est que sous une version 2003 de Excel, ce code fonctionne parfaitement, d'où mon étonnement.

Je vous mets le code de la macro que je souhaite exécuter ci dessous:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub MONEO()
 
Sheets("STATS MONEO").Activate
Range("A2").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("L2").Select
datemois = ActiveCell.Value
Range("K10").Select
While ActiveCell <> datemois
        ActiveCell.Offset(1, 0).Select
        Wend
If ActiveCell = datemois Then
                ActiveCell.Offset(0, 1).Select
                Selection.Copy
                Sheets("Reporting").Activate
                Range("D55").Select
                Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
                Application.CutCopyMode = False
         End If
End Sub