meerdere werkmappen exporteren als PDF

[printshop]

Hoi allemaal!

Ik heb een Excelbestand met twee werkmappen. werkmap 1 heet OFFERTE, de ander heet AANLEVERSPECIFICATIES. de werkmap AANLEVERSPECIFICATIES is verborgen, de werkmap OFFERTE is wel zichtbaar. De gebruiker ziet dus een werkmap waarin hij/zij zelf een offerte kan berekenen. Vervolgens drukt hij of zij op een knop en dan zou het mooi zijn als beide werkbladen worden geëxporteerd naar twee verschillende PDF's, en dat deze PDF's ook als bijlage aan een nieuwe email wordt toegevoegd. Het zou fijn zijn als dit allemaal op de achtergrond gebeurt, dus zodanig dat de gebruiker het werkblad AANLEVERSPECIFICATIES niet te zien krijgt in Excel.

Wie kan mij hierbij helpen? Alvast enorm bedankt! :thumb:


Ik heb nu een voorbeeldbestand toegevoegd. Dit is niet het echte bestand omdat ik dat van mijn baas niet mocht uploaden. Maar als ik de code heb die werkt op dit document, dan kan ik volgens mij nog wel aanpassen naar het echte document. Dat lukt me nog net wel

 

[edmoor]

Dat komt vast wel in orde als je een voorbeeld van dat document hier plaatst.
Uiteraard ziet die gebruiker dan wel de PDF van het verborgen werkblad.

 

[printshop]

dank je wel voor je reactie!

Bedankt voor je reactie, ik heb een voorbeeldje toegevoegd. Niet het echte bestand, maar zo zou het ook moeten lukken

 

[edmoor]

Zo bijvoorbeeld:

 

[HSV]

Zonder die variabelen en activeren van het blad (activesheet) kan dat ook zo Ed.
In mijn omgeving zie ik ook geen verschil met de screenupdating op false.

Private Sub CommandButton1_Click()
  ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & Name & ".pdf"
    With Sheets("AANLEVERSPECIFICATIES")
        .Visible = True
        .ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & .Name & ".pdf"
        .Visible = False
    End With
    With CreateObject("Outlook.Application").CreateItem(0)
        .to = "iemand@bedrijf.nl"
        .CC = ""
        .BCC = ""
        .Subject = "Dit is het onderwerp"
        .Body = "Bij deze het bestand"
        .Attachments.Add ThisWorkbook.Path & "\AANLEVERSPECIFICATIES.pdf"
        .Attachments.Add ThisWorkbook.Path & "\OFFERTE.pdf"
        .Display ' Or .Send
    End With
    Kill ThisWorkbook.Path & "\AANLEVERSPECIFICATIES.pdf"
    Kill ThisWorkbook.Path & "\OFFERTE.pdf"
End Sub

 

[printshop]

1000x dank!

Fantastisch! Hier kan ik zeker mee verder!

BEDANKT!!:d:d:d:d