Code opslaan in bepaalde map blijft vast lopen

[davylenders123]

Code blijft vastlopen op het rode gedeelte in de code.
Heb goed gekeken of de map namen op die plaats staan en juist zijn gespeld en dit is zo.
Wat heb ik fout gedaan ?

Sub mailoutlook()



If vbNo = MsgBox("Ben je wel zeker dat je die mail wil verzenden", vbYesNo) Then Exit Sub

[COLOR="#FF0000"]pad = "G:\Pakketten\Everyone\Herstellingsaanvraag crown\Reeds aangevraagd\" & Format(Sheets("Reparaties").Range("B2"), "yyyy mm") & "\"
naam = "Reparaties aanvraag Crown van " & Sheets("Reparaties").Range("B2") & ".xls"
ActiveWorkbook.SaveAs Filename:=pad & naam[/COLOR]


'ActiveWorkbook.SaveAs Filename:=("G:\Pakketten\Everyone\Herstellingsaanvraag crown\Reeds aangevraagd" & "\Reparatie aanvraag Crown van   " & Format(Now, "dd-mm-yyyy hh" & "u " & "mm") & ".xls")'


  With CreateObject("Outlook.Application").createitem(olMailItem)
  .To = "davy.lenders@.be"
  .cc = ""
  .Subject = "Reaparaties aanvraag voor bt's of heftrucken " & Format(Now, "dd-mm-yyyy hh" & "u " & "mm") & ".xls"
  .body = Replace("Goedemorgen,##Bij deze stuur ik jullie een excel file waar in vermeld staat welke bt's of heftrucken er stuk zijn. #Gelieve deze zo snel mogelijk te komen maken.#Het kan zijn dat je meer mails krijgt op 1 dag dit is dan elke keer voor een andere reparatie.##Met Vriendelijke Groeten## medewerker###", "#", vbCr)
  .Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
  .Send
  End With
  

  ActiveSheet.Unprotect Password:="1230"
    Range("A6:B16,B2").Select
    Selection.ClearContents
  ActiveSheet.Protect Password:="1230", DrawingObjects:=True, Contents:=True
    
    
    Range("B11").Select
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs Filename:=("G:\Pakketten\Everyone\Herstellingsaanvraag crown\Reparaties Crown bt's.xls")
  Application.DisplayAlerts = True
  MsgBox "De e - mail is correct verstuurd ", vbInformation
End Sub

Bekijk bijlage Reparaties Crown bt's.xls

Het paswoord van het werkblad is "0000"

 

[edmoor]

In de regel:
naam = "Reparaties aanvraag Crown van " & Sheets("Reparaties").Range("B2") & ".xls"

doe je geen format van Range("B2") waardoor er : tekens in de naam van het bestand terecht komen en die zijn niet toegestaan.

 

[VenA]

Al eerder heb ik aangegeven dat je met F8 door de code kan lopen. Je zal dan zien dat "naam" een waarde krijgt met daarin ":" en dan krijg je geen geldige bestandsnaam.

 

[davylenders123]

VenA

Hoe doe ik dat juist met F8.
Als ik in de code sta en op F8 druk gebeurt er niets.

 

[edmoor]

Je moet ook eerst een breakpoint zetten. Als je geen Breakpoint zet kan je de routine starten door op F8 te drukken. De eerste regel wordt dan geel. Druk weer op F8 om naar de volgende regel te gaan. Van iedere regel die voor de gele regel staat kun je nu de waarde van de variabelen bekijken door er met je muis boven te gaan hangen of deze in het Direct venster op te vragen.

Daarnaast is de oorzaak van je probleem nu 2x aangegeven.

 

[VenA]

Zet de cursor achter Sub mailoutlook() en druk op <F8> (de functietoets) Zorg er wel voor dat de functietoetsen aanstaan. Je zal dan zien dat het stukje code geel gemarkeerd wordt. Na nogmaals op <F8> te drukken ga je naar de volgende stap etc.

Daarnaast is de oorzaak van je probleem nu 2x aangegeven.

en deze blijkbaar ook:d

 

[davylenders123]

Hoe je nu door een code moet lopen met F8 weet ik nu.
Zo is er een popup naar boven gekomen dat er in de bestandsnaam tekens worden gebruikt die niet mogen gebruikt worden.

Het probleem is de : tussen de uren aanduiding in de bestandsnaam.
Heb dit proberen op te lossen om via celeigenschappen en ander opmaak te kiezen maar dan heb ik geen datum uur meer in bestandsnaam.

Hoe moet ik dit oplossen ?

 

[edmoor]

Net zoals je dat in het Pad hebt gedaan uiteraard.
Zoals ik in #2 al aangaf.

 

[VenA]

Denk zelf even na. Als de mapnaam met text is op te lossen dan moet het ongetwijfeld ook met een bestandsnaam lukken!

 

[davylenders123]

Lukt me niet.

Niet door de celeigenschappen aan te passen van b2.

Als ook dd mm jjjj uu mm ss in de vba toe te voegen .

 

[edmoor]

Dan verwijs ik nogmaals naar mijn opmerking in #2.
Kijk wat je achter Pad met de Format functie en B2 hebt gedaan.
Dat moet er dus achter Naam ook mee gebeuren.

 

[davylenders123]

Was een zeer zware bevalling maar na een nachtje slapen is het eindelijk in orde :d:thumb:

Heb de code zo gezet nu

naam = "Reparatie aanvraag Crown doorgestuurd op " & Format(Sheets("Reparaties").Range("B2"), "dd-mm-yyyy hh" & "u " & "mm") & ".xls"

Bedankt voor jullie hulp en tijd :thumb::thumb: