.xls to .pdf

[OLYMP]

Bonjour le forum,

J'établis des fiches de paie pour une Association.
Je les travaille sur Excel, et j'aimerais pouvoir convertir mon fichier excel en pdf.
Y a-t'il une possibilité, ou une macro qui permet de pouvoir le faire sur excel 2007?

Merci d'avance

 

[JNP]

Re : .xls to .pdf

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

 

[kiki29]

Re : .xls to .pdf

Moyennant le téléchargement de ces plugs in

 

[JNP]

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

 

[OLYMP]

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

 

[OLYMP]

Re : .xls to .pdf

RE,

Oups,

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

 

[OLYMP]

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

 

[sebastien450]

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.

 

[OLYMP]

Re : .xls to .pdf

Bonjour Sebastien,

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

 

[kiki29]

Re : .xls to .pdf

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

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

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

 

[sebastien450]

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!!!