• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

exel opslaan als PDF Wat gaat hier fout.

Status
Niet open voor verdere reacties.
Ben

Ben

Gebruiker
Lid geworden
16 aug 2013
Berichten
147
Heb op mijn laptop 64 bit een office 2010 prof 32 bit geïnstalleerd,
op mijn laptop werkt deze code echter, als ik deze code start op de pc van mijn broer werkt de code niet.
De Pc van mijn broer is een 32 bit en is geïnstalleerd een office 2010 home pakket.
als de code wordt gestart dan komt er een foutmelding en is de code gestopt op regel

Code: 
.ExportAsFixedFormat _
         Type:=xlTypePDF, _
         Filename:=FilePath & " " & .Range("D12")

Wat gaat hier mis,


Hieronder de volledige code


Code: 
Sub OpslaanPDF()
If MsgBox("Wil je dit formulier opslaan als PDF bestand?" & vbNewLine & "Alles goed ingevuld!", _
               vbQuestion + vbYesNo + vbDefaultButton2, _
               "Formulier opslaan als PDF bestand") = vbNo Then
               
        Exit Sub
    End If
    
    With Sheets("Factuur")
     FilePath = "H:\ben\factuur pdf\" & .Range("K13")
      If Dir(FilePath & "*") <> "" Then
        MsgBox "Dit factuur nummer " & .Range("K13") & " bestaat al" & vbNewLine & "Wijzig factuur nr.", vbExclamation, "Wijzig factuur nummer"
       Exit Sub
      End If
      
        .ExportAsFixedFormat _
         Type:=xlTypePDF, _
         Filename:=FilePath & " " & .Range("D12")
        Application.Goto [D12]
      MsgBox "Factuur is opgeslagen", vbInformation, "Factuur opslaan"
    End With
End Sub

Met een vriendelike groet: Ben:confused:
 
Heeft je broer ook een h:\ben op zijn PC? Of heeft hij er geen toegang toe?
 
Laatst bewerkt:
Dag SjonR,

Heb het bestand op een stick en deze zou dus altijd op iedere pc of laptop starten.
de mappen en bestanden worden naar deze stick gezet.

groetjes Ben:eek:
 
Dat zegt niks, die stick kan bij je broer wel een andere drive letter hebben.
Daarnaast, als je zegt dat er een foutmelding komt, vertel deze er dan ook bij.
 
Als aanvulling op #2
Herschrijf de code eens naar zoiets

Code: 
Sub OpslaanPDF()
  c00 = "H:\ben\factuur pdf\"
  With Sheets("Factuur")
    If Dir(c00 & .Range("K13") & "*") <> "" Then
      MsgBox "Dit factuurnummer " & .Range("K13") & " bestaat al" & vbNewLine & "Wijzig factuur nr.", vbExclamation, "Wijzig factuurnummer"
     Else
      ExportAsFixedFormat 0, c00 & .Range("K13") & " " & .Range("D12")
    End If
  End With
End Sub

In c00 zet je dan het pad waar het bestand moet worden opgeslagen. De naam van jouw variabele 'FilePath' impliceert het pad maar je zet er de bestandsnaam in en dat maakt het onleesbaar.
 
Dag SjonR,
Ps. ik kan het excel bestand openen en alles doen invullen printen en schoonmaken maar als ik wil opslaan dan gaat het fout.

Groetjes Ben
 
Als je geen antwoord op de vragen geeft heeft het weinig nut om hier door te gaan.
 
Da's nog steeds geen antwoord op de vragen.
Deze dus:
Welke foutmelding verschijnt er?
En heeft je broer het pad H:\ben\factuur pdf\ wel?
 
Dag Edmoor

Dankje wel voor je tip ik wacht nog even dan zoek ik verder, heb alles op een ander stick gezet en probeer dit nogmaals uit.

kan ook aan de stick liggen.
groetjes Ben
 
Van vragen is het de bedoeling er een antwoord op te geven.
Maar succes uiteraard.
 
Zoals ik het lees:

Hij kan er alles mee behalve opslaan als Pdf.
De Pdf wordt waarschijnlijk opgeslagen op de USB-stick.
Op de Pc van Ben is dit H, maar op de Pc van Ben's broer kan dit best G zijn.
 
Tja, we stellen toch simpele vragen...
 
Het reageren daarop blijkt voor sommigen nog al eens een probleem.
Als het bestand op die USB staat lijkt mij dat je kan volstaan met Thisworkbook.path.
 
dag allemaal:
ik zal jullie tips eens proberen, kan het nu niet meer doen de zaak is nu gesloten.
zal ook kijken welke naam de stick heeft als deze is in geplugd zoals HVS adviseert.

groetjes en ik meld deze als opgelost. :D:thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan