Vos solutions fonctionnent en effet parfaitement.
J'ai fait un copier coller de ma feuille sur un autre fichier et le zoom fonctionne.
Sur le fichier original, cela ne fonctionne pas..... il s'ouvre un peu comme il veut...... mais ce n'est pas grave. on va dire que ça va être sa particularité. C'est important d'avoir des particularités.
Mais vos solutions fonctionnent parfaitement sur des fichiers tests. Du coup le pb ne vient pas des volets figés et comme je n'ai pas envie de me prendre la tête avec ce petit détail.... hop... la poussière sous le tapis !
Merci à vous
Bon imaginons que j'ai envie de passer le balai à un moment, le code de Jean Eric, on l'adapte comment pour plusieurs feuilles avec le code name?
Private Sub Workbook_Open()
Application.Goto Worksheets("Feuil1").Cells(1)
Columns("A:Z").Select
ActiveWindow.Zoom = True
[A1].Select
End Sub
Moi j'ai essayé cela. Cela ne fonctionne pas. Mais cela ne fonctionne pas car fichier capricieux ou cela pourrait marcher?
With Array(Feuil11, Feuil111, Feuil13, Feuil131, Feuil15, Feuil17, Feuil181, Feuil19, Feuil20, Feuil211, Feuil22, Feuil221, Feuil24, Feuil26, Feuil27, Feuil29, Feuil3, Feuil5, Feuil71, Feuil9, Feuil31, Feuil35, Feuil37, Feuil39, Feuil41, Feuil45, Feuil47, Feuil49, Feuil51, Feuil53)
Columns("A:AB").Select
Activewindowzoom = True
Range("a1").Select
End With