Convert To PDF

[C4rtoons]

Bonjour a tous !!

je cherche a convertir une partie de ma feuille1 range(A1:G20) en PDF quand je clic sur un bouton...

J'ai commence ca comme code, mais ca bloque!! arghhh...

Const ThePath As String = "C:\XLD-PDF\"
Const TheFile As String = "TheTestingFile.PDF"
Sub SaveAsPDF()
CreePDFOnly True
End Sub

Sub CreePDFOnly(Optional PromptForPDFName As Boolean)
If SaveAsPDF_Clic() And Not PromptForPDFName Then
SendKeys "~"
ConvertToPDFA
ElseIf SaveAsPDF_Clic() And PromptForPDFName Then
SendKeys ThePath & TheFile + "~"
ConvertToPDFA
End If
End Sub

MErci a vous bon weekend!!

 

[MJ13]

Re : Convert To PDF

Bonjour C4rtoons


A la place de

SendKeys ThePath & TheFile + "~"

si tu écris:

SendKeys ThePath & "\" & TheFile & "~"

Mais bon , pas sur que cela fonctionne, sendkeys est en général assez spécial pour trouver la bonne syntaxe.

Sinon, Job est notre spécialiste de la question .

 

[Staple1600]

Re : Convert To PDF

Bonjour


De mémoire, il me semble qu'il y a complément de Microsoft pour enregistrer en PDF directement à partir d'Excel 2007

Ouf ma mémoire ets encore fonctionnelle
Voici ce dont je me souvenais:
Ce lien n'existe plus

 

[C4rtoons]

Re : Convert To PDF

Merci beaucoup, je vais jeter un coup d'oeil et reveint vers vous

 

[kiki29]

Re : Convert To PDF

Salut,pour 2007 la mise à jour en SP2 inclus le support du format PDF
qui devrait te faire aboutir à qqch comme

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

 

[C4rtoons]

Re : Convert To PDF

Oui en effet, par contre je n'arrive pas a changer le nom comme je voudrais :s

Sub SaveasPDF()
    firm = [D3]
    Nom = [D4]
    Objet = [D10] & " " & [D11]
    Milease = [R10] & "." & [R11]
    Mois = Month(Now)
    An = Year(Now)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Desktop\" & An & "." & Mois & " - " & firm & " " & Nom & " - " & Objet & " - " & Milease & ".pdf", Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

 

[Staple1600]

Re : Convert To PDF

Bonsoir

Tu peux simplifier An et Mois ainsi

AnMois=Format(Date, "YYYY.m")

Pour test

Sub a()
Msgbox Format(Date, "YYYY.m")
End sub

 

[C4rtoons]

Re : Convert To PDF

A oui en effet!! Du coup je fais la modif sur toutes les macros qui comprennent cette ligne! Merci.

Quelqu'un pour le reste?

 

[Staple1600]

Re : Convert To PDF

Bonsoir


Et c'est quoi le reste ?

Quel est le problème exactement ?

Qu'est-ce que tu ne peux pas changer dans le nom ?

 

[C4rtoons]

Re : Convert To PDF

Tout fonctionne! Merci à tous pour votre aide