Impression filtrée
Allouettto
Messages postés
4
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonsoir,
Après de nombreuses heures de tentative grâce à d'autres posts et forums je n'y arrive toujours pas ...
J'ai créé un exemple tout bête sur un Excel que j'adapterai ensuite à mon fichier d'origine.
Je voudrais réaliser un enregistrement des données sous PDF pour chacun des pays. Pour la France un tableau à 2 lignes donc et Luxembourg une ligne etc.
Si possible, l'extraction PDF se limite à la dernière ligne du tableau.
Voilà le fichier : https://www.cjoint.com/c/IAppj4oXxHn
Pour une autre macro, une liste entière de pays possédait des données donc je n'avais pas à me soucier je les sélectionnais tous un à un dans mes extracts avant de sélectionner le pays suivant.
Je vous remercie par avance !
Après de nombreuses heures de tentative grâce à d'autres posts et forums je n'y arrive toujours pas ...
J'ai créé un exemple tout bête sur un Excel que j'adapterai ensuite à mon fichier d'origine.
Je voudrais réaliser un enregistrement des données sous PDF pour chacun des pays. Pour la France un tableau à 2 lignes donc et Luxembourg une ligne etc.
Si possible, l'extraction PDF se limite à la dernière ligne du tableau.
Voilà le fichier : https://www.cjoint.com/c/IAppj4oXxHn
Pour une autre macro, une liste entière de pays possédait des données donc je n'avais pas à me soucier je les sélectionnais tous un à un dans mes extracts avant de sélectionner le pays suivant.
Je vous remercie par avance !
A voir également:
- Impression filtrée
- Spouleur d'impression - Guide
- Impression livret a5 - Guide
- Impression ecran samsung - Guide
- Problème impression pdf texte manquant - Forum PDF
- Impression miroir word - Guide
1 réponse
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
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
ActiveSheet.Range("$F$4:$H$11").AutoFilter Field:=2, Criteria1:="=France", _ Operator:=xlOr, Criteria2:="=Luxembourg"il faudrait donc remplacer France et Luxembourg par les lignes correspondantes de la colonne G !
Range("G10").Valuepar exempleVoilà
Sub savePDF() Dim rg As Range Sheets("Feuil1").Select Filtre Set rg = Application.Range("$K$5:$M$12") 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 Range("K5:M12").Select Selection.Delete Shift:=xlToLeft End Sub Sub Filtre() ActiveSheet.Range("$F$4:$H$11").AutoFilter Field:=2, Criteria1:=Range("G25").Value '"France" Range("F4:H11").Select Selection.Copy Range("K5").Select ActiveSheet.Paste ActiveSheet.Range("$F$4:$H$11").AutoFilter Field:=2, Criteria1:=Range("G26").Value ' "Luxembourg" Range("F4:H11").Select Selection.Copy Range("K11").Select ActiveSheet.Paste ActiveSheet.Range("$F$4:$H$11").AutoFilter Field:=2 End Sub@+ Le Pivert