Guardar archivos con mismo nombre

Buenas tardes,

Llevo un tiempo atascado con un problema. Lo que quiero es poder guardar un archivo con el mismo nombre que el que introduje anteriormente pero sin sobreescribir.

Sub NombresDuCompte()

nbre = InputBox("Escribir el nombre del informe: CRnúmero de mes,númerodeequipo. Por ej: CRene_eq1; CRfeb_eq2; CRmar_eq1...")

'Se genera la carpeta

Dim Path As String
Dim NombreCarpeta As String
Dim A As String
Path = "C:\Users\Usuario\Desktop\PROJET BO\"
NombreCarpeta = "Comptes-Rendu"
'Verifica que la carpeta ya existe
If Dir(Path, vbDirectory) <> "" Then
'Se verifica que la carpeta no existe. Se crea.
If Dir(Path & NombreCarpeta, vbDirectory) = "" Then MkDir Path & NombreCarpeta
'MkDir para crear la carpeta
End If

If nbre = "" Then
Exit Sub
End If

Dim carpeta As String
A = "C:\Users\Usuario\Desktop\PROJET BO\Comptes-Rendu"
ActiveWorkbook.SaveAs A & "\" & nbre & ".xlsx"

MsgBox "Tienes el informe de este mes. Se encuentra en una carpeta que se llama Comptes-Rendus"

'Introduzco en el InputBox, por ejemplo, CRene_eq1, y una vez finaliza se guarda el archivo Excel "CRene_eq1.xlsx" en la carpeta Comptes-Rendu. Ok. Vuelvo a realizar el mismo proceso, introduciendo "CRene_eq1" en el InputBox... Pero este último archivo sobreescribe sobre el anterior. Quiero evitar esto. ¿Cómo puedo hacer?Me gustaría poder obtener "CRene_eq1.xlsx", "CRene_eq1(2).xlsx", "CRene_eq1(3).xlsx" etc etc.... Y todos estos ficheros guardados en la misma carpeta "Comptes-Rendu".

Mi versión del programa es Excel 2013.

Muchas gracias por vuestra atención

0

Añade tu respuesta

Haz clic para o