[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]

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

[kiki29]

Moyennant le téléchargement de ces plugs in http://download.microsoft.com/downlo...sPDFandXPS.exe

[JNP]

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]

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,

Oups,

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

[OLYMP]

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]

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]

Bonjour Sebastien,

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

[kiki29]

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]

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