Bjr,

J'ai le code suivant :
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
 
Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 20/12/2005 par pommbe01
'
    Dim i As Integer
 
    Sheets("DATA").Select
 
    For i = 1 To 300
 
    Cells(i, 1).Select
 
    Selection.QueryTable.Refresh BackgroundQuery:=False
 
    Next
 
End Sub
Mais j'ai une erreur au niveau de la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Selection.QueryTable.Refresh BackgroundQuery:=False
Erreur definie par l'application ou par l'objet.

En fait je désire simplement actualiser les données de toutes les cellules de ma colonne A de ma feuille DATA.

Comment faire svp???

Merci