XL 2013 Problème de macro de 2007 à 2013

[Manporta]

Bonjour,
J'utilisais excel 2007 avec cette macro qui fonctionnait parfaitement.

Sub editernl()

resto = "xxxx"
restopdf = "wwww"

Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
With pdfjob
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutisaveDirectory") = 1
.cOption("AutosaveDirectory") = "\\Restaurant " & resto & "\2016\Menu PDF"
.cOption("AutosaveFilename") = restopdf
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
With pdfjob
.cDefaultPrinter = DefaultPrinter
.cClearCache
.cClose
End With
Set pdfjob = Nothing
ActiveWorkbook.FollowHyperlink Address:=""
End Sub

Depuis ma société est passée à la version 2013 et cette macro (ainsi que d'autres) ne fonctionne plus.
Pourriez vous me donner des infos pour adapter celle ci?

Merci pour votre aide.

 

[Lolote83]

Salut,
A prioris, il s'agit de créer un fichier PDF, si j'ai bien compris.
Voici un code a adapter a tes besoins

Sub EnregistrePDF()
resto = "xxxx"
restopdf = "wwww"
ActiveSheets.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\Restaurant " & resto & "\2016\Menu PDF\" & restopdf, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        From:=1, To:=1, _
        OpenAfterPublish:=False
ActiveWorkbook.FollowHyperlink Address:="http://xxxx.net/home/nl/restaurant/Documents/Forms/AllItems.aspx"
End Sub

En espérant avoir bien saisi ta demande
@+ Lolote83

 

[Manporta]

Salut,
Merci pour cette méthode, malheureusement quand je l'utilise la taille objets sont agrandis.
Le problème de mon code vient de Windows 10 qui n'a pas besoin de pdf Creator.

 

[Lolote83]

Re salut,
Qu'appelles-tu : la taille objets sont agrandis
Y a t-il quelque chose qui ne fonctionne pas ??
Sinon, je ne voit pas d'autre solution, car l'enregistrement en PDF est maintenant inclue dans Office et on peut de fait se passer de PDF créator
@+ Lolote83