Clever-Excel-Forum

Hallo Forum,
kann mir einer sagen, wo sich in diesem Makro der Speicherpfad für die PDF befindet?

Ich möchte diesen gerne auf  D:\Google Drive\PDF  umstellen, komme aber alleine nicht weiter....

Danke für die Hilfe

Hans


Private Sub CommandButton4_Click()
Dim pdfName As String
Dim pdfOpenAfterPublish As Boolean
Dim olApp As Object
Dim olOldBody As String
Rem R?ckfragen, ob Datei nach dem Erstellen ge?ffnet werden soll
If MsgBox("Soll die PDF-Datei nach dem Erstellen angezeigt werden?", vbYesNo, "PDF anzeigen?") = vbYes Then pdfOpenAfterPublish = True
Rem Pfad und Name der PDF-Datei
pdfName = ThisWorkbook.Path & "\" & ThisWorkbook.Name & "_" & ActiveSheet.Name & ".pdf"
Rem PDF-Datei erstellen. Funktioniert nur in Excel 2007 oder h?her, nicht in Excel 2003 oder ?lter
ThisWorkbook.Sheets("Rechnung").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
                                   Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
                                   OpenAfterPublish:=IIf(pdfOpenAfterPublish, True, False)
                                  
                                  
Rem Email erstellen
Set olApp = CreateObject("Outlook.Application")
    With olApp.CreateItem(0)
              .GetInspector.Display
              olOldBody = .htmlBody
              .TO = Range("AF90").Value
              Rem.CC = Range("Z2").Value
              Rem.Subject = Range("Z3").Value
              Rem.htmlBody = Range("Z4").Value & "


" & olOldBody
              .Attachments.Add pdfName
    End With
             
Rem Boolean-Variable "pdfOpenAfterPublish" zur?cksetzen
pdfOpenAfterPublish = False
End Sub

Hi

ersetze mal:
pdfName = ThisWorkbook.Path & "\" & ThisWorkbook.Name & "_" & ActiveSheet.Name & ".pdf"

durch
pdfName = "D:\Google Drive\PDF\" & ThisWorkbook.Name & "_" & ActiveSheet.Name & ".pdf"

Erst testen.

Raoul

Hallo Raoul,
klappt Prima - Vielen Dank

Hans

Freut mich, dass ich helfen konnte.

Danke für die Rückmeldung.

Alles Gute.

Raoul