création de fichiers avec fichier de base sur excel et impression automatique

Bonjour,

Avec deux petites macros, une pour la création d’onglet et l’autre pour l’impression

Option Explicit

  Dim MySheet, Ws
  Dim I%, Dl%, Sh As Shape
 
Sub CreationOnglet()
  Application.ScreenUpdating = False
  Dl = Range("A" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne A
   
  For I = 5 To Dl 'boucle sur les lignes
    Worksheets.Add After:=Sheets(Worksheets.Count) 'Ajoute un onglet
    Set Ws = Sheets("Stocks Transactions")
    Set MySheet = ActiveSheet
      With MySheet
        .Name = Ws.Cells(I, 1).Value 'attribue le nom de la cellue colonne A de la ligne concernée
      End With
      Ws.Activate
      Ws.Range(Cells(1, 1), Cells(4, 35)).Copy MySheet.Cells(1, 1) 'Copie l'entête
      Ws.Range(Cells(I, 1), Cells(I, 35)).Copy MySheet.Cells(5, 1) 'Copie la ligne
        For Each Sh In MySheet.Shapes
          Sh.Delete 'Supprime les boutons
        Next Sh
  Next I
End Sub

Sub Impression()
  For I = 2 To Sheets.Count
    'Sheets(I).PrintOut            ' Pour imprimer
    Sheets(I).PrintPreview        ' Apercu avant impression
  Next I
End Sub

forum.xlsm (40,6 Ko)

1 « J'aime »