Command-knop opslaan probleem

[Fred_H]

Goedemorgen,
Kan iemand onderstaande code aub aanpassen;
Standaardmap in Excel: k:\naam-medewerker\excel

Het formulier waar het om gaat moet worden opgeslagen in
de map: k:\naam-medewerker\excel\ziekmeldingen

Als de subdirectorie ziekmeldingen bij iemand nog niet bestaat, dan zou deze aangemaakt moeten worden.

Tot nu toe gebruik ik onderstaande code, maar zou moeten worden veranderd;

De huidige code is;
Private Sub CommandButton1_Click()
ThisWorkbook.SaveAs Range("n1")
End Sub

Kan iemand mij aub hierbij helpen,
alvast heel erg bedankt
Fred

 

[Wigi]

Goedemorgen,
Kan iemand onderstaande code aub aanpassen;
Standaardmap in Excel: k:\naam-medewerker\excel

Het formulier waar het om gaat moet worden opgeslagen in
de map: k:\naam-medewerker\excel\ziekmeldingen

Als de subdirectorie ziekmeldingen bij iemand nog niet bestaat, dan zou deze aangemaakt moeten worden.

Tot nu toe gebruik ik onderstaande code, maar zou moeten worden veranderd;

De huidige code is;
Private Sub CommandButton1_Click()
ThisWorkbook.SaveAs Range("n1")
End Sub

Kan iemand mij aub hierbij helpen,
alvast heel erg bedankt
Fred

Waarom stel je die vraag 2 keer? Ik heb trouwens al geantwoord.

 

[Fred_H]

Sorry Wigi
Had antwoord niet gezien, ben nog niet zo lang op deze site,
zou je a.u.b. nog 1 x willen antwoorden a.u.b.

 

[Wigi]

Sorry Wigi
Had antwoord niet gezien, ben nog niet zo lang op deze site,
zou je a.u.b. nog 1 x willen antwoorden a.u.b.

Zie gewoon na wat je eerst postte. Daar staat het antwoord.

 

[Wigi]

Je had trouwens al op OPGELOST geklikt...

Anyway, ik zal het eens kopiëren hier.

Fred

Als in A1 de naam van de werknemer staat, en in A2 de naam van het bestand, dan werkt dit:

Private Sub CommandButton1_Click()
Dim fn As String, folder As String
fn = Range("A2") & ".xls"
folder = "K:\" & Range("A1") & "\" & "Ziekmeldingen"
On Error Resume Next
MkDir folder
ThisWorkbook.SaveAs folder & "\" & fn
End Sub

Wigi

 

[Fred_H]

Heb per ongeluk de 1e vraag verwijderd,
nu weet ik nog niets

 

[Wigi]

Heb per ongeluk de 1e vraag verwijderd,
nu weet ik nog niets

Dan heb ik net op tijd gekopieerd...

Let aub op, ik doe dat werk geen 2de keer hoor.

 

[Fred_H]

Jammer Wigi, dit is niet helemaal wat ik bedoel,
wat er nu gebeurt; het bestand wordt opgeslagen op c: schijf onder bureaublad en hij maakt een subdirectory ziekmeldingen aan.

Eigenlijk moet het bestand de naam krijgen volgens cel N11
en moet worden opgeslagen op netwerk bijvoorbeeld: k:\fred\excel\ziekmeldingen
of bij iemand anders bv: k:\tim\excel
Tim heeft bijvoorbeeld nog niet de subdirectory "ziekmeldingen"

de map ziekmeldingen bestaat bij sommige medewerkers niet, als die er niet is zou die subdirectory aangemaakt moeten worden.

Misschien is dit nog op te lossen ??
groet.

 

[Wigi]

Eigenlijk moet het bestand de naam krijgen volgens cel N11
en moet worden opgeslagen op netwerk bijvoorbeeld: k:\fred\excel\ziekmeldingen

Wat staat er in N11?

 

[Fred_H]

in cel N11 staat;
=(TEKST(H41;"jj-mm-dd"))&" "& E4

 

[Wigi]

in cel N11 staat;
=(TEKST(H41;"jj-mm-dd"))&" "& E4

En wat staat er dan in H41 en E4

 

[Fred_H]

H41 hier wordt een datum ingevuld
E4 hier wordt een naam ingevuld

bijvoorbeeld: 06-09-2006 Wigi

 

[Wigi]

De code zit in bijlage.

Wees er wel zeker van dat K:\naam\excel bestaat, anders werkt het niet.

In A1 staat de naam van de werknemer.

Wigi

 

[Fred_H]

Deze code had ik zelf al opgegeven Wigi, toch bedankt, maar de volgende code;
ThisWorkbook.SaveAs Range("n1")
moet een code worden zodat het bestand wordt opgeslagen in een subdirectorie "ziekmeldingen", die nog niet bestaat op de netwerkschijf.
bv: k:\fred\excel\ziekmeldingen
bv: k:\tim\excel (heeft nog geen subdirectorie ziekmeldingen)
bv: k:\annelies\excel (heeft ook nog geen subdirectorie ziekmeldingen)

fred, tim en annelies zijn dus mensen die met dit bestand gaan werken en via de commandknop gaan opslaan. Het moet dus bij hun in de subdirectorie "ziekmeldingen" komen te staan.

Hoop dat ik het duidelijk omschreven heb en dat het gaat lukken,
groet, Fred

 

[Wigi]

Zo dan

Wigi

 

[Wigi]

Fred heeft mij ondertussen gemaild.

Fred: ik antwoord enkel via het forum. Dat neemt op zich al veel tijd in beslag.

 

[Fred_H]

Dan geef ik het maar op.
Fijn weekend

 

[Wigi]

Dan geef ik het maar op.
Fijn weekend

Zeg liever wat er niet werkt dan de handdoek in de ring te gooien.

Heb je de code op de juiste plaats geplakt?

Bij mij werkt het helemaal (als ik K: verander in C: want ik heb geen K: schijf)

Wigi

 

[koosl]

Fred_H en Wigi,

bij mij deed de code het ook niet. Ik heb enkele msgboxen gezet en daar was alles goed. Maar toch werd er geen map gemaakt, of gesaved.

Toen kwam ik er achter dat je geen map met daaronder nog een submap tegelijk aan kunt maken. Het lukt wel als je ze afzonderlijk maakt.
De Private voor de Sub heb ik ook weggelaten.

Je code wordt dan:

Sub CommandButton1_Click()
Dim fn As String, folder As String
fn = Range("N11") & ".xls"
folder = "K:\\" & Range("A1")
On Error Resume Next
MkDir folder
folder = "K:\\" & Range("A1") & "\excel"
MkDir folder
folder = folder & "\Ziekmeldingen"
MkDir folder
ThisWorkbook.SaveAs folder & "\\" & fn
End Sub

Er is wel een probleem met de \ (backslash) op dit forum. Soms valt er een backslash weg in iemands code die zoals hierboven geplaatst is.Hierboven zijn er ook weggevallen. Deze heb ik er dubbel ingezet en dan is er wel 1 te zien. Vervelend, maar ja...

Zie daarom ook de bijlage

Koosl

 

[Fred_H]

Bedankt Koos en Wigi
Mijn probleem is nu opgelost, inderdaag Wigi, de backslash \ komt soms niet over.