Henk B

Haije

Sorry voor mijn late reactie.

Ik heb de regel  aangepast en het lijkt erop dat nu inderdaad eerst de directory wordt gekozen waar het bestand al in staat.

Je hebt nog steeds de keuze om het op te slaan waar je het bestand eventueel toch zou willen hebben.

Het lijkt erop dat je mijn probleem hebt opgelost.

Super en hartelijk dank

Met vriendelijke groet Henk

Haije

Bedankt voor de reactie en de macro.

Als ik op de knop druk komt als eerste de Documenten directory waar het bestand naartoe wordt opgeslagen.

Ik had de hoop dat de directory waar het bestand op dat moment in staat als eerste zou komen.

Dus in welke directory het bestand op dat ook moment staat het opslaan van het bestand ook in deze directory plaats vindt.

Op jouw voorbeeld plaatje lijkt het erop dat jouw het wel is gelukt.

Is dat mogelijk naar je weet of niet.

Hallo Haije,

Bedankt voor je reactie.

Hieronder de macro waar ik het over had.

Deze macro plaats het bestand nu met SaveAs in de Documenten directory met wel een optie om naar de juiste directory te gaan en het dan op te slaan.

Ik zou graag direct in de directory willen opslaan.

De verdere opbouw van de macro is zoals ik deze zou willen gebruiken.

Het is een programma voor het registreren van toernooi gegevens en wanneer er nieuwe gegevens zijn ingevoerd dit in een nieuw bestand wordt opgeslagen

De gegevens uit K7 en K8 zijn de toernooi naam en jaar, sorry ik had A1 en A2 doorgegeven en dat is niet juist.

Hopelijk heb je hier wat aan en kan je mij verder helpen.

Alvast bedankt

 Dim intVraag As Integer
    intVraag = MsgBox("Weet u zeker dat u het bestand wilt opslaan. " & Chr(13) & Chr(13) & "Uw gegevens worden als nieuw bestand opgeslagen, oude bestand blijft behouden ! " & Chr(13) & Chr(13) & "Wordt opgeslagen met met de ingevoerde TOERNOOINAAM en JAAR of PERIODE :" & Chr(13) & "TOERNOOINAAM JAAR of PERIODE opgeslagen op jjjj-mm-dd hh-mm " & Chr(13) & Chr(13) & "Selecteer indien nodig de map waar het bestand moet worden opgeslagen !", vbYesNo, " OPSLAAN NIEUWE BESTANDNAAM MET HUIDIGE DATUM / TIJD ")
    If intVraag = vbYes Then

Dim xWb As Workbook
Dim xStr As String
Dim xStrOldName As String
Dim xStrDate As String
Dim xFilename As String
Dim xFileDlg As FileDialog
Dim i As Variant

Application.DisplayAlerts = False
Set xWb = ActiveWorkbook
xStrOldName = xWb.Name

xStr = CStr(Range("K7").Value) & Chr(32) & Chr(32) & (Range("K8").Value) & Chr(32) & Chr(32) & "opgeslagen op" & Chr(32) & Chr(32) & Format(Now, "yyyy-mm-dd   hh-mm")

If Range("K7") <> "Geen gegevens ingevoerd" And Range("K8") <> " " Then

If Right(xStrOldName, 4) = "xlsm" Then
    xFilename = Application.GetSaveAsFilename(xStr, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
 xFilename = Application.GetSaveAsFilename(xStr, "Excel Workbook (*.xlsx),*.xlsx")
End If

Else
    MsgBox "De naam van het bestand is nog niet compleet" & Chr(13) & Chr(13) & "De toernooi gegevens zijn nog niet compleet ingevoerd" & Chr(13) & Chr(13) & "Ga naar TOERNOOI GEGEVENS en voer de ontbrekende gegevens in !", vbCritical
Exit Sub
End If

'If Right(xStrOldName, 4) = "xlsm" Then
'    xFilename = Application.GetSaveAsFilename(xStr, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
'Else
' xFilename = Application.GetSaveAsFilename(xStr, "Excel Workbook (*.xlsx),*.xlsx")
'End If

  xWb.SaveAs (xFilename)

Application.DisplayAlerts = True

End If
End Sub

Wie kan mij helpen aan een Excel Macro voor het opslaan van een Excel werkmap in de huidige directory waar deze op dat moment staat.

Het kan voorkomen dat de werkmap in een andere directory staat dan moet het in de directory worden opgeslagen waar dit bestand op dat moment staat.

Het bestand, werkmap, moet worden opgeslagen met de bestandsnaam opgebouwd met gegevens uit cel A1 en A2 en met huidige datum en tijd..

Ik had wat gevonden maar dit zet het in de directory Documenten, dat is niet wat ik zoek.

Alvast bedankt