.xls to .pdf

JNP

XLDnaute Barbatruc

• 1 Mars 2008

• #2

Re : .xls to .pdf

Bonjour Olymp 🙂,
C'est justement une des nouveautés de 2007...
Bouton Office -> Enregistrer sous -> Adobe PDF
Bon WE 😎

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 1 Mars 2008

• #3

Re : .xls to .pdf

Moyennant le téléchargement de ces plugs in

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 1 Mars 2008

• #4

Re : .xls to .pdf

Bonjour Kiki29 🙂,
Il est vrai que j'ai déjà Distiller, donc je n'ai pas fait attention s'il falllait télécharger un petit plus... 😱
Merci de ton complément 😎

 

Vote positif 0 Vote négatif

O

OLYMP

XLDnaute Junior

• 1 Mars 2008

• #5

Re : .xls to .pdf

Bonsoir le forum,


Je viens juste de voir votre message.
J'ai justement déjà passé par F12, mais il n'y a pas la possibilité d'enregistrer sous pdf.!!!

Merci pour toutes précisions svp

 

Vote positif 0 Vote négatif

O

OLYMP

XLDnaute Junior

• 1 Mars 2008

• #6

Re : .xls to .pdf

RE,

Oups,

Je n'avais pas vu la réponse de KIKI29.
Merci.
Je vais regarder
Merci

 

Vote positif 0 Vote négatif

O

OLYMP

XLDnaute Junior

• 1 Mars 2008

• #7

Re : .xls to .pdf

Super, super, super,
Je suis trop content.
J'étais sur le point d'acheter un logiciel sur le net, tellement que j'ai galérer.
Merci infiniment
Gracias muchos

 

Vote positif 0 Vote négatif

S

sebastien450

XLDnaute Occasionnel

• 2 Mai 2008

• #8

Re : .xls to .pdf

Quelqu'un peut me faire une macro qui enregistre le classeur qui est ouvert en PDF (sous un autre nom bien sur).C'est dans le but de l'envoyer en piece jointe d'un mail.

 

Vote positif 0 Vote négatif

O

OLYMP

XLDnaute Junior

• 2 Mai 2008

• #9

Re : .xls to .pdf

Bonjour Sebastien,

Très intéressé par une telle macro svp.
En espérant vous relire.
Merci d'avance

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 2 Mai 2008

• #10

Re : .xls to .pdf

Salut,ici envoi du classeur complet via CDO, prendre soin de sélectionner pour chaque feuille la zone d'impression

Code:

Sub EnvoiPdfPJ_2007()
Dim CdoMessage As Object
Dim sFichier As String
 
    sFichier = ThisWorkbook.Path & "\" & "MultiPdf.pdf"
    
    Application.ScreenUpdating = False
    
    ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFichier, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

    Set CdoMessage = CreateObject("CDO.Message")
    With CdoMessage
        .Subject = "Exemple"
        .From = "aaaaa@wanadoo.fr"
        .To = "bbbbb@orange.fr"
        .CC = ""
        .BCC = ""
        .TextBody = "Texte dans le corps de message"
        .AddAttachment sFichier
        .Send
    End With
    
    Set CdoMessage = Nothing
    Kill sFichier
    Application.ScreenUpdating = True
End Sub

Pour l'envoi de certaines feuilles uniquement

Code:

    Sheets(Array("Feuil1", "Feuil3")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFichier, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

 

Dernière édition: 2 Mai 2008

Vote positif 0 Vote négatif

S

sebastien450

XLDnaute Occasionnel

• 2 Mai 2008

• #11

Re : .xls to .pdf

Tiens je te donne la solution car ca fait plaisir de l'avoir:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Sebastien\Documents\ENVOIMAIL.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

Maintenant j'aimerais pouvoir faire copier/coller dans Windows Mail. Enfaite j'aimerais envoyer un mail, la boite s'ouvre, mais je ne sais pas mettre de pièces jointes. Donc il me reste a faire copier/coller dans le corp du message mais je n'arrive pas a activer la boite de dialogue du message!!!

 

Vote positif 0 Vote négatif