Gracias por tu tiempo para contestar
Te informo, Hice lo siguiente tomando precaución de la dirección donde guardará el nuevo archivo y la extensión del archivo :
FSO = CreateObject("Scripting.FileSystemObject")
Inicio:
elNombre = InputBox("¿Qué nombre le quieres dar al archivo", "Nombre")
If StrPtr(elNombre) = 0 Then
MsgBox "Proceso de copia cancelado", vbInformation, "Cancelado"
Exit Sub
ElseIf Nz(elNombre, "") = "" Then
MsgBox "Debes indicar un nombre válido", vbInformation, "Error"
Exit Sub
End If
elArchivo = laRuta & elNombre & ".accdb"
If FSO.FileExists(elArchivo) Then
If MsgBox("Ya existe un archivo con ese nombre. Pulsa ""Aceptar"" para sobreescibirlo o ""Cancelar"" para escoger otro nombre", vbOKCancel + vbInformation, "Archivo existente") = vbCancel Then
GoTo Inicio
Else
FSO.CopyFile Application.CurrentProject.FullName, elArchivolaRuta & elNombre & ".accdb", True
End If
Else
FSO.CopyFile Application.CurrentProject.FullName, elArchivo
End If
End Sub
He revisado y todo me parece bien, pero me arroja el siguiente error:
No se ha definido la variable y sombrea FSO =
Le agregue a ver si funcionaba
Dim FSO as Scripting.FileSystemObject
También: Dim FSO as String y as Boolean
Y me arroja otros errores
Estoy luchando para corregir
Te informo es una aplicación que estoy haciendo para Análisis de Precios Unitarios y quiero que cada proyecto tenga una base de datos diferente. Pero que trabaje con una base de datos genérica pero que al comenzar le de otro nombre para no perder la BD original
Gracias por tu apoyo