VB probleembje

[ingmar75]

Hallo, ik heb in een excel werkmap een knop gemaakt waarmee het mogelijk is het bestand op te slaan onder een voorgedefineerde naam.

Probleem is echter dat hij het bestand dan automatisch opslaat onder Mijn documenten.

Weet iemand hoe en waar ik kan aangeven dat hij het bestadn onder een andere directorie kan opslaan bv onder \mijn documenten\willekeurigenaam\

Ik gebruik onderstaande code:

Private Sub Opslaan_Click()
'Set Werkboek = ActiveWorkbook
'Do
'Loop Until Bestelling <> False
Naam = False
If ActiveWorkbook.Name = "BESTELLING.xls" Then
Naam = Range("V1") & Range("W1") & Range("D4") & Range("W1") & Range("D5") & Range("W1") & Date & ".xls"
ActiveWorkbook.SaveAs (Naam)
Else
'Application.GetSaveAsFilename (ActiveWorkbook.Name)
Naam = Application.GetSaveAsFilename(ActiveWorkbook.Name)
If Naam <> False Then
ActiveWorkbook.SaveAs (Naam)
End If
End If
End Sub

ik ben benieuwd wie de oplossing heeft.
Alvast vriendelijk bednakt

 

[Spiderman]

Hoi ingmar75,

Ik denk zoiets als:

Dim JouwLocatie as String
JouwLocatie = "c:\mijn documenten\willekeurigenaam\"
ActiveWorkbook.SaveAs (JouwLocatie & Naam)

suc6

 

[ingmar75]

werkt

Nou ik heb even wat lopen testen en inderdaad, je code werkt perfect.
Helaas heb ik geen baan voor...das dan gelijk het slecht nieuws.

Ik durf het bijna niet te vragen, maar nu blijkt dat dit werkt, is het ook mogelijk bij het drukken op een knop er voor te zorgen dat een bestsnd per email wordt verzonden naar een voorgedefineerd emailadres?

De knop heb ik, en emailen lukt alleen een emailadres er aan meegeven lukt me niet. Ik geruik de volgende code:

Private Sub CommandButton4_Click()
'
' Emailen Macro
'
'

'
Application.Dialogs(xlDialogSendMail).Show
End Sub

Nogmaals bedankt voor je vorige code

gr ingmar

 

[Spiderman]

Hoi ingmar75,

Probeer onderstaande code eens.
Het maakt een tijdelijk bestand aan met daarin alleen het active werkblad. Dit bestand probeert hij te mailen naar de variable [eMailAdres] met as onderwerp de veriable [MailSubject].

    Dim wb As Workbook
    Dim strdate As String
    Dim eMailAdres As String: eMailAdres = "jouEmail@deProvider.xx"
    Dim MailSubject As String: MailSubject = "HetOnderwerp"
    
    strdate = Format(Now, "dd-mm-yy h-mm-ss")
    Application.ScreenUpdating = False
    ActiveSheet.Copy
    Set wb = ActiveWorkbook
    With wb
        .SaveAs MailSubject & " " & strdate & ".xls"
        .SendMail eMailAdres, MailSubject
        .ChangeFileAccess xlReadOnly
        DoEvents
        Kill .FullName
        .Close False
    End With
    Application.ScreenUpdating = True

suc6