XL 2016 Ouvrir un classeur avec zoom corrigé.

[Scorpio]

Salut à tous,
J'essaye de joindre ce code dans mon Workbook Open, pour afficher seulement la feuille "Les Payements" à 85%, mais cela ne fonctionne pas. Est-ce que quelqu'un pourrais s'il vous plaît me dire pourquoi ?
Merci et à tout.

Private Sub Workbook_Open()
Sheets("Les Payements").Select
Call DerligneColonne
ActiveWindow.Zoom = 85
End Sub

 

[Jacky67]

Bonjour,
Sans savoir ce qu'il y a dans la macro "DerligneColonne ()", ce sera difficile.
Tester sans la ligne
Call DerligneColonne
ou la mettre en commentaire pour voir….
ou encore inverser les deux lignes
Call DerligneColonne
ActiveWindow.Zoom = 85

 

[Scorpio]

Bonjour Jacky67
Voici le call
Sub DerligneColonne()
Dim dl1 As Long ' derni?re ligne
With Sheets(ActiveSheet.Name)
dl1 = .Cells(.Columns(1).Cells.Count, 1).End(xlUp).Row + 1
.Range("A" & dl1).Select
End With
End Sub

 

[Jacky67]

Re..
Aucun souci chez moi.
Même en laissant le code tel quel, la feuille "Les Payements" a bien le zoom à 85

 

[Scorpio]

Re…
OK, merci