Macro loopt vast onder Windows 10

[serpent xx]

Wie kan mij helpen met het volgende.

In verband met de overgang naar Windows 10 loopt mijn macro vast op "Environ$". Ik heb onderstaand een gedeelte van deze macro bijgevoegd. Kan iemand mij aangeven wat ik moet doen om dit op te lossen?
Moet ik deze eviron variabelen nog toevoegen in Windows 10?


TempFilePath = Environ$("temp") & ""

' Now append a date and time stamp
' in your pdf file name. Naming convention
' can be changed based on your requirement.

TempFileName = "werkenlijst per " & Format(Now, "dd-mmm-yy") & ".pdf"

'Complete path of the file where it is saved
FileFullPath = TempFilePath & TempFileName

'Now Export the Activesshet as PDF with the given File Name and path

On Error GoTo err
With ActiveSheet
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=FileFullPath, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With

 

[edmoor]

Wat bedoel je met "loopt vast"?
Krijg je een foutmelding?
Haal in ieder geval dat $ teken er af, al mag dat geen verschil maken.

Gebruik bij het plaatsen van code hier ook codetags.
Nu vallen backslash tekens weg.

 

[loek010]

Volgens mij mis je een backslash in dit stukje

TempFilePath = Environ("temp") & "[COLOR="#FF0000"]\[/COLOR]"

Maar zoals Edmoor aangaf zet de code tussen de code tag # kan ik het niet zeker zeggen of hij ook in jouw code staat?

Je kan het ook zo doen zonder FileFullPath = TempFilePath & TempFileName

Sub Pdfopslaan()
	Dim PdfFile As String
	PdfFile = Environ("temp") & "\" & "werkenlijst per " & Format(Now, "dd-mmm-yy") & ".pdf"
	On Error GoTo err
	With ActiveSheet
		.ExportAsFixedFormat _
		Type:=xlTypePDF, _
		Filename:=PdfFile, _
		Quality:=xlQualityStandard, _
		IncludeDocProperties:=True, _
		IgnorePrintAreas:=False, _
		OpenAfterPublish:=False
	End With 
End Sub

 

[edmoor]

Of:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Environ("temp") & "\werkenlijst per " & Format(Now, "dd-mmm-yy") & ".pdf"

 

[loek010]

@Edmoor

Inderdaad nog korter en op 1 regel

 

[serpent xx]

Heren, dank voor jullie medewerking maar hier kom ik vooralsnog even niet verder mee.

De foutmelding die ik krijg is: Compileerfout: Kan het project of de bibliotheek niet vinden.

 

[loek010]

Plaats dan de gehele code en geen stukje van de code hier tussen de code tag #
of nog beter het bestand geanonimiseerd hier

 

[edmoor]

Aan de code is dan naar mijn mening niks mis.
Plaats dan inderdaad een document met die code hier en laat weten met welke versie van Office je werkt.

 

[jkpieterse]

Kijk eens in de VBA editor bij Extra, verwijzingen. Staat er 1 bij met "ONTBREEKT"?

 

[serpent xx]

Kijk eens in de VBA editor bij Extra, verwijzingen. Staat er 1 bij met "ONTBREEKT"?

Beste Jan Karel,

er staat idd het volgende: ONTBREEKT: Microsoft Common Controls-2 6.0 (SP6)

Hoe moet ik dit oplossen?

 

[jkpieterse]

Gebruik je toevallig de treeview? https://jkp-ads.com/articles/treeview.asp Zo niet, probeer het eens uit te vinken.

 

[snb]

en betoon je een aanhanger van Van Oldebarnevelt

ActiveSheet.ExportAsFixedFormat 0, Environ("temp") & "\werkenlijst per " & Format(date, "dd-mmm-yy.p\df")