msgbox aan het begin van een macro mogelijk?

[Inkie64]

Hi,
Weet iemand of het mogelijk is om meteen bij het begin van een macro te laten vragen of er een specifieke file geopend moet worden om vandaar uit gegevens te kopieren.
Ik heb een aantal keuzebuttons die verwijzen naar templates (orderbevestiging, pakbon, factuur). dat werkt prima. Alleen zou ik de gebruiker willen laten kiezen om vanuit een bestaande orderbevestinging bijvoorbeeld een pakbon te kunnen maken. Hiervoor zou dus eerst een vraag moeten komen zoals

vraag1 = MsgBox("Wilt u vanuit een bestaand document verder", vbYesNo 
If vraag1 = vbYes Then
Workbooks.Open Filename:=pad & "\" & databasenaam & ".xls"
End
ElseIf vraag1 = vbNo Then
Dim MyDocumentType As Variant
    '
    MyDocumentType = ActiveCell
'
    Range("J3").Activate
    If MyDocumentType = 4 Then
    Workbooks.Open(Filename:= _
        "C:\Documents and Settings\\My Documents\\Blanco pakbon NL.xls"). _
        RunAutoMacros Which:=xlAutoOpen
End If
End Sub

Het probleem is dat ik een Compileerfout krijg: opmerkingen alleen na End Sub.

Alvast bedankt voor alle reacties
Inkie

 

[Guus2005]

Als dit je echte code is dan moet je van alles corrigeren:

private sub aap()
   dim intVraag1  as integer
   Dim MyDocumentType As Variant

   vraag1 = MsgBox("Wilt u vanuit een bestaand document verder", vbYesNo )
   If vraag1 = vbYes Then
      Workbooks.Open Filename:=pad & "\" & databasenaam & ".xls"
  Else
      MyDocumentType = ActiveCell
      Range("J3").Activate
      If MyDocumentType = 4 Then
          Workbooks.Open(Filename:= _
"C:\Documents and Settings\\My Documents\\Blanco pakbon NL.xls"). _
RunAutoMacros Which:=xlAutoOpen
       End If
   endif
End Sub

Succes ermee!

 

[Inkie64]

Guus, bedankt. Ik ben nog maar pas bezig en met jouw reactie zag ik mijn fouten. En die zijn er om van de leren
Uiteindelijk heb ik er dit van gemaakt, misschien teveel van het goeie, maar het werkt!

Private Sub aap()
Dim intVraag1 As Integer
Dim MyDocumentType As Variant
Dim Filter As String, Title As String
Dim FilterIndex As Integer
Dim Filename As Variant
Dim Filename2 As Variant
Dim Filename3 As Variant
Dim Filename4 As Variant

' File filters
Filter = "Excel Files (*.xls),*.xls,"
FilterIndex = 3
Title = "Selecteer het document"

vraag1 = MsgBox("Wilt u vanuit een bestaand document verder", vbYesNo)
If vraag1 = vbYes Then
' Select Start Drive & Path
ChDrive ("C")
ChDir ("C:\Documents and Settings\My Documents")

With Application
' Set File Name to selected File
Filename = .GetOpenFilename(Filter, FilterIndex, Title)
End With

' Exit on Cancel
If Filename = False Then
MsgBox "Maak een keuze."
Exit Sub
End If

' Open File
Workbooks.Open Filename


End If

End Sub