Impossible de remplacer "ACTIVEWINDOW"

Bonsoir,

je n'arrive pas à remplacer dans le code en bas de page:

ActiveWindow

par

ActiveSheet ou Sheets("nom")

LE CODE:

ActiveSheet.ResetAllPageBreaks

ActiveWindow.View = xlPageBreakPreview

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(59)

ActiveWindow.View = xlNormalView

C'est important car je travail en tache de fond!!!

merci beaucoup par avance

Bonsoir

Essayes avec la collection Windows

Remplaces Classeur1 par le vrai nom

Sub test()
Dim Indice As Integer

  Indice = Windows("Classeur1").Index
  ActiveSheet.ResetAllPageBreaks
  Windows(Indice).View = xlPageBreakPreview
  Windows(Indice).SelectedSheets.HPageBreaks.Add Before:=Rows(59)
  Windows(Indice).View = xlNormalView
End Sub

super, merci je vais tester.

Et comment faire pour spécifier le nom de la feuille!?

Bonsoir

thomas67 a écrit :

Et comment faire pour spécifier le nom de la feuille!?

A essayer

Sub test()
Dim Indice As Integer

  Indice = Windows("Classeur1").Index
  Windows(Indice).ActiveSheet.ResetAllPageBreaks
  Windows(Indice).View = xlPageBreakPreview
  Windows(Indice).SelectedSheets.HPageBreaks.Add Before:=Rows(59)
  Windows(Indice).View = xlNormalView
End Sub

Et en simplifiant

Sub test()

  With Windows("Classeur1")
    .ActiveSheet.ResetAllPageBreaks
    .View = xlPageBreakPreview
    .SelectedSheets.HPageBreaks.Add Before:=Rows(59)
    .View = xlNormalView
  End With
End Sub

merci,

j'ai presque adapté la solution:

Dim ficheproduit As String

ficheproduit = ActiveWorkbook

ficheonglet.Activate 'j'active mon onglet selon son codename

With Windows(ficheproduit) ' <---ICI ça bug

.View = xlPageBreakPreview

.SelectedSheets.HPageBreaks.Add Before:=Rows(59)

.View = xlNormalView

End With

Je ne veux pas utiliser un nom de fichier défini pour Window, car on doit pouvoir changer le nom du fichier...Et là c'est l'impasse

Bonjour

Essayes

Dim ficheproduit As String

ficheproduit = ActiveWorkbook.Name

L'erreur du débutant

Encore merci Banzai