Microsoft 365 Exporte format d'impression à d'autres onglet

Sub ONGLETUSERS()

'Je vais créer les onglets pour chaque utilisateurs qui doit réaliser un inventaire:


     Application.ScreenUpdating = False


'Je défini les variables:

    Dim ws As Worksheet
    Dim wsFrom As Worksheet
    Dim wsTO As Worksheet
    Dim ctl As Control
    Dim i As Integer

        
        'Cet onglet est le résumé de tous les onglets créés:
        
        Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        ws.Name = "RESUME"

        


        
        'A présent, pour chaque utilisateurs coché pour l'inventaire je créé un onglet à son nom:
            
                For Each ctl In UF_CHOIX_USERS.Controls
                    If TypeName(ctl) = "CheckBox" Then
                    
                        If ctl.Value = True Then
                    
                    
                    Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        
            ws.Name = ctl.Caption
            i = i + 1
            
            
            
            
            'Je reproduis le format de l'inventaire sur chaque feuille créée:
            ThisWorkbook.Sheets("MODELE").Cells.Copy Destination:=ws.Cells
                            
        
        
            'Ici j'indique dans A1 le nom de l'utilisateur:
            ws.Range("F7").Value = ws.Name
            
            
            
            
                        'J'imprime l'inventaire pour chaque utilisateur en me basant sur les propriétés d'impressions de la feuille MODELE:
                        
                            Set wsFrom = Sheets("MODELE")
                            Set wsTO = ws
                        
                                              
                             With wsTO.PageSetup
        
                                    .AlignMarginsHeaderFooter = wsFrom.PageSetup.AlignMarginsHeaderFooter
                                    .BlackAndWhite = wsFrom.PageSetup.BlackAndWhite
                                    .BottomMargin = wsFrom.PageSetup.BottomMargin
                                    .LeftMargin = wsFrom.PageSetup.LeftMargin
                                    .Orientation = wsFrom.PageSetup.Orientation
                                    .PaperSize = wsFrom.PageSetup.PaperSize
                                    .RightHeaderPicture.Filename = wsFrom.PageSetup.RightHeaderPicture.Filename
                                    .RightMargin = wsFrom.PageSetup.RightMargin
                                    .TopMargin = wsFrom.PageSetup.TopMargin
                                    .Zoom = wsFrom.PageSetup.Zoom
                        
                            End With
                        
                        
                            ws.PrintOut

                      
        End If
        
    End If

Next ctl


                    





    Application.ScreenUpdating = True


    MsgBox i & " ONGLETS ONT ÉTÉ CRÉÉS AVEC SUCCÈS.", vbInformation, "Gestion des inventaires."
    
    
  
End Sub