XL 2010 VBA bouton impression sur plusieurs onglets

[cmdavid]

Bonjour à tous,

je recherche a créer des boutons pour chaque onglets pour imprimer en PDF, voir fichier joint.

je vous remercie par avance pour votre aide.

 

[Pounet95]

Bonjour tout le monde,

La procédure Imprim ne doit être présente qu'une seule fois sous ce nom, sinon il y a ambiguité.
Au lieu d'un bouton, une forme (shape) rectangle liée à la macro fait l'affaire.
Et dans la macro , au lieu de Feuilxx mettre Activesheet ( voir ci-dessous)
De plus, s'il est besoin de dupliquer la feuille, cela se fera par un simple copier/coller qui prendra en compte le shape, ce qui n'est pas le cas avec le bouton.

Bonne journée
Claude alias Pounet95

Sub imprim()
    Dim nom$
    With ActiveSheet
        ' Pour vérifier quelle feuille est en conversion PDF
        MsgBox "Feuille en cours : " & ActiveSheet.Name
        
        nom = .Cells(1, 2) & "\" & .Cells(3, 2) & "  " & Format(.Cells(2, 2), "dd-mm-yyyy") & ".pdf"
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom, _
                        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                        IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
    MsgBox "Factura a fost salvata sub " & nom, , "PRINT TERMINAT"
End Sub

 

[cmdavid]

Bonjour Claude,
Un grand merci, ça fonctionne.
Bonne journée