Bestand openen

[jammi]

Ik heb een vraag omtrent het openen en sluiten van een bestand

Is het mogelijk om een bestand op te slaan in een Directory D:\Forms\ onder de naam uit cel b.v "A3"
Dus in cel Cel "A3"staat de naam Form 051 bv, dan is het de bedoeling dat het bestand wordt opgeslagen op D:\Form onder de naam de form 051.

Stel dat het form reeds opgeslagen is, en ik zou het zelfde nummer willen opslaan krijg een foutmelding, in plaats van het opslaan van het huidige form zou het bestaande form moeten openen en het huidige sluiten?

Dus eigenlijk controleer je dus ook of het bestand reeds is opgeslagen.

Alvast bedankt
Peter

 

[edmoor]

Dat zal dan zoiets zijn:

Private Sub CommandButton1_Click()
    Dim MainDir As String
    Dim Doc As String
    
    MainDir = "D:\Forms"
    Doc = MainDir & "\" & Range("A3").Value & ".xlsm"
    
    If Dir(MainDir, vbDirectory) = "" Then MkDir MainDir
    If Dir(Doc) = "" Then
        ThisWorkbook.SaveAs Doc, 52
    Else
        Workbooks.Open Doc
    End If
End Sub

 

[jammi]

Excuses voor de late reactie. ik was hier inderdaad mee geholpen.
Alvast bedankt?