XL 2013 Problème de macro de 2007 à 2013

Manporta

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
Code:
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
 

Lolote83

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
311 726
Messages
2 081 955
Membres
101 852
dernier inscrit
dthi16088