Macro impression

[milie]

Bonjour,
Je cherche une macro pour imprimer en PDF la feuille "fiche" de l'exemple ci-joint pour toutes les valeurs de la liste déroulante en une seule fois pour éviter de lancer une impression pour chaque valeur de la liste déroulante.
Est ce possible ?
Merci

 

[francedemo]

Re : Macro impression

bonjour,

tu peux coller ça dans ta feuille ou dans un module suivant ton besoin:

Option Explicit

Public Sub Impress()

Dim i
Dim Fich

For Each i In Worksheets("Données").Range("A3:A" & [A65000].End(xlUp).Row)
   If i = "" Then Exit For
   [K4] = i
   Fich = Split(ActiveWorkbook.Name, ".")
   Fich = ActiveWorkbook.Path & "\" & Fich(0) & "_" & i & "." & Fich(1)
   ActiveSheet.ExportAsFixedFormat _
      Type:=xlTypePDF, _
      Filename:=Fich, _
      Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
Next i

End Sub

ça crée un fichier .pdf dans le même répertoire avec le même nom + la valeur du choix fait pour l'impression
à modifier selon tes impératifs

à +

 

[milie]

Re : Macro impression

Merci, j'ai essayé ça fonctionne bien.
Serait-il possible d'aller plus loin en donnant le choix à l'utilisateur de faire un PDF pour chaque fiche ou un seul PDF avec toutes les fiches ?

 

[francedemo]

Re : Macro impression

dsl, je ne sais pas faire plusieurs impressions pdf dans un seul fichier...
ça suppose de garder l'impression en mémoire ou qque chose comme ça