Problème d'ouverture avec largeur et hauteur spécifique

[Temjeh]

Bonjour et merci d'avance

J,ai ceci à l'ouverture qui fonctionne bien:

Private Sub Workbook_Open()
Application.Width = 160
Application.Height = 788
Application.Left = 0
Application.Top = 0
End Sub

Sauf qu'il y a bug si excel n'est pas déjè réduit.
En mode fenêtre complet il met une erreur.
Y-a-t-il une solution?

On error goto fin mais ca ne règle pas le bug pour que le code s'exécute.

Merci

Temjeh

 

[Pierrot93]

Re : Problème d'ouverture avec largeur et hauteur spécifique

Bonjour,

essaye ceci :

With Application
    .WindowState = xlNormal
    .Width = 160
    .Height = 788
    .Left = 0
    .Top = 0
End With

bon après midi
@+

Edition : bonjour Jean-Marcel

 

[Temjeh]

Re : Problème d'ouverture avec largeur et hauteur spécifique

Oui effectivement ça fonctionne

Merci beaucoup à vous deux

Temjeh