Bonjour à tous,
Je sollicite votre aide car je n'arrive pas à intégrer (si c'est faisable) un critère de sélection pour l'impression des mes pages en .pdf depuis Excel.
J'utilise le code suivant qui fonctionne:
J'aimerai sélectionner des pages (zones d'impression) pour chacune des feuilles de mon classeur mais à l'aide d'une condition. Si dans ma zone hors impression il y a "C" alors on imprime sinon on passe à la page suivante.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Sub Tst() Dim Ar(2) As String Ar(0) = Feuil1.Name Ar(1) = Feuil2.Name Ar(2) = Feuil3.Name Application.ScreenUpdating = False Sheets(Ar).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Document.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Sheets("Feuil1").Select Application.ScreenUpdating = True End Sub
En plaçant une liste de critères à droite hors zone d'impression:
Dans ma feuille1
Page1:
Texte Texte Texte Texte Texte A B C D
Texte Texte Texte Texte Texte
Page2:
Texte Texte Texte Texte Texte A B D
Texte Texte Texte Texte Texte
Page3:
Texte Texte Texte Texte Texte A C
Texte Texte Texte Texte Texte
Dans ma feuille2
Page1:
Texte Texte Texte Texte Texte A B C D
Texte Texte Texte Texte Texte
Page2:
Texte Texte Texte Texte Texte C D
Texte Texte Texte Texte Texte
Je ne sais pas si c'est très clair...
Merci par avance pour votre aide!!!
Partager