Fout in VBA code?

[martindeboer1988]

Goedemorgen,

Ik krijg wanneer ik onderstaande VBA code probeer continu de melding "het bestand kon helaas niet opgeslagen worden vanwege een fout".
Waar ga ik de fout in?

Private Sub PDF_uitgifte_headset_Click()
Dim FacName As String
With Sheets("PDF_uitgifte_HS").PageSetup
        
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .PaperSize = xlPaperA4
        .Zoom = 110
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        End With

    'De macro haalt met deze opdracht gegevens op in het document, om deze later als naam voor het PDF-bestand te gebruiken.
    FacName = ActiveSheet.Range("Q6").Value & ".pdf"
    Application.ScreenUpdating = False
    'De folder waarin het bestand moet worden opgeslagen
    Map = "T:\Facilities-NL\Leeuwarden algemeen\*********\***\Filing\Uitgifte headsets\"
    If Dir(Map, vbDirectory) = "" Then
        MsgBox "De folder " & Map & " bestaat niet"
        Exit Sub
    End If
       
    'Een controle om geen bestaand PDF-bestand te overschrijven.
    If Dir(Map & FacName) <> "" Then
       MsgBox "Het bestand: " & FacName & " bestaat reeds"
    Else
        On Local Error GoTo Fout
        Sheets("PDF_uitgifte_HS").Range("A1:H37").ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Map & FacName, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
        MsgBox "Het bestand: " & FacName & " is opgeslagen in de map \***\*****\Uitgifte headsets"
        Exit Sub
    End If
Fout:
    MsgBox "Het bestand: " & FacName & " kon helaas niet opgeslagen worden vanwege een fout."
End Sub

 

[Cobbe]

En zo?

Private Sub PDF_uitgifte_headset_Click()
Dim FacName As String
With Sheets("PDF_uitgifte_HS").PageSetup
        
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .PaperSize = xlPaperA4
        .Zoom = 110
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        End With

    'De macro haalt met deze opdracht gegevens op in het document, om deze later als naam voor het PDF-bestand te gebruiken.
    FacName = ActiveSheet.Range("Q6").Value & ".pdf"
    Application.ScreenUpdating = False
    'De folder waarin het bestand moet worden opgeslagen
    Map = "T:\Facilities-NL\Leeuwarden algemeen\*********\***\Filing\Uitgifte headsets\"
    If Dir(Map, vbDirectory) = "" Then
        MsgBox "De folder " & Map & " bestaat niet"
        Exit Sub
    End If
       
    'Een controle om geen bestaand PDF-bestand te overschrijven.
    If Not Dir(Map & FacName) = "" Then
          On Local Error GoTo Fout
        Sheets("PDF_uitgifte_HS").Range("A1:H37").ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Map & FacName, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
        MsgBox "Het bestand: " & FacName & " is opgeslagen in de map \***\*****\Uitgifte headsets"
        Exit Sub
     End If
        MsgBox "Het bestand: " & FacName & " bestaat reeds"
       Exit Sub
Fout:
    MsgBox "Het bestand: " & FacName & " kon helaas niet opgeslagen worden vanwege een fout."
End Sub

 

[martindeboer1988]

Cobbe,

Als ik die code erin gezet geeft Excel de melding dat het bestand al bestaat terwijl er geen bestand is.

 

[Cobbe]

Ik heb de code iets aangepast in vorige post.
Anders moet je eens via F8 de code doorlopen en zien waar het misloopt.

 

[martindeboer1988]

Ziet er niet heel best voor me uit als ik dat doe :$

 

[Cobbe]

De F8 toets zit links van de F9.

 

[martindeboer1988]

Dat weet ik heb het met de F8 toets doorlopen en markeringen bijgevoegd met de F9 toets puur voor het beeld.
Dit om te laten zien waar F8 de markeringen gaf.

 

[Cobbe]

Dat van die F9 versta ik niet.
Bij mij vliegt hij eruit op de regel 'MsgBox "De folder " & Map & " bestaat niet" , wat logisch is.
Wijzig deze regel eens:
If Not Dir(Map & FacName) <> "" Then

 

[edmoor]

Wijzig die MsgBox regel eens in dit:

Msgbox Err.Number, Err.Description

Dan zie je tenminste de fout die VBA zelf geeft.

 

[martindeboer1988]

@Cobbe, Helaas blijft die daar fouten geven.
@edmoor, wanneer ik de Msgbox regel wijzig geeft die een "type mismatch" error.

 

[edmoor]

Ok. En wat staat er dan letterlijk in cel Q6?

 

[martindeboer1988]

In cel Q6 staat

=Data!B33

en in cel B33 staat

=CONCATENATE(Portal!$E$9;"_";Portal!$E$13;"_";"LWD";"_";"UNSIGNED")

 

[edmoor]

De bedoeling is om te achterhalen wat er exact als bestandsnaam wordt gebruikt.
De uiteindelijke waarde in FacName zou ik dus willen zien.

 

[martindeboer1988]

de bestandsnaam is variabel en bestaat uit een samengestelde waarde uit verschillende cellen.
Ik begrijp niet helemaal wat voor informatie je nu nodig hebt?

 

[edmoor]

Zie #13.

 

[martindeboer1988]

12345_80aq14_LWD_UNSIGNED

 

[Cobbe]

Deze loopt zonder fout bij mij:

Private Sub PDF_uitgifte_headset_Click()
Dim FacName As String
With Sheets("PDF_uitgifte_HS").PageSetup
        
      '  .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .PaperSize = xlPaperA4
        .Zoom = 110
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        End With

    'De macro haalt met deze opdracht gegevens op in het document, om deze later als naam voor het PDF-bestand te gebruiken.
    FacName = ActiveSheet.Range("Q6").Value & ".pdf"
    Application.ScreenUpdating = False
    'De folder waarin het bestand moet worden opgeslagen
    Map = "C:\Testmap\"
    'Map = "T:\Facilities-NL\Leeuwarden algemeen\*********\***\Filing\Uitgifte headsets\"
    If Dir(Map, vbDirectory) = "" Then
        MsgBox "De folder " & Map & " bestaat niet"
        Exit Sub
    End If
       
    'Een controle om geen bestaand PDF-bestand te overschrijven.
    If Dir(Map & FacName) <> "" Then
       MsgBox "Het bestand: " & FacName & " bestaat reeds"
    Else
        On Local Error GoTo Fout
        Sheets("PDF_uitgifte_HS").Range("A1:H37").ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Map & FacName, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
        MsgBox "Het bestand: " & FacName & " is opgeslagen in de map \***\*****\Uitgifte headsets"
        Exit Sub
    End If
Fout:
    MsgBox "Het bestand: " & FacName & " kon helaas niet opgeslagen worden vanwege een fout."
End Sub

Heb wel eerst de map Testmap gecreëerd.

 

[martindeboer1988]

code toegevoegd en testrun gedaan krijg een Error (5) invalid procedure call or argument

 

[edmoor]

Ik had verder niet gereageerd omdat de code van Cobbe goed is en dus prima werkt.
Geen idee dus waar je die Error 5 vandaan krijgt.

 

[martindeboer1988]

Bedankt voor jullie hulp allebei ik moet nog maar eens goed alles doorlezen en kijken waar ik fout ben gegaan