F
FAMU
Guest
Bonjour à tous,
Pouvez-vous modifier cette macro qui ne fonctionne pas ? :
Sub ZOOM()
Workbooks('Pause Sem. CA_JT.xls').Activate
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets.Application.ActiveWindow.Zoom = 10
Next i
End Sub
J'aimerais, que pour chaque feuille du classeur ouvert, il me les Zoom à 10.
Merci pour votre aide, car sans vous, je ne m'en sort pas !
Ciao.
Famu
Pouvez-vous modifier cette macro qui ne fonctionne pas ? :
Sub ZOOM()
Workbooks('Pause Sem. CA_JT.xls').Activate
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets.Application.ActiveWindow.Zoom = 10
Next i
End Sub
J'aimerais, que pour chaque feuille du classeur ouvert, il me les Zoom à 10.
Merci pour votre aide, car sans vous, je ne m'en sort pas !
Ciao.
Famu