Impression filtrée
Fermé
Allouettto
Messages postés
4
Date d'inscription
lundi 7 janvier 2019
Statut
Membre
Dernière intervention
15 janvier 2019
-
15 janv. 2019 à 16:37
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 16 janv. 2019 à 10:11
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 16 janv. 2019 à 10:11
A voir également:
- Impression filtrée
- Spouleur d'impression - Guide
- Impression ecran windows - Guide
- Impression livret word - Guide
- Impression ecran samsung - Guide
- Carrefour impression documents - Forum Imprimante
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
15 janv. 2019 à 18:16
15 janv. 2019 à 18:16
Bonjour,
a adapter:
a adapter:
Sub savePDF() Dim rg As Range Sheets("Feuil1").Select ActiveSheet.Range("$F$4:$H$11").AutoFilter Field:=2, Criteria1:="France" ' a adapter Set rg = Application.Range("$F$4:$H$11") rg.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\monpdfselection.pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False Set rg = Nothing MsgBox "Votre PDF est enregistré dans le même dossier que ce classeur.", vbOKOnly + vbInformation, "Enregistrement en PDF" ActiveSheet.Range("$F$4:$H$11").AutoFilter Field:=2 End Sub
15 janv. 2019 à 18:42
Les pays peuvent également être Uruguay ou Belgique, néanmoins, les extracts ne doivent se faire seulement sur les pays étant mentionnés dans la liste en colonne G.
Néanmoins, je ne connaissais pas le Msg box et je vous en remercie je l'ajoute à d'autres macros
15 janv. 2019 à 18:48
il faudrait donc remplacer France et Luxembourg par les lignes correspondantes de la colonne G !
par exemple
Voilà
Modifié le 16 janv. 2019 à 10:15
@+ Le Pivert