Erreur de syntaxe Private Sub WorkBook

[Bouba]

Bonjour à tous
j'ai utiliser se code mon classeur mais à chaque fois il rale normal j'ai du faire une erreur de syntaxe
quelqu'un à une idee
merci

Private Sub Workbook_Open()
Usfid.Show
End Sub
Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub
Application.DisplayFullScreen = True
With Sheets("Gestion Comptable")
.Select
.[B1].Select
.EnableSelection = xlUnlockedCells
.ScrollArea = "A1:A25"
End With
alert = MsgBox("Cette application est optimisée pour un écran 17''" & vbLf _
& "et une définition de 1024x768", vbOKOnly + vbCritical, "")
End Sub
Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub

 

[@+Thierry]

Salut Bouba, le Forum

Oui tu as une erreur de Syntax au moins une, ici :

Private Sub Workbook_Open()
Usfid.Show
End Sub
Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub
Application.DisplayFullScreen = True

Puisque tu es en "End Sub" la ligne suivante est en dehors de toute Procédure... A toi de savoir si :

Application.DisplayFullScreen = True
With Sheets("Gestion Comptable")
.Select
.[B1].Select
.EnableSelection = xlUnlockedCells
.ScrollArea = "A1:A25"
End With
alert = MsgBox("Cette application est optimisée pour un écran 17''" & vbLf _
& "et une définition de 1024x768", vbOKOnly + vbCritical, "")
End Sub

Doit faire partie de : Private Sub Workbook_Open()

Ensuite pour le reste je n'ai pas testé...

Bonne Soirée
@+Thierry

 

[Bouba]

MERCI THIERRY
JE NE SAIS PAS JE VAIS ESSAY2 DE VOIR
BOUBA