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