[Résolu] Save as avec incrémentation nom du fichier

[titiborregan5]

Bonjour à tous,
j'ai pas mal cherché sur le net mais je n'ai pas trouvé ce que je cherchais... à savoir, une gestion de l'enregistrement d'un fichier.
Si pas de fichier déjà existant le nom "test" sinon si test existe "test v1" et si "test v1" existe "test v2" et ainsi de suite.

J'arrive à faire le début jusqu'à test v2 mais après je bloque...
Voici mon code:

Sub Bouton1_Clic()
chemin = "C:\Users\xxx\Desktop\"
i = 1
nom = "test" & ".xlsm"
fichier = chemin & nom
If Dir(fichier) <> "" Then
nom2 = "test V" & i + 1 & ".xlsm"
ActiveWorkbook.SaveAs (chemin & nom2)
Else: ActiveWorkbook.SaveAs (chemin & nom)
End If
End Sub

je mets aussi le fichier...

Merci d'avance pour votre aide

Tibo

 

[pierrejean]

Re : [Résolu] Save as avec incrémentation nom du fichier

Re

Encore une version testée
Attention : à lancer sur la page concernée (celle ou le nom est A1+B1)

Sub test()
ReDim tablo(0) As String
chemin = "C:\"
nom = Range("B1") & Range("C1")
fichier = chemin & nom & "*.xlsm"
nomfic = Dir(fichier)
If nomfic = "" Then
 ActiveWorkbook.SaveAs (chemin & nom & ".xlsm")
 Exit Sub
End If
tablo(UBound(tablo)) = nomfic
ReDim Preserve tablo(UBound(tablo) + 1)
While nomfic <> ""
 nomfic = Dir
 If nomfic <> "" Then
   tablo(UBound(tablo)) = nomfic
   ReDim Preserve tablo(UBound(tablo) + 1)
 End If
Wend
For n = LBound(tablo) To UBound(tablo) - 1
  If tablo(n) = nom & ".xlsm" Then
    num = 0
  Else
    num = Replace(tablo(n), ".xlsm", "")
    num = CInt(Replace(num, nom & " V", ""))
  End If
  If num > dernum Then dernum = num
Next
nom2 = nom & " V" & dernum + 1 & ".xlsm"
ActiveWorkbook.SaveAs (chemin & nom2)
End Sub

 

[titiborregan5]

Re : [Résolu] Save as avec incrémentation nom du fichier

Re, ça marche bien chez moi. je l'essaie sur mon fichier complet!
Erreur sur le fichier réel!
L'erreur vient de là: Erreur de compilation: ReDim incorrect

ReDim Preserve tablo(UBound(tablo) + 1)

en mettant une apostrophe devant ces 2 lignes, il bloque sur le saveas après.
Une msgbox aurait un sens ici?

 

[pierrejean]

Re : [Résolu] Save as avec incrémentation nom du fichier

Re

poste ton fichier réel avec le minimum nécessaire pour étudier le pb

 

[titiborregan5]

Re : [Résolu] Save as avec incrémentation nom du fichier

OK je posterai ça que mardi par contre... Merci pour tout pierrejean

 

[titiborregan5]

Re : [Résolu] Save as avec incrémentation nom du fichier

rebonjour à tous,
voici le fichier demandé.
ça ouvre un usf pour lequel on renseigne qq champs. ensuite ça les inscrit dans la feuille.
Le problème se pose donc au niveau de l'enregistrement comme demandé depuis le début 😉

Si vous savez aussi comment faire en sorte qu'il n'y ait pas de #VALEUR lorsqu'on reporte les données de l'usf sur la feuille...
Bien à vous!

 

[pierrejean]

Re : [Résolu] Save as avec incrémentation nom du fichier

Re

Vois si cela te convient

 

[titiborregan5]

Re : [Résolu] Save as avec incrémentation nom du fichier

Un très grand merci, l'incrémentation est ok.
Je vérifie qq petites options (copie de la feuille afin de ne pas toucher au fichier de base, ne pas être obligé de remplir tous les champs, faire en sorte que toutes les infos venant des textbox soient prises en compte en nombre etc) mais le principal marche très bien!!!
Encore merci pierrejean!
Tibo