Discussion :

[olivier-tig]

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 :

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
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

[aalex_38]

Bonjour,

Sans entrer dans le détail, il est inutile de multiplier le même code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Workbook_Open()
Application.ScreenUpdating = False
' ton code
Application.ScreenUpdating = True
End Sub