Invité Dim 12 Jan - 15:44
Ledefi a écrit:Bonsoir
donc merci pour le fichier
donc sur pc portable avec 2007 tout ok
pour le pc en 2003 bug les 3 reunions
Sub R2()
Application.ScreenUpdating = False
'
Sheets("REUNION2").Select
'
Range("B1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("j1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("R1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("Z1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("ah1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("ap1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("ax1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("bf1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False ???????? en jaune ??????
Range("bn1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
'Range("bv1").Select
' Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("REUNION2").Select
Range("a25").Select
Application.ScreenUpdating = True
End Sub
merci
Ledefi