Ik vroeg mij af of het mogelijk is om aan de hand van een macro een werkblad als pdf te exporteren naar een map met een bepaalde string erin?
Ik heb bijvoorbeeld het dossiernummer in het werkblad staan; dat is: 0001193
Ik wil dan automatisch laten exporteren naar pdf in de map w:\0001193 DOSSIERNAAM\berekeningen\bestandsnaam.pdf
Deze map bestaat al en dient niet aangemaakt te worden.

Aan de hand van
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "W:\PROJECT\0001193 "****"\BEREKENINGEN\" bestandsnaam ".pdf"
Of zoiets??
 

Alvast bedankt!

ja ik probeerde het, maar lukt niet,
het is nu niet dat ik er veel van ken hoor...

dit is mijn code:

Sub PDF()
'
' PDF Macro
'

'
Dim naam As String
Dim naam2 As String
Dim naam3 As String


 
naam = ActiveSheet.Range("M6").Value '
naam2 = ActiveSheet.Range("M7").Value '
naam3 = ActiveSheet.Range("O7").Value '

If Dir("W:\PROJECT\0001193" * "\BEREKENINGEN\" & naam & "-" & naam2 & "_" & naam3 & ".pdf") <> "" Then
   MsgBox "Het bestand: " & naam & "-" & naam2 & "_" & naam3 & ".pdf bestaat reeds!"   '
       Exit Sub
     Else
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "W:\PROJECT\0001193" * "\BEREKENINGEN\" & naam & "-" & naam2 & "_" & naam3 & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
End If
End Sub



Waarbij naam en naam2 en naam3, respectievelijk dossiernummer, subnummer en index is... Formaat van bestandsnaam ziet er alsvolgt uit: 0001193-0020_A.pdf
Ik kan ergens wel een " of een spatie of dergelijk te veel of te weinig hebben???

Vooraleerst bedankt voor uw aandacht!

Fout komt op bij regel:

If Dir("W:\PROJECT\&naam& " * "\" & naam & "-" & naam2 & "_" & naam3 & ".pdf") <> "" Then

Fout 13 tijdens uitvoering :
Typen komen niet met elkaar overeen

De waardes van naam, naam2 en naam3 zijn respectievelijk bvb 0001193, 0020 en A (dus geen 'verboden' tekens)

Deze code werkt wel voor welbepaalde opgegeven map:

Sub PDF()
'
' PDF Macro
'

'
Dim naam As String
Dim naam2 As String
Dim naam3 As String


 
naam = ActiveSheet.Range("M6").Value '
naam2 = ActiveSheet.Range("M7").Value '
naam3 = ActiveSheet.Range("O7").Value '

If Dir("W:\PROJECT\0001193 GANTOIS-MAKEN SCHOEPEN\BEREKENINGEN\" & naam & "-" & naam2 & "_" & naam3 & ".pdf") <> "" Then
   MsgBox "Het bestand: " & naam & "-" & naam2 & "_" & naam3 & ".pdf bestaat reeds!"   '
       Exit Sub
     Else
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "W:\PROJECT\0001193 GANTOIS-MAKEN SCHOEPEN\BEREKENINGEN\" & naam & "-" & naam2 & "_" & naam3 & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
End If
End Sub

Maar aangezien niet alles in deze map dient te komen ... 

Nee, ook niet
Dan krijg ik op de punt voor pdf een foutmelding

Compileerfout
Verwacht: lijstscheidingsteken of )

Ook een syntaxisfout

Hallo,

Mijn eerste antwoord is er tijdens mijn middagpauze gekomen, dus in de rapte gereageerd op de eerste fout die ik zag staan...

Een * is een nuttig teken in een dir-commando  maar NIET in jouw geval, want je zoekt één specifiek bestand.
En om een bestand op te slaan is een * helemaal uit den boze !

Dus bv. (kan ook op jouw manier maar dit is misschien leesbaarder) :

bestand = naam  & "-" & naam2 & "_" & naam3 & ".pdf"
locatie="W:\PROJECT\" & naam & "\BEREKENINGEN\"
if len(dir(locatie & bestand)) > 0 then
   msgbox "bestand " & bestand & " bestaat"
   exit sub
else
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= locatie & bestand, enz.
endif


Hallo,

Je had al aangegeven dat je bestanden in diverse maps moesten opgeslagen worden.
Tja, als je dat wil bereiken zal Excel toch eerst moeten weten in welke. En vermits je niet elke keer je macro wil aanpassen wordt dat een variabel gegeven. Uit je eerste post kon worden afgeleid dat je die waarde op je werkblad had staan.
Dan zou er geen probleem mogen zijn, want je kan daar echt alle kanten mee uit.
Als het niet wil lukken, zet hier dan nog eens duidelijk de bedoeling neer.

't Is maar wat je een probleem noemt... mogelijkheden te over namelijk 
 
Hier alvast eentje (te implementeren in code uit mijn vorige post) :
select case ActiveSheet.Range("....").Value (cel waar bv. 11111 staat)
   case "11111" : submap="11111 ABC DFG-G"
   case "22222" : submap="22222 DEF RE-GJ124 9M+"
   enz.....
   case else
end select
if submap="" then
   msgbox "Geen geldige submap"
   exit sub
else
   locatie ="W:\PROJECTEN\" & submap & "\BEREKENINGEN\"
endif

 
 
 

Tja, het is logisch dat je met een jokerteken nóóit ergens een bestand kan plaatsen. Want HOE zou Windows moeten weten waar het bestand geplaatst moet worden?