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

Print - sans pdf creator

  • Initiateur de la discussion Initiateur de la discussion tf1
  • 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 !

tf1

XLDnaute Occasionnel
Bonjour

Je souhaite savoir comment fait pour imprimer en PDF un fichier excel sans utiliser PDC créator ou autre seulement en utilisant le sauvegarde sous de excel...

Mais que le nom que prendra le fichier PDF créer serra celui définie en A1 et le lieu de l'enregistrement serra celui définie en A2

Sub Print_1()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\toto\cxcx.pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False

'NOM_PDF = ActiveSheet.Cells(1, 1).Value & Range("Feuil!A2")
'Destination = Range("Feuil!A1")

End Sub

Merci
 
Re : Print - sans pdf creator

bonjour,
sans probléme, moi j'utilise Bullzip, logiciel gratuit que tu peux telecharger sur 01.net, et la il crée une imprimante virtuelle pour imprimer tout en pdf
 
Re : Print - sans pdf creator

Merci de t'as réponse mais je ne souhaite pas d'imprimante virtuel....
que cela soit fait depuis excel ....

La macro créer permet de le faire mais je souhaite que le non du fichier soir gerer depuis une cellule

Merci
 
Re : Print - sans pdf creator

Bonjour Tf1,LABEHAUT

Normalement, tu peux modifier:

Code:
"C:\toto\cxcx.pdf"

par

Code:
Activesheet.cells(1,1).value

En ayant le chemin et nom du fichier dans la cellule A1 de la feuille active.
 
Re : Print - sans pdf creator

Bonjour tf1.


VB:
Sub Print_1()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=Feuil1.[A2].Value & Feuil1.[A1].Value, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
(Avec cxcx.pdf en Feuil1.[A1] et C:\toto\ en Feuil1.[A2].)​


ROGER2327
#6476


Vendredi 6 Pédale 140 (Vers Belges - fête Suprême Quarte)
10 Ventôse An CCXXI, 4,4995h - bêche
2013-W09-4T10:47:56Z


P.s. : Bonjour MJ13.
 
Dernière édition:
- 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

Discussions similaires

  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
433
Réponses
6
Affichages
355
Réponses
10
Affichages
791
Réponses
3
Affichages
877
Réponses
3
Affichages
1 K
Réponses
6
Affichages
553
W
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…