button plaatsen

[Mechelen1]

Hallo Allemaal

Ik zit met een probleem.
Ik ben een formulier in excel aan het maken en die wil ik bij mij klanten neerleggen.
Doe kunnen hem dan digitaal invullen en mailen.
Alleen lukt het me niet om de mailbutton te activeren.

Ik heb ingevuld:

Sub verzend()
  Blad1.Copy
  With ActiveWorkbook
    .SaveAs "E:\" & .Sheets(1).Range("c:\gebruikers\*\documenten") & Format(Date, "yyyymmdd") & ".xls"
    .SendMail "*"
    .Close
  End With
End Sub

Alleen geef hij de volgende melding als ik hem wil verzenden:
de macro bestelformulier kan niet worden uitgevoerd. de macro is wellicht niet beschikbaar in dit werkblad of alle macro's zijn mogelijk uitgeschakeld.

Ik heb bij macrobeveiliging: alle macro's ingeschakeld.

Wat doe ik verkeerd.
Kan iemand mij helpen aub?

 

[edmoor]

Is het een knop in het werkblad of op een userform?
Dit lijkt me ook niet handig om hard in de code te zetten:
c:\gebruikers\carin\documenten

 

[Mechelen1]

een knop in het werkblad

 

[edmoor]

Heb je die code wel in een module gezet?

 

[Mechelen1]

wat bedoel je met een module?
ik heb hem uit ActiveX besturingselementen geplakt.

 

[Mechelen1]

Ja dat denk ik wel.
ik heb de knop uit het ActiveX gehaald.
daarna een macro toegewezen.

En toen niets meer.

 

[Mechelen1]

dit is hem

 

[edmoor]

De code die je in je eerste post hebt staat staat nergens in het document.
Waar heb je dat gelaten dan?
Die hoort in een module in je VBA project en na rechts klikken op je button kies je dan voor macro toewijzen om deze eraan te hangen.
Daarna sla je hem op als werkblad met macro's (.xlsm)


Zo dus:
Bekijk bijlage Bestelformulier plissehordeur 190 cm.xlsm

Ik kan alleen niet testen of de code goed is.

 

[Mechelen1]

Ja dat had ik netjes gedaan.
Als je rechts klikt op de button dan kom je op macro toewijzen.
Daar staat hij in.

Bij mij althans

 

[edmoor]

Dat kan niet in een .xlsx die je plaatste omdat die geen macro's kan bevatten.
Kijk in het document dat ik plaatste.

 

[Mechelen1]

nee hij geeft nog steeds dezelfde melding

de macro bestelformulier kan niet worden uitgevoerd. de macro is wellicht niet beschikbaar in dit werkblad of alle macro's zijn mogelijk uitgeschakeld.
iets staat er niet goed

 

[edmoor]

Dan moet je in de instellingen voor het vertrouwenscentrum de macro's nog inschakelen.
En ervoor zorgen dat de knop de macro Verzend gebruikt.

Dat zou bij deze wel geregeld moeten zijn:
Bekijk bijlage Bestelformulier plissehordeur 190 cm.xlsm

 

[Mechelen1]

ben al een stuk verder nu.
Nu geeft ie een melding
fout 1004
door de toepassing of door abject gedefinieerde fout.
Hij geeft aan dat het dikgedrukte fout is.

Sub verzend()
  Blad1.Copy
  With ActiveWorkbook
 [B]       .SaveAs "E:\" & .Sheets(1).Range("c:\gebruikers\carin\") & Format(Date, "yyyymmdd") & ".xls" [/B] 
    .SendMail "sales@horrenindustrie.nl"
    .Close
  End With
End Sub

 

[edmoor]

Ik zei al in #2 dat dat fout zou gaan. Daar moet je opgeven waar het document moet worden opgeslagen.
Dat kun je variabel maken, op een vaste plek of het aan de gebruiker vragen.

 

[Mechelen1]

Moet ik gewoon die regel eruit laten dan?

Het maakt mij niet zoveel uit.
Ik hoef hem niet op te slaan maar voor mijn dealers is het wel zo gebruikersvriendelijk dat ze hem ergens op kunnen slaan.

 

[edmoor]

Als je die regel eruit laat vraagt Excel zelf waar het document moet worden opgeslagen.

 

[Mechelen1]

hoe kan ik je bedanken.
geweldig.

Het werkt perfect.

Ga ik meteen op alle andere formulieren doorvoeren.

Bedankt

 

[edmoor]

Je berichtje is voldoende