Excel VBA een pdf bestand laten verwijderen

[Cor-Assa]

Beste mensen, misschien heb ik het al eens gevraagd in dit forum maar kan het helaas niet terug vinden.

Als dat zo is excuses.😅

Ik ben op zoek naar een mogelijkheid om in excel 2010 d.m.v. vba een pdf bestand te verwijderen uit een onderliggende map waar mijn excel bestand staat.

Dit zijn verschillende mappen dus is het niet altijd dezelfde map.

 

B.v.d.

Cor Assa

 

P.s.

Nog n fijne jaarwisseling

[emielDS]

Aan de hand van uw uitgebreide vraag en uw voorbeeld bestand moet het zo lukken.

 

als het bestand van waaruit je de pdf wil verwijderen in dezelfde hoofdmap staat.

 

 

pad = ThisWorkbook.Path
    map= pad & naam van de map

bestand =  pad &map & naam van de pdf
    Kill bestand

[Cor-Assa]

9 minuten geleden, emielDS zei:

Aan de hand van uw uitgebreide vraag en uw voorbeeld bestand moet het zo lukken.

 

als het bestand van waaruit je de pdf wil verwijderen in dezelfde hoofdmap staat.

 

 

pad = ThisWorkbook.Path
    map= pad & naam van de map

bestand =  pad &map & naam van de pdf
    Kill bestand

Bedankt emielDS, ga het uitproberen.

Mijn  eigen pogingen mislukten helaas.

 

Gr. Cor

[Cor-Assa]

Helaas emielDS, met jouw oplossing kwam ik er niet uit.

Ben wat verde gaan snuffelen en kwam zelf op deze oplossing.

 

Sub PDF_verwijderen_als_Ok()

        Dim Pad As String
        Dim Faktuurnaam As String
        Pad = ActiveWorkbook.Path + "\Offerte\"
        Faktuurnaam = ActiveSheet.Name + ".pdf"

Dim strFile  As String: strFile = Pad + "Faktuurnaam.pdf"
If Len(Dir$(strFile)) > 0 Then Kill strFile

    Kill Pad + Faktuurnaam
End Sub

Alleen de controle check kom ik niet uit.🤔

 

Gr. Cor - Allemaal een fijne jaarwisseling.🥂

[emielDS]

factuurnaam kan nooit activesheet.name zijn.

plaats dan een voorbeeldbestand vanwaaruit je de pdf wil verwijderen en hoe je aan de naam van dat bestand komt

[Cor-Assa]

Beste emielDS,

 

Voorbeeld bestand wordt een beetje moeilijk, zitten namelijk ook subdirectorys achter die je dan aan moet maken anders loopt het niet.

Verder kan het wel degelijk!

Een tabbald met een specifieke naam wordt als PDF opgeslagen, dat is dan de faktuurnaam.

Zoals ik al zeg, mijn precedure werkt 100%, alleen de controle of een bestand er wel of niet s werkt niet.

[kweezie wabbit]

1 uur terug, Cor-Assa zei:

Dim strFile As String: strFile = Pad + "Faktuurnaam.pdf"

Volgens mij staat hier een fout in.

Er staat "Faktuurnaam.pdf" en dat is een string die letterlijk gezocht zal worden.

Ik denk dat het gewoon Faktuurnaam moet zijn.

Faktuurnaam is namelijk een string variabele die al werd ingevuld met de naam van het pdf bestand dat moet verwijderd worden.

[Cor-Assa]

33 minuten geleden, kweezie wabbit zei:

Volgens mij staat hier een fout in.

Er staat "Faktuurnaam.pdf" en dat is een string die letterlijk gezocht zal worden.

Ik denk dat het gewoon Faktuurnaam moet zijn.

Faktuurnaam is namelijk een string variabele die al werd ingevuld met de naam van het pdf bestand dat moet verwijderd worden.

Bedankt kweezie, ga het uitproberen.

[Cor-Assa]

2 minuten geleden, Cor-Assa zei:

Bedankt kweezie, ga het uitproberen.

 

Wijziging maakt niets uit, effect is hetzelfde, als het bestand al weg is loopt hij daar toch op vast.

[Cor-Assa]

6 minuten geleden, dotchiejack zei:

Cor,

Je denk toch niet dat ik je vergeten ben.😉

In bijlage een zip bestandje, eerst uitpakken.

Het zip bestandje bevat een excelbestand met userform en 2 mapjes met een paar pdfjes.

Je opent de userform, in de eerste listbox worden je onderliggende mappen geladen.

Kies daar de juiste map waaruit je een pdf wilt verwijderen.

In de tweede listbox verschijnen de PDfs die zich in de gekozen map bevinden.

Selecteer het bestand dat je wilt verwijderen.

Het gekozen bestand verschijnt in het rechter scherm,ter controle.

Is het gekozen bestand correct klik op Verwijderen. Klaar,de gekozen PDF is pleite.

 

Kill pdf.zip 527 kB · 0 downloads

 

Ach ja, wat moet ik zeggen?

Ben al zo vaak door jou geholpen, ga m morgen eens uitpluizen.

Krijgen zometeen de kinderen op bezoek voor oud jaar dus lukt vandaag niet meer.

 

Een ieder een fijne jaarwisseling en vooral een veilig en gezond 2021.

Gr. Cor Assa