pdf wegschrijven op D: schijf

[petitBelge]

Ik heb een probleem met het wegschrijven van een pdf gecreëerd via Excel naar mijn D-schijf.
Via een macro heb ik dit gedaan, maar hij schrijft nu de pdf naar mij C:/documenten.

Kan iemand me helpen met wat ik fout doe?

De rest van de code werkt prima, enkel wordt het niet inde D schijf en aangegeven map geplaatst

hier de code die ik gebruik.

Sub SaveOfferteExtern()
'
' SaveOfferteExtern Macro
'
ChDir "D:\Dropbox\Witje\Offerte\2022\3D"
With Sheets("Bestelbon 3D")
If .Range("J4") <> "" Then
PDFnaam = .Range("J4").Value & " " & .Range("E9").Value
Else
PDFnaam = .Shapes("Tekstvak 18").TextFrame2.TextRange.Text & " " & .Range("E9").Value

End If
End With
PDFnaam = "Offerte " & PDFnaam & " date " & Format(Date, "dd-mm-yyyy") & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFnaam, OpenAfterPublish:=True
Range("P20").Value = Range("P20").Value + 1
Range("P7").Select

Antwoord = MsgBox("Clean Form?", vbYesNo + vbQuestion, "Clean Form")
If Antwoord = vbNo Then Exit Sub
If Antwoord = vbYes Then ClearForm

ActiveSheet.Protect


End Sub

Alvast bedankt voor eventuele hulp.

 

[edmoor]

Vergeet die ChDir. Nooit meer gebruiken.

Sub SaveOfferteExtern()
    With Sheets("Bestelbon 3D")
        If .Range("J4") <> "" Then
            PDFnaam = .Range("J4").Value & " " & .Range("E9").Value
        Else
            PDFnaam = .Shapes("Tekstvak 18").TextFrame2.TextRange.Text & " " & .Range("E9").Value
        End If
    End With
    
    PDFnaam = "D:\Dropbox\Witje\Offerte\2022\3D\Offerte " & PDFnaam & " date " & Format(Date, "dd-mm-yyyy") & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFnaam, OpenAfterPublish:=True
    
    Range("P20").Value = Range("P20").Value + 1
    Range("P7").Select
    
    If MsgBox("Clean Form?", vbYesNo + vbQuestion, "Clean Form") = vbYes Then clearform
    ActiveSheet.Protect
End Sub

 

[petitBelge]

Vergeet die ChDir. Nooit meer gebruiken.

Sub SaveOfferteExtern()
    With Sheets("Bestelbon 3D")
        If .Range("J4") <> "" Then
            PDFnaam = .Range("J4").Value & " " & .Range("E9").Value
        Else
            PDFnaam = .Shapes("Tekstvak 18").TextFrame2.TextRange.Text & " " & .Range("E9").Value
        End If
    End With
    
    PDFnaam = "D:\Dropbox\Witje\Offerte\2022\3D\Offerte " & PDFnaam & " date " & Format(Date, "dd-mm-yyyy") & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFnaam, OpenAfterPublish:=True
    
    Range("P20").Value = Range("P20").Value + 1
    Range("P7").Select
    
    If MsgBox("Clean Form?", vbYesNo + vbQuestion, "Clean Form") = vbYes Then clearform
    ActiveSheet.Protect
End Sub

Beste edmoor
Het werkt perfect. Ik hou me aan je goede raad en zal ChDir nooit meer gebruiken.

Heel veel dank voor de goede en snelle hulp.

 

[snb]

Niet citeren svp !!
Vermijd overbodige variabelen.
Geef een macro een naam die niet kan interfereren met VBA/Excel elementen.

Sub M_snb()
  With Sheets("Bestelbon 3D")
    c00 = .Range("J4").Value & " " & .Range("E9").Value
    If .Range("J4") = "" Then c00 = .TextBoxes("Tekstvak 18").Text & " " & .Range("E9").Value
  End With
    
  ActiveSheet.ExportAsFixedFormat 0, "D:\Dropbox\Witje\Offerte\2022\3D\Offerte " & c00 & Format(Date, " \da\te dd-mm-yyyy.p\df")
  Range("P20") = Range("P20") + 1
    
  If MsgBox("Clean Form?", 36, "Clean Form") = 6 Then clearform
  ActiveSheet.Protect
End Sub