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
Partager