bartdeboer87
Gebruiker
- Lid geworden
- 13 sep 2006
- Berichten
- 44
Hallo allemaal,
Ik ben bezig met een code om een "koppeling bewerken" automatisch te laten verlopen,
de huidige koppeling moet veranderd worden met een nieuw bestand waar ik het pad getypt heb in een cel
een klein deel gaat met deze code: (vanuit een vorig bestand gehaald)
Pad = ActiveSheet.Range("E23").Value
nu heb ik met behulp van een macro deze code opgenomen
ActiveWorkbook.ChangeLink Name:= _
"I:\Werkorders\2008 ONTBREKENDE UREN\vernieuwde versie\22-2008.xls", NewName _
:="I:\Werkorders\2008 ONTBREKENDE UREN\vernieuwde versie\23-2008.xls", Type _
:=xlExcelLinks
nu heb ik hem zo aangepast maar dit werkt niet,
ActiveWorkbook.ChangeLink Name:= _
"I:\Werkorders\2008 ONTBREKENDE UREN\vernieuwde versie\22-2008.xls", NewName _
:=Pad, Type _
:=xlExcelLinks
Kan iemand mij vertellen wat ik verkeerd doe?
Bvd
Mvg
Bart
Ik ben bezig met een code om een "koppeling bewerken" automatisch te laten verlopen,
de huidige koppeling moet veranderd worden met een nieuw bestand waar ik het pad getypt heb in een cel
een klein deel gaat met deze code: (vanuit een vorig bestand gehaald)
Pad = ActiveSheet.Range("E23").Value
nu heb ik met behulp van een macro deze code opgenomen
ActiveWorkbook.ChangeLink Name:= _
"I:\Werkorders\2008 ONTBREKENDE UREN\vernieuwde versie\22-2008.xls", NewName _
:="I:\Werkorders\2008 ONTBREKENDE UREN\vernieuwde versie\23-2008.xls", Type _
:=xlExcelLinks
nu heb ik hem zo aangepast maar dit werkt niet,
ActiveWorkbook.ChangeLink Name:= _
"I:\Werkorders\2008 ONTBREKENDE UREN\vernieuwde versie\22-2008.xls", NewName _
:=Pad, Type _
:=xlExcelLinks
Kan iemand mij vertellen wat ik verkeerd doe?
Bvd
Mvg
Bart