Printen vanuit excel naar pdf geeft foutmelding

[Herby1970]

Dag allemaal,

Ik heb tot voor kort tot volle tevredenheid gebruik gemaakt van bijgaande maco. Nu geeft deze een foutmelding en ik snap niet waar het probleem zich voordoet.
Iemand een suggestie.

 

[edmoor]

Denk je niet dat het vermelden van de betreffende foutmelding handig zou zijn?

 

[Herby1970]

Dag Edmoor

Ik heb de foutmelding als plaatje toegevoegd.

Als ik de maco uitvoer krijg ik een melding Fout 1004 tijdens uitvoering: Het documentis niet opgeslagen. Mogelijk is het document nog geopend of is een fout opgetreden bij het opslaan van het document.

 

[edmoor]

In dat plaatje staat geen foutmelding. Een gele regel wil alleen zeggen dat het daar mis ging.
Controleer de toegang tot de betreffende mappenstructuiur.

 

[Herby1970]

In dat plaatje staat geen foutmelding. Een gele regel wil alleen zeggen dat het daar mis ging.
Controleer de toegang tot de betreffende mappenstructuiur.

De betreffende structuur G:\..... is toegankelijk. Hoe kan ik een foutmelding genereren zodat ik deze kan plaatsen

 

[edmoor]

Dat heb je al gedaan in #3
Fout 1004 wil zeggen dat een bepaald object niet toegankelijk is.
Welke versie van Office gebruik je?

 

[Herby1970]

Dat heb je al gedaan in #3
Fout 1004 wil zeggen dat een bepaald object niet toegankelijk is.
Welke versie van Office gebruik je?

2010

 

[edmoor]

Geen idee zo.
Plaats je document eens, of een relevant voorbeeld er van.

Gebruik tevens niet de quote knop maar de "+ Reageer op bericht" knop.

 

[Herby1970]

Bijgaand het ecelbestand met de macro.

In de bijlage het excelbestand. De macro is vergelijkbaar met de initiele vraag en geeft dezelfde foutmelding.Bekijk bijlage Factuur 2018- tbv excelfout.xlsm

 

[edmoor]

Het werkt bij mij zonder probleem. Ik zie dus geen oorzaak waarom het bij jou fout gaat.

Voor de leesbaarheid echter, zou ik er dit van maken:

Sub Printen()
    Pad = "G:\Mijn Drive\GH Advies\0. Basis GH Advies\Facturatie 2018\"
    ActiveSheet.ExportAsFixedFormat _
       Type:=xlTypePDF, _
       Filename:=Pad & [P6] & [B17] & " " & [A9] & ".pdf", _
       OpenAfterPublish:=True
    
    [Q4].Value = [Q4].Value + 1
End Sub

 

[Herby1970]

Dan ga ik nog eens stoeien met het pad. Ik weet het anders ook niet. Dank voor je hulp.

 

[edmoor]

Ik heb 'm nog wat aangepast om eenvoudig dat pad te controleren:

Sub Printen()
    pad = "G:\Mijn Drive\GH Advies\0. Basis GH Advies\Facturatie 2018\"
    
    If Dir(pad, vbDirectory) = "" Then
        MsgBox "Onjuist pad", vbCritical
    Else
        ActiveSheet.ExportAsFixedFormat _
           Type:=xlTypePDF, _
           Filename:=pad & [P6] & [B17] & " " & [A9] & ".pdf", _
           OpenAfterPublish:=True
        
        [Q4].Value = [Q4].Value + 1
    End If
End Sub

 

[Herby1970]

pad vanaf derde niveau geeft foutmelding

Ik weet waar de foutmelding vandaan komt.
Als ik een doel kies met 2 nivo's diep, dan gaat het goed, zoals hieronder.
G:\Mijn Drive\GH Advies\

Kies ik een directory dieper dan gaat het fout
G:\Mijn Drive\GH Advies\Sjablonen\

Heeft tijden gewerkt, maar ergens zal een update oid me dwars zitten vermoed ik. De praktische oplossing is voor nu een doelmap op een hoger niveau.

Als iemand weet hoe je dit weer werkbaar krijgt, hou ik me aanbevolen.

 

[edmoor]

Dat zou geen enkel probleem moeten zijn.
En heb je dat al getest met wat ik in #12 liet zien?

 

[Herby1970]

Test #12

Ja, dat heb ik. Hij geeft de foutmelding niet, maar wel de medling dat hij het bestand niet kan opslaan. Ik denk dat het te maken heeft met Google drive (waar ik de bestanden opsla). Als ik het lokaal doe, dan gaat het prima.