Opslaan in excel 2007

[RobYol]

Ik ben van excel 2003 naar 2007 gegaan en nou loopt de volgende code in zover niet. Als ik de code/macro activeer (via knop) dan komt hij netjes met het opslaan venster maar komt zonder naam die in een cel staat onder de naam BestandsnaamOfferte. De volgende code wordt gebruikt:

Sub Opslaan_Op_Naam()
Dim MaxDatum As Date
Dim MinDatum As Date
Dim InputDatum As Date

'CONTROLE

Range("P611", "V6:V11").Interior.ColorIndex = xlNone
MaxDatum = Format(Range("V6") + 365, "dd/mm/yyyy")
MinDatum = Format(Date, "dd/mm/yyyy")
InputDatum = Format(Range("V6"), "dd/mm/yyyy")
If InputDatum < MinDatum Or InputDatum > MaxDatum Then
MsgBox ("Verkeerde datum of geen datum ingevuld op tabblad [Offerte]")
[V6].Interior.ColorIndex = 3
Exit Sub
End If

If [P6] = "" Then
MsgBox ("Veld [OFFERTE VOOR] niet ingevuld op tabblad [Offerte]")
[P6].Interior.ColorIndex = 3
Exit Sub
End If

If [P7] = "" Then
MsgBox ("Veld [E-MAIL ADRES] niet ingevuld op tabblad [Offerte]")
[P7].Interior.ColorIndex = 3
Exit Sub
End If

If [P8] = "" Then
MsgBox ("Veld [TELEFOON / MOBIEL] niet ingevuld op tabblad [Offerte]")
[P8].Interior.ColorIndex = 3
Exit Sub
End If

If [V8] = "" Then
MsgBox ("Veld [ONS CONTACTPERSOON] niet ingevuld op tabblad [Offerte]")
[V8].Interior.ColorIndex = 3
Exit Sub
End If

If [V10] = "" Then
MsgBox ("Veld [FILIAAL] niet ingevuld op tabblad [Offerte]. Programmafout bel 06-54293516")
[V10].Interior.ColorIndex = 3
Exit Sub
End If

'OPSLAAN

Do
fname = Application.GetSaveAsFilename(Range("BestandsnaamOfferte"))
Loop Until fname <> False
ActiveWorkbook.SaveAs Filename:=fname

End Sub

Heb al het een en ander geprobeerd maar krijg het niet voor elkaar. Wie kan mij helpen.

Gr Robert :thumb::thumb:

 

[Hoornvan]

RobYol,

Heb je al geprobeerd om de macro met F8 te laten lopen?

 

[snb]

Waarom genereer je geen bestandsnaam met de code: bespaart eenieder een hoop werk en fouten.

 

[RobYol]

Waarom genereer je geen bestandsnaam met de code: bespaart eenieder een hoop werk en fouten.

Ben niet super thuis in visual basic maar dit is de formule voor het creeeren van de bestandsnaam:

=Offerte!$V$11 & " " & Offerte!$P$6 & " " & "J" & JAAR($A$59) & " " & "M" & MAAND($A$59) & " " & "D" & DAG($A$59) & ".xls"

zou je dit voor me kunnen vertalen naar code.

Bij voorbaat dank.

Gr Robert :thumb::thumb:

 

[trucker10]

Al eens op deze site gekeken hoe je van 2003 naar 2007 kan opslaan .