melding: "Microsoft Add-in is not installed"

[Andre175]

goedenavond

Om 1 of andere reden lukt het niet meer om een pdf te maken en deze als bijlage per mail te versturen
Terwijl het altijd heeft gewerkt.

Ik vermoed dat het komt door een update van M.Office.

Ik krijg nu de tekst: "Not possible to create the PDF, possible reasons:"
"Microsoft Add-in is not installed"
"You Canceled the GetSaveAsFilename dialog"
"The path to Save the file in arg 2 is not correct"
"You didn't want to overwrite the existing PDF if it exist"


"You Canceled the GetSaveAsFilename dialog" is nvt
"The path to Save the file in arg 2 is not correct" het pad klopt
"You didn't want to overwrite the existing PDF if it exist" dit mag gerust

dus lijkt mij het probleem te liggen bij:
"Microsoft Add-in is not installed"

Zijn er meer mensen die hier problemen mee hebben na de update van M.Office?

de code die ik gebruik komt van R. de Bruin, die zal vast meer gebruikt worden.

   Dim Sh As Worksheet
    Dim FileName As String

        If ActiveWindow.SelectedSheets.Count > 1 Then
            MsgBox "There is more then one sheet selected," & vbNewLine & _
                   "ungroup the sheets and try the macro again"
                   
        Else
            'Call the function with the correct arguments
            'For a fixed range use this line
            FileName = RDB_Create_PDF(Source:=Sheets("faktuur_Outdoor").Range("A1:K63"), _
                                      FixedFilePathName:=Sheets("Instellingen").Range("C3").value & _
                                      TbFaktNrOut.value & " " & _
                                      Sheets("Faktuur_Outdoor").Range("M1").value & " " & _
                                      Sheets("Faktuur_Outdoor").Range("M2").value & " " & _
                                      Sheets("Faktuur_Outdoor").Range("M3").value & " " & _
                                      TbDebiteurnrFakOut.value & " " & _
                                      ".pdf", _
                                      OverwriteIfFileExist:=True, _
                                      OpenPDFAfterPublish:=True)
    
            'For the selection use Selection in the Source argument
            'FileName = RDB_Create_PDF(Source:=Selection)
    
            'For a fixed file name use this in the FixedFilePathName argument
            'FixedFilePathName:="C:\Users\Ron\Test\YourPdfFile.pdf"
            
            If FileName <> "" Then
                RDB_Mail_PDF_Outlook FileNamePDF:=FileName, _
                                     StrTo:=TbMailFakOut.value, _
                                     StrCC:="", _
                                     StrBCC:="", _
                                     StrSubject:="Faktuur " & TbFaktNrOut.value, _
                                     Signature:=True, _
                                     Send:=False, _
                                     StrBody:=""
            Else
                MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _
                       "Microsoft Add-in is not installed" & vbNewLine & _
                       "You Canceled the GetSaveAsFilename dialog" & vbNewLine & _
                       "The path to Save the file in arg 2 is not correct" & vbNewLine & _
                       "You didn't want to overwrite the existing PDF if it exist"
            End If
        End If

 

[edmoor]

Welke Office versie gebruik je?

 

[manamana]

Hier algemene problemen https://support.microsoft.com/nl-nl/search?query=Microsoft Add-in PDF is not installed

 

[Andre175]

goedemorgen

office 365, abonnement

 

[edmoor]

Goedemorgen Andre,

Dan heb je die addin niet nodig, die is nog voor Office 2007.
Als je je document plaatst is er hier vast wel iemand die het voor je wil ombouwen.

 

[Andre175]

mmmm...

kan ik dus meerdere bestanden gaan aanpassen.
is er een oplossing zodat het inzetbaar blijft voor mij, en voor anderen die met bijvoorbeeld MS 2013 werken?

 

[edmoor]

Ik zou met de tijd meegaan en die documenten aanpassen.
Het resultaat zal een veel kortere en meer leesbare code zijn met minder functies.

 

[Andre175]

Daar heb je ook wel gelijk aan, het moet echter wel zo zijn dat anderen het bestand ook kunnen blijven gebruiken.
Ik heb een aantal bestanden gemaakt voor vrijwilligerswerk.....tja, die heb ik al moeten voorzien van ms 2013... laat staan dat ...

als de code zo aangepast kan worden dat het bruikbaar blijft voor alle systemen, dan is dat top.
Ik zal een document maken zonder "gevoelige" inhoud.

wordt vervolgd....

 

[edmoor]

Het zou zo gemaakt kunnen worden dat er op Office versie wordt gecontroleerd.
Voor Office 2007 kan dan de bestaande code intact blijven en een stukje nieuwe code voor Office 2010 en hoger.
Als het om vrijwilligerswerk gaat wil ik je wel assisteren bij de verschillende documenten.

 

[Andre175]

Zou top zijn.
ik weet dat er nog vrijwilligers zijn die met MS 2007 werken.

Ik ga nu eerst ff mijn eigen fakturen handmatig maken, die moeten de deur uit.
daarna het bestand om hier te plaatsen.

 

[Andre175]

Ik heb iets gevonden op de site van R.de Bruin zelf....

https://www.rondebruin.nl/win/s5/pdf.htm




wordt vervolgd.....


na wat te vergelijken in de oude en nieuwe versie van R. de Bruin, bleek dat er een klein stukje code weg gelaten wordt in de nieuwe.

Function RDB_Create_PDF(Source As Object, FixedFilePathName As String, _
                        OverwriteIfFileExist As Boolean, OpenPDFAfterPublish As Boolean) As String
    Dim FileFormatstr As String
    Dim Fname As Variant

[COLOR="#FF0000"]    'Test If the Microsoft Add-in is installed
'    If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _
'         & Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then[/COLOR]

        If FixedFilePathName = "" Then
            'Open the GetSaveAsFilename dialog to enter a file name for the pdf
            FileFormatstr = "PDF Files (*.pdf), *.pdf"
            Fname = Application.GetSaveAsFilename("", filefilter:=FileFormatstr, _
                                                  Title:="Create PDF")

            'If you cancel this dialog Exit the function
            If Fname = False Then Exit Function
        Else
            Fname = FixedFilePathName
[COLOR="#FF0000"]'        End If[/COLOR]

        'If OverwriteIfFileExist = False we test if the PDF
        'already exist in the folder and Exit the function if that is True
        If OverwriteIfFileExist = False Then
            If Dir(Fname) <> "" Then Exit Function
        End If

        'Now the file name is correct we Publish to PDF
        On Error Resume Next
        Source.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                FileName:=Fname, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=OpenPDFAfterPublish
        On Error GoTo 0

        'If Publish is Ok the function will return the file name
        If Dir(Fname) <> "" Then RDB_Create_PDF = Fname
    End If
End Function

De rode tekst is in de nieuwe code verdwenen.
Tot nu toe werkt bij mij alles weer :thumb:.

heb het niet kunnen testen met oudere versies van MS Office, maar denk dat het geen probleem zal zijn.
het is immers alleen maar een controle of de ADD-IN aanwezig is.


André

 

[edmoor]

Ok dan.
Als je toch assistentie nodig hebt dan weet je waar je moet zijn

 

[Andre175]

uiteraard Edmoor.


Heb sinds januari veel gepuzzeld, geknoeid en gestoeid met codes.
Zonder de helpers hier was het me (denk ik) niet gelukt.

dank aan allen die het toekomt.