bijwerken koppelingen

[cristi]

Hallo ,

Ik heb de volgende vraag:

Als ik een bepaalde file open met de volgende kode:

fn = Application.GetOpenFilename
Workbooks.Open Filename:=fn

Dan werkt excel de koppelingen automatisch bij. Dit wil ik dus niet. Hoe kan ik instellen dat dat niet gebeurt? Als ik de file handmatig open, worden de koppelingen niet automatisch bijgewerkt.

vg
Cristi

 

[tilpi]

Probeer eens dit in ThisWorkbook van het te openen bestand.

Private Sub Workbook_Open()
Application.AskToUpdateLinks = True
End Sub

Mvg

Piet

 

[cristi]

Probeer eens dit in ThisWorkbook van het te openen bestand.

Private Sub Workbook_Open()
Application.AskToUpdateLinks = True
End Sub

Mvg

Piet

Piet,
Bedankt voor je reactie , het werkt helaas niet. Hij werkt telkens de koppelingen bij , en dan in de formule cellen krijg ik #NB ipv een waarde.
Zodra ik dezelfde file handmatig open, gaat het goed..... :shocked:

vg
Cristi

 

[Finch]

Binnen je VBE, druk je op F1 om de help te openen. Vervolgens zoek je naar Workbooks.open. Op die helppagina zal je zien welke argumenten je aan een workbook.open instructie kan meegeven. Het tweede argument is updatelinks. Er staat ook een verklaring verderop welke waarde je moet gebruiken om welk "effect" te bekomen.
Probeer dit even, geraak je er nog niet uit dan, dan helpen we je graag verder.

 

[cristi]

Binnen je VBE, druk je op F1 om de help te openen. Vervolgens zoek je naar Workbooks.open. Op die helppagina zal je zien welke argumenten je aan een workbook.open instructie kan meegeven. Het tweede argument is updatelinks. Er staat ook een verklaring verderop welke waarde je moet gebruiken om welk "effect" te bekomen.
Probeer dit even, geraak je er nog niet uit dan, dan helpen we je graag verder.

Ik kom helaas niet uit , hier is mijn kode:
Ik krijg verschillende foutmeldingen, een vereiste is dat de user zelf deze file kiest, en de file heeft altijd een andere naam(helaas).


Private Sub CancelButton_Click()
Unload Me
End Sub

Private Sub ExecuteButton_Click()

'On Error GoTo Err
Dim jaar As String
Dim Maand As String
Dim Nul As String
Dim fn


jaar = Year(Date)
Maand = Month(Date)
Nul = "0"
If Maand > 0 And Maand < 10 Then Nul = "0"
Case 9:




ChDrive "i:"
ChDir "i:\Logistiek\verzendlijsten\xxxx\" & jaar & "\" & jaar & "-" & Nul & Maand


fn = Application.GetOpenFilename

Workbooks.Open Filename:=fn(UpdateLinks = 2)




End Select

Unload Me
Exit Sub

 

[cristi]

Opgelost

Ik kom helaas niet uit , hier is mijn kode:
Ik krijg verschillende foutmeldingen, een vereiste is dat de user zelf deze file kiest, en de file heeft altijd een andere naam(helaas).


Private Sub CancelButton_Click()
Unload Me
End Sub

Private Sub ExecuteButton_Click()

'On Error GoTo Err
Dim jaar As String
Dim Maand As String
Dim Nul As String
Dim fn


jaar = Year(Date)
Maand = Month(Date)
Nul = "0"
If Maand > 0 And Maand < 10 Then Nul = "0"
Case 9:




ChDrive "i:"
ChDir "i:\Logistiek\verzendlijsten\xxxx\" & jaar & "\" & jaar & "-" & Nul & Maand


fn = Application.GetOpenFilename

Workbooks.Open Filename:=fn(UpdateLinks = 2)




End Select

Unload Me
Exit Sub

Ik heb de oplossing toch..... grrrrrr RTFM

Workbooks.Open Filename:=fn, UpdateLinks:=xlUpdateLinksNever

Bedankt voor je hulp.

vg
Cristi

 

[Wigi]

Bedankt om dit even te melden. Zet je de vraag nog op opgelost aub?

 

[Finch]

Goed dat het opgelost is geraakt.

Misschien nog een kleine tip, die je indien nodig kan toevoegen aan je code.
Je kan binnen je code ook nog even nakijken (bv. dmv een functie) of een bepaald bestand al open is. Indien het bestand al open is dien je het hoogstwaarschijnlijk niet meer opnieuw te openen.