Discussion :

[k-eisti]

Bonjour a tous ,

j'ai une macro qui me crée des pages selone quelques conditions que j'ai définie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set CreateSheet = ThisWorkbook.Worksheets.Add
  If SheetName <> "" Then CreateSheet.Name = SheetName
    If SheetName = "EtatBordeaux" Then
      Sheets(SheetName).Move After:=Sheets("GestionDiners")
    End If

et comme je doit imprimer ces feuilles aprés la création , je souhaiterais que ces feuiles contienent seulement une Page

ya t'il moyen de le faire avec VBA ??

Merci de votre aide

[ouskel'n'or]

Regarde à PageSetup, dans l'aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With