Foutmeldeing " Het document is niet opgeslagen"

[Roma]

Beste mensen,
Ik heb een VBA code gemaakt om tabbladen weg te schrijven als PDF met bepaalde voorwaarden
Nu krijg ik elke keer de foutmelding:Het document is niet opgeslagen

Wie kan mij helpen om deze fout op te lossen?
Alvast bedankt.

Private Sub CommandButton25_Click()
        'PDFmaken
       With Sheets("Naam blad")
       Fname = "C:\Test\Jaar\" & Range("E1") & Range("G1") & Range("H1") & ".pdf"
          Range("A1:I203").ExportAsFixedFormat 0, Fname
         [A6:I203].ClearContents
         Next
          With Sheets("Naam blad")
       Fname = "C:\Test\Jaar\" & Range("B4") & Range("G1") & Range("H1") & ".pdf"
          Range("B1:J203").ExportAsFixedFormat 0, Fname
         [C7:J203].ClearContents
  
End Sub

 

[snb]

Wat denk je dat de foutmelding betekent ?

Heb je al eens in een handboek VBA of de hulpbestanden van de VBEditor gekeken bij de methode With .... End With ?

 

[Roma]

beste SNB,
helaas heb ik weinig verstand van vba en deze code heb ik uit verschillende voorbeelden in elkaar geknutseld

 

[OctaFish]

helaas heb ik weinig verstand van vba en deze code heb ik uit verschillende voorbeelden in elkaar geknutseld

Dan hoop ik dat je niet thuis op deze manier met electriciteit in de weer gaat . Maar je maakt nogal elementaire fouten... With moet je altijd afsluiten met End With, en Next gebruik je in een lus. With .. End with is echter geen lus. Je kunt heel simpel zien wat het wél is, en hoe de syntax moet luiden door in het woord With te gaan staan en op F1 te drukken. Daar heb je het forum niet voor nodig

 

[Roma]

Bedankt voor jullie reacties