[VBA Word 2007] wdDialogFileSaveAs maar dan zonder saven

[Punkrocker]

Ik heb een Word-doc (startdocument) met een UserForm. In dat UserForm kan ik d.m.v. vinkjes zetten bepalen welke documenten ik wil samenvoegen tot één nieuw document.
Op datzelfde UserForm kan ik de locatie opgeven waar ik dat samengevoegde document wil opslaan. Default staat dat nu voor alle gebruikers op een folder op een netwerkschijf. Die locatie staat in een TextBox en kan de gebruiker overschrijven om zo een eigen locatie in te geven.
Nu wil het ik ze hierbij wat eenvoudiger maken en er een Browse-knop naast zetten waarmee ze naar hun favoriete map kunnen browsen en die kunnen selecteren.
Ik heb deze code aan die knop gegeven:

code:

Private Sub CommandButton1_Click()
Dialogs(wdDialogFileSaveAs).Show
Dim path
path = ActiveDocument.Path
TextBox1 = path
End Sub

Dat gaat goed maar er is één probleempje: Het startdocument wordt daar ook opgeslagen en dat is nu net niet de bedoeling.
Dat ligt natuurlijk aan wdDialogFileSaveAs maar hoe kan ik dat anders doen?

[F_J_K]

Je wilt de msoFileDialogOpen gebruiken denk ik

[Punkrocker]

F_J_K schreef op vrijdag 20 mei 2011 @ 14:06:
Je wilt de msoFileDialogOpen gebruiken denk ik

Als ik die gebruik krijg ik het pad van het (actieve) startformulier. Ik wil juist een andere locatie/pad ingeven.

[Lustucru]

F_J_K schreef op vrijdag 20 mei 2011 @ 14:06:
Je wilt de msoFileDialogOpen [dialogs].Display methode gebruiken denk ik

Punkrocker schreef op vrijdag 20 mei 2011 @ 14:12:
[...]
Als ik die gebruik krijg ik het pad van het (actieve) startformulier. Ik wil juist een andere locatie/pad ingeven.

Ook het pad is in te stellen voor je Show() of Display() aanroept.

en @ Hertetic: als het idd alleen om het pad gaat is het onzin een filedialogbox te gebruiken.

[Voor 52% gewijzigd door Lustucru op 20-05-2011 14:45]

[Anoniem: 113297]

vrijdag-bijna-weekend-vrijgevigheidje :

Visual Basic:

Sub KiesMap()
  Dim MapKiezer As FileDialog
  
  Set MapKiezer = Application.FileDialog(msoFileDialogFolderPicker)
  If (-1 = MapKiezer.Show) Then
    MsgBox MapKiezer.SelectedItems(1)
  End If
  Set MapKiezer = Nothing
End Sub

overigens kan het met jouw code ook, maar je moet een andere methode gebruiken dan show

[Punkrocker]

Anoniem: 113297 schreef op vrijdag 20 mei 2011 @ 14:43:
vrijdag-bijna-weekend-vrijgevigheidje :

Visual Basic:

Sub KiesMap()
  Dim MapKiezer As FileDialog
  
  Set MapKiezer = Application.FileDialog(msoFileDialogFolderPicker)
  If (-1 = MapKiezer.Show) Then
    MsgBox MapKiezer.SelectedItems(1)
  End If
  Set MapKiezer = Nothing
End Sub

overigens kan het met jouw code ook, maar je moet een andere methode gebruiken dan show

Iets aangepast naar de situatie is dit hem geworden:

code:

Private Sub CommandButton3_Click()

Dim MapKiezer As FileDialog
   
  Set MapKiezer = Application.FileDialog(msoFileDialogFolderPicker)
  If (-1 = MapKiezer.Show) Then
TextBox7 = MapKiezer.SelectedItems(1)
  End If
  Set MapKiezer = Nothing

End Sub

Bedankt!!