MkDir op basis van celwaarde

[Efsix]

Beste Excellers,

Ik had weer een probeersel om vanuit een werkblad een bestand op te slaan naar een 'geprogrammeerde' plek op de computer.
Dat lukt aardig als ik vanuit VBA direct aangeef waar en hoe.

Maar nu wil ik dat dit gebeurd op basis van de invoer van bepaalde cellen.

Hier is mijn script;
Private Sub CommandButton1_Click()
CelMetSchijf = Range("C2").Value
CelMetMap = Range("C3").Value
CelMetBestand = Range("C4").Value


If Len(Dir("CelMetSchijf" & "CelMetMap", vbDirectory)) = 0 Then
MkDir "CelMetSchijf" & "CelMetMap"

End If
End Sub

Kan iemand me op weg helpen wat ik verkeerd doe?

bijvoorbaat dank, Romé

 

[Hoornvan]

Efsix,

Kijk hier eens.

De volgende keer je code tussen de tags. s.v.p.

 

[Hoornvan]

Dezw kwam ik ook nog tegen, is van je zelf.

Quote:
Origineel gepost door Warme bakkertje
Probeer volgende eens

Code:
Private Sub CommandButton1_Click()
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show <> -1 Then MsgBox "Geen map geselecteerd! Verlaat deze bewerking...": Exit Sub
mydir = .SelectedItems(1)
End With
ActiveWorkbook.SaveAs Filename:=mydir & "\" & [B8].Value
End SubMvg

Rudi

Rudi bedankt,
Jou oplossing was niet helemaal de juiste, maar heeft mij wel op weg geholpen.
Uiteindelijk heb ik dit script gevonden.

ThisFile = Range("B8").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName

End If
End Sub
Nu kan ik opslaan met bestandsnaam die in cel B3 staat. en ook een opslan als venster om te kiezen welke map ik uiteindelijk wil.

Hartelijk bedankt voor het mee-denken.

groeten,
Romé

 

[Efsix]

Dezw kwam ik ook nog tegen, is van je zelf.

Goedemorgen warme bakker.
Inderdaad heb ik al eerder met dit probleempje te doen gehad.
maar deze is toch net weer anders. Dit keer wil ik niet dat de bestandslokatie in VB wordt geprogrammeerd, maar dat de lokatie wordt ingegeven op basis van enkele cellen.
Ik was al met eerdere knutsels aan de slag gegaan, maar het lukt mij dus niet.

De vraag van de 'antwerpse bomen' heb ik geprobeerd maar die werkt bij mij in het geheel niet.

groeten, Romé

 

[Warme bakkertje]

Test deze eens

 

[Efsix]

Test deze eens

Hallo Rudi,

Hartelijk dank dat je me hebt geholpen. Jouw oplossing werkt perfect.
Het lijkt in de verste verten niet op de insteek zoals ik was begonnen.

Super, bedankt:thumb: