Bonjour,
J'ai un classeur avec plusieurs feuilles. Je souhaiterais qu'à l'ouverture du fichier toutes les feuilles soient au meme zoom (80%).
J'ai essayé cette macro :
Private Sub Workbook_Open()
Dim i As Byte
For i = 1 To Sheets.Count
With Sheets(i)
ActiveWindow.Zoom = 80
End With
Next
End Sub
mais elle ne marche pas pour toutes les feuilles !
Merci par avance à vous pour toute proposition.
Bon début de semaine.
Pricer
J'ai un classeur avec plusieurs feuilles. Je souhaiterais qu'à l'ouverture du fichier toutes les feuilles soient au meme zoom (80%).
J'ai essayé cette macro :
Private Sub Workbook_Open()
Dim i As Byte
For i = 1 To Sheets.Count
With Sheets(i)
ActiveWindow.Zoom = 80
End With
Next
End Sub
mais elle ne marche pas pour toutes les feuilles !
Merci par avance à vous pour toute proposition.
Bon début de semaine.
Pricer