Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro impression pdf

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion dilank
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

dilank

Guest
Bonjour,

J'ai fait un fichier en pièce jointe...

J'ai fait une macro simple pour imprimer toutes les personnes sous un code 14001 , 14002 .... pour la feuille resultat..

je voudrais (à la place que cela s'imprime) que ça enregistre toutes les personnes dans un seul pdf...

j'ai pdf architect 3 creator dessus et excel 2013.

Merci de votre aide.
 

Pièces jointes

Trier par date Trier par votes
Re : Macro impression pdf

Bonsour®
EXCEL sait exporter directement en Pdf

on pourra avantageusement simplifier le code ci-dessous par une boucle sur les différents N° de compte souhaité
Nb : la plage d'impression doit être définie
VB: 
Sub Macro1()
    Range("G4") = "14001"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                     Filename:=ThisWorkbook.Path & "\" & Range("G4") & ".pdf", _
                     Quality:=xlQualityStandard, _
                     IncludeDocProperties:=True, _
                     IgnorePrintAreas:=False, _
                     OpenAfterPublish:=False 'True
    Range("G4") = "14002"
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                     Filename:=ThisWorkbook.Path & "\" & Range("G4") & ".pdf", _
                     Quality:=xlQualityStandard, _
                     IncludeDocProperties:=True, _
                     IgnorePrintAreas:=False, _
                     OpenAfterPublish:=False
    Range("G4") = "14003"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                     Filename:=ThisWorkbook.Path & "\" & Range("G4") & ".pdf", _
                     Quality:=xlQualityStandard, _
                     IncludeDocProperties:=True, _
                     IgnorePrintAreas:=False, _
                     OpenAfterPublish:=False
    Range("G4") = "14004"
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                     Filename:=ThisWorkbook.Path & "\" & Range("G4") & ".pdf", _
                     Quality:=xlQualityStandard, _
                     IncludeDocProperties:=True, _
                     IgnorePrintAreas:=False, _
                     OpenAfterPublish:=False
    Range("G4") = "14005"
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                     Filename:=ThisWorkbook.Path & "\" & Range("G4") & ".pdf", _
                     Quality:=xlQualityStandard, _
                     IncludeDocProperties:=True, _
                     IgnorePrintAreas:=False, _
                     OpenAfterPublish:=False
End Sub
 
Vote positif 0 Vote négatif
Re : Macro impression pdf

Bonjour à tous

dilank
j'ai lu tout le fil, j'ai retenu ceci.
Nb : la plage d'impression doit être définie
Cliquez pour agrandir...
Est-ce bien le cas chez toi?

EDITION: Et donc avec une boucle, je confirme que le code soumis par Modeste Geedee n'est pas dans l'incapacité de fonctionner correctement 😉
Code: 
Sub Macro1B()
Dim i, sPath$, f As Worksheet
sPath = "C:\Temp\" 'adapter ici le chemin
Set f = Sheets([IMPRESSION].Parent.Name)
For i = 14001 To 14005
f.[G4] = i
[IMPRESSION].ExportAsFixedFormat Type:=xlTypePDF, _
                     Filename:=sPath & f.[G4] & ".pdf", _
                     Quality:=xlQualityStandard, _
                     IncludeDocProperties:=True, _
                     IgnorePrintAreas:=False, _
                    OpenAfterPublish:=False 'True
Next
End Sub
NB: Ici [IMPRESSION] correspond à une plage de cellule nommées.
(voir le Gestionnaire de Noms)
testé avec Excel 2013.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro impression pdf

Bonsour® JM

je pense que le demandeur à des difficultés à préciser ces besoins, ou bien que nous n'interprétions pas correctement ceux-ci...

je voudrais (à la place que cela s'imprime) que ça enregistre toutes les personnes dans un seul pdf...
Cliquez pour agrandir...

dans cette demande je comprends que les résultats ne soit pas imprimés, mais soient contenus dans un seul pdf.. ??

ma réponse concernait la création d'un pdf par personne (sans impression)
impression facultative à la demande en modifiant ce paramètre
code....
, OpenAfterPublish:=True
Cliquez pour agrandir...

je ne connais pas la syntaxe VBA, pour concaténer les pdf... 🙁
 
Vote positif 0 Vote négatif
Re : Macro impression pdf

Bonjour Modeste Geedee


je ne connais pas la syntaxe VBA, pour concaténer les pdf...
Cliquez pour agrandir...
En cherchant un peu dans les scritps VBS (donc transposable en VBA), j'ai retenu cela:
CreateObject("AcroExch.PDDoc")
(Il y a pas mal d'exemples sur me web anglophone)
(Voir aussi les travaux de kiki29 (membre d'XLD))


Mais attendons les précisions du demandeur avant de merger du PDF

 
Dernière édition:
Vote positif 0 Vote négatif
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro impression pdf

Bonsoir à tous

Quand on parle du loup 😉

kiki29
Sur le wen anglophone, j'ai lu qu'on pouvait utiliser
CreateObject("AcroExch.PDDoc")
avec juste Acrobat Reader installé.
Tu confirmes ou infirmes cela ?
 
Vote positif 0 Vote négatif
Re : Macro impression pdf

Modeste geedee dans la PJ que tu as mise c'est toi qui a écrit "14001" "14002" .. ? Par contre je n'ai peut être pas le bon Acrobat.. ?

car quand j'utilise la macro je vois bien les personnes changer... mais pas de pdf.... ou alors cela s'enregistre quelque part.. ??
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Macro impression pdf

Oui Modeste geedee je ne veux pas imprimer mais bien enregistrer directement en pdf desole pour la mauvaise precision...

Pour autant je souhaite modifier ma demande...

Le mieux serait (si c'est possible) que :

1-ça enregistre 1 pdf pour 1 résultat
2-que ça envoie automatiquement le résultat par mail (avec une boite gmail) par contre ce système je ne sais pas si c'est réalisable.
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
912
Nounours4173
N
  • Résolu(e)
XL 2021 Export d'un Userform au format Docx;
3 4 5
Réponses
60
Affichages
1 K
job75
A
  • Question Question
XL 2010 Problème pour Générer plusieurs PDf en VBA
Réponses
5
Affichages
648
cp4
F
  • Question Question
XL 2021 Power Query : extraire tableaux et données de PDF
Réponses
0
Affichages
435
Florent74
F
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
2 K
kiki29
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
687
PHIL37
P
C
  • Résolu(e)
XL 2021 Userform impression + choix des feuilles
Réponses
8
Affichages
650
candido57
C
N
  • Question Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
808
Phil69970
O
  • Question Question
XL 2010 Boucle sur tout le classeur - Mise en page et impression
Réponses
3
Affichages
442
Olivier1978
O
U
  • Résolu(e)
Autres Comment modifier les macros pour qu’elles arrivent à faire ce que je veux
Réponses
6
Affichages
223
un internaute
U
J
  • Question Question
XL 2013 Impression pdf tableau croisé dynamique filtré par segment
Réponses
2
Affichages
537
Jean_Valjean
J
  • Résolu(e)
XL 2021 tri par lignes
2
Réponses
19
Affichages
1 K
rastafouette
R
  • Résolu(e)
Microsoft 365 Export PDF VBA suivant critères
Réponses
3
Affichages
449
raf26
R
P
  • Résolu(e)
XL 2010 Enregistrer sous un seul PDF toutes les feuilles visibles d'un classeur
Réponses
3
Affichages
902
Panda79360
P
P
  • Question Question
Microsoft 365 Joindre un fichier PDF dans un mail + inclure date envoi du mail dans un autre onglet
Réponses
1
Affichages
654
kiki29
Y
  • Question Question
XL 2016 Création d'un publipostage avec PJ PDF sur Outlook
Réponses
2
Affichages
520
Phil69970
A
  • Résolu(e)
XL 2013 Enregistrement feuille sous pdf
Réponses
2
Affichages
415
Appo1985
A
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
662
Phil69970
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
589
Dégé59
D
L
  • Question Question
Autres [ RESOLU ] Impression PDF via VBA
Réponses
5
Affichages
1 K
lechti31
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…