soucis avec Application.ScreenUpdating
bonjour
le code ci apres me cause un petit soucis. La mise a jour ecran a l'air de fonctionner qu'a moitié car l'ecran " tremble". Avez vous une idée du probleme
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| Private Sub Workbook_Open()
stFichierComp = "C:\Documents and Settings\HP_Propriétaire\flic.xls"
If Dir(stFichierComp) = "" Then
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "acceuil" Then
Application.ScreenUpdating = False
ws.Visible = True
Application.DisplayAlerts = False
ws.Delete
End If
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Next ws
ActiveWorkbook.Save
ActiveWorkbook.Close
Else
For Each ws In Worksheets
If ws.Name <> "acceuil" Then
Application.ScreenUpdating = False
On Error Resume Next
ws.Visible = True
Application.ScreenUpdating = True
Sheets("ACCEUILLe").Select
Range("F8").Select
On Error GoTo 0
End If
Next ws
End If
End Sub |