Beste,
Onderstaande code werkt al jaren onder Excel 2003.
Bij omschakeling naar Excel 2010 krijg ik een foutmelding op de laatste lijn (Application.ActiveWorkbook.SaveAs Filename:=File)
Foutmelding:
De volgende zaken kunnen niet worden opgeslagen in werkmappen zonder macro's:
VB-project
Als u een bestand met deze funcyties wil opslaan, klikt u vervolgens een bestandstype met macro's in de lijst Bestandstype.
Klik op Ja om het bestand op te slaan als een werkmap zonder macro's.
Wanneer ik de extentie wijzig naar .xlsx of .xlsm krijg ik echter dezelfde melding.
Het rare is dat wanneer ik het bestand handmatig opsla via "Opslaan als", dit bestand kan opslaan.
Bij het heropenen kan ik het bestand met onderstaande code wel terug opslaan.
Weet iemand hiervoor een oplossing?
Met vriendelijke groeten,
Benny
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Private Sub Opslaan_Click()
Dim Pad$, Bestand$, Filter$, Eind$, File
Pad = Worksheets("Vergelijking").Range("B75").Text
'Range B75 bevat het Pad = "T:\CBX Projecten\Project - "
Bestand = Sheets("Inkoop door CBX").Range("G1")
If Bestand = "" Then
MsgBox "Gelieve het SAP Serviceauftrag Nr. eerst in te geven aub."
Exit Sub
End If
Eind = ".xls"
If InStr(Bestand, Eind) = 0 Then
Bestand = Bestand & Eind
End If
Filter = "Excel Files (*" & Eind & "), *" & Eind
File = Application.GetSaveAsFilename(Pad & Bestand, Filter)
If File <> False Then Application.ActiveWorkbook.SaveAs Filename:=File
End Sub
Onderstaande code werkt al jaren onder Excel 2003.
Bij omschakeling naar Excel 2010 krijg ik een foutmelding op de laatste lijn (Application.ActiveWorkbook.SaveAs Filename:=File)
Foutmelding:
De volgende zaken kunnen niet worden opgeslagen in werkmappen zonder macro's:
VB-project
Als u een bestand met deze funcyties wil opslaan, klikt u vervolgens een bestandstype met macro's in de lijst Bestandstype.
Klik op Ja om het bestand op te slaan als een werkmap zonder macro's.
Wanneer ik de extentie wijzig naar .xlsx of .xlsm krijg ik echter dezelfde melding.
Het rare is dat wanneer ik het bestand handmatig opsla via "Opslaan als", dit bestand kan opslaan.
Bij het heropenen kan ik het bestand met onderstaande code wel terug opslaan.
Weet iemand hiervoor een oplossing?
Met vriendelijke groeten,
Benny
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Private Sub Opslaan_Click()
Dim Pad$, Bestand$, Filter$, Eind$, File
Pad = Worksheets("Vergelijking").Range("B75").Text
'Range B75 bevat het Pad = "T:\CBX Projecten\Project - "
Bestand = Sheets("Inkoop door CBX").Range("G1")
If Bestand = "" Then
MsgBox "Gelieve het SAP Serviceauftrag Nr. eerst in te geven aub."
Exit Sub
End If
Eind = ".xls"
If InStr(Bestand, Eind) = 0 Then
Bestand = Bestand & Eind
End If
Filter = "Excel Files (*" & Eind & "), *" & Eind
File = Application.GetSaveAsFilename(Pad & Bestand, Filter)
If File <> False Then Application.ActiveWorkbook.SaveAs Filename:=File
End Sub