Kill file code not deleting the file in question

[ipbr21054]

Hi,
My code has saved a pdf file in a specified folder.
The code then activates another worksheet in the same workbook.
Some operations are now done.
A userform now opens & i require when i click the OK button to kill / delete the file that was saved as mentioned above.

This is the userform code.
When i click OK on the userform i check in the folder & the file in questioned hasnt been killed / deleted.

Do you see an issue with this code please

Private Sub CloseForm_Click()
Dim MyFile As String
Unload ValueInInvoiceCell

 MyFile = "C:\Users\Ian\Desktop\REMOTES ETC\DR\DR SCREEN SHOT PDF\" & Range("G13").Value & ".pdf"
    If Dir(MyFile) <> "" Then Kill MyFile 'SAVED INVOICE HAS NOW BEEN DELETED

End Sub

 

[Artik]

Maybe cell G13 stores the file name with an extension.
Also check if the pdf file is closed.

Artik

 

[ipbr21054]

OK
So testing this i see an issue.

The worksheet that has the value in cell G13 i put a command button on that page & when i clicked it the file was deleted.

So i go to the worksheet that the userform is on & do the same BUT it doesnt get deleted.

Does this tell you anything ?

 

[Artik]

Notation:

Range("G13").Value

refers to cell G13 in the ACTIVE sheet. If the cell is in another sheet when the form is displayed, add the full reference:

Worksheets("Sheet Name").Range("G13").Value

Artik

 

[ipbr21054]

Could you put the code here i need to use as i understand what youve advised but lost with doing it
Thanks

 

[ipbr21054]

Got it many thanks

Private Sub CloseForm_Click()
Dim MyFile As String

 MyFile = "C:\Users\Ian\Desktop\REMOTES ETC\DR\DR COPY INVOICES\" & Worksheets("INV").Range("G13").Value & ".pdf"
If Dir(MyFile) <> "" Then Kill MyFile 'SAVED INVOICE HAS NOW BEEN DELETED
Unload ValueInInvoiceCell
End Sub

 

[ipbr21054]

Hi,
Please advise on this.
I used the same code on a command button on the Active sheet BUT the file was not deleted even though i see the Msgbox Generatedpdf deleted.
I also tried the original code & Range("G13").Value & ".pdf" & it did the same.

I have check file name & path & both ok

Else
     Range("L4").Value = Range("L4").Value + 1
     Range("G27:L36").ClearContents
     Range("G46:G50").ClearContents
     Range("L18").ClearContents
     Range("G13").ClearContents
     Range("G13").Select
     ActiveWorkbook.Save
    
     MyFile = "C:\Users\Ian\Desktop\REMOTES ETC\DR\DR COPY INVOICES\" & Worksheets("INV").Range("G13").Value & ".pdf"
    If Dir(MyFile) <> "" Then Kill MyFile 'GENERATED PDF HAS NOW BEEN DELETED
    MsgBox "Generated pdf deleted"
    End If
    End With
    End With
   


End Sub

 

[ipbr21054]

I moved the code up for deleting pdf & now working.
The code above was clearing field so the kill code then couldnt see value in cell G13