creer une commande, bouton "editer le fichier"

[sofynet]

Bonjour à tous, et "excel"ente année!

voila, je voudrais créer sur mon fichier un bouton pour commander l'impression de tout mon document (tous les onglets générés)....
si quelqu'un a une idée...
Merci d'avance!
sophie

 

[Theze]

Re : creer une commande, bouton "editer le fichier"

Bonjour,

Une piste, créer un bouton et lui affecter la proc ci-dessous (Imprimer) :

Sub Imprimer()

    Dim Fe As Worksheet
    
    For Each Fe In Worksheets
        
        'sélection de toutes les feuilles de calculs
        Fe.Select (False)
        
    Next Fe

    With ThisWorkbook
    
        'PrintPreview pour l'aperçu
        .Windows(.Name).SelectedSheets.PrintOut
        
        'sélectionne juste la première pour
        'mettre fin à la sélection multiple
        .Worksheets(1).Select
        
    End With
    
End Sub

Hervé.