Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

titiborregan5

XLDnaute Accro
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:
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
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Save as avec incrémentation nom du fichier

Bonjour titiborregan

Essaie (non testé)

Code: 
Sub Bouton1_Clic()
chemin = "C:\Users\xxx\Desktop\"
i = 1
nom = "test*" & ".xlsm"
fichier = chemin & nom
While Dir(fichier) <> ""
  nomfic = Dir
Wend
If nomfic = "test.xlsm" Then
  nom2 = "test1.xlsm"
Else
  num = Replace(nomfic, ".xlsm", "")
  num = Replace(num, "test", "")
  nom2 = "test" & num + 1 & ".xlsm"
End If
ActiveWorkbook.SaveAs (chemin & nom2)
End If
End Sub
 
Vote positif 0 Vote négatif
Re : Save as avec incrémentation nom du fichier

Bonjour pierrejean, merci pour ta réponse!!
J'ai une erreur de type 13: imcompatibilité de type...
Avec le débogage il m'affiche la ligne
Code: 
nom2 = "test" & num + 1 & ".xlsm"
comme étant en erreur.
Je ne sais pas comment corriger!

Encore merci
 
Vote positif 0 Vote négatif
Re : Save as avec incrémentation nom du fichier

Re

Intercale un msgbox(num) ici:

num = Replace(num, "test", "")
msgbox(num)
nom2 = "test" & num + 1 & ".xlsm"

et vois ce qu'il affiche (il est possible qu'il faille Cint(num) a la place de num
 
Vote positif 0 Vote négatif
Re : Save as avec incrémentation nom du fichier

Msgbox placée et me renvoie une fenêtre vide. et le bug arrive ensuite!


Cint(num) je ne connais pas c'est quoi? et comment ça marche?
 

Pièces jointes

  • msgbox vide.JPG
    11.4 KB · Affichages: 47
Vote positif 0 Vote négatif
Re : Save as avec incrémentation nom du fichier

bonjour titiborregan, pierrejean 🙂

L'ayant fait de mon côté, je joins ma version.
Cordialement.

VB: 
Sub Bouton1_Clic()
Dim Nom As String, nFich As String, Chemin As String, n As Integer
Chemin = "C:\Users\xxx\Desktop\"
n = 0
If Dir(Chemin & "test V*.xlsm") = "" And Dir(Chemin & "test.xlsm") = "" Then ActiveWorkbook.SaveAs (Chemin & "test.xlsm"): Exit Sub
nFich = Dir(Chemin & "test V*.xlsm")
Do While nFich <> ""
  n = Application.Max(n, Val(Split(Split(nFich, "V")(1), ".")(0)))
  nFich = Dir
Loop
Nom = "test V" & n + 1 & ".xlsm"
ActiveWorkbook.SaveAs (Chemin & Nom)
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Save as avec incrémentation nom du fichier

Re

La version de Softmama devrait fonctionner

Pour ma part , je rectifie:

Sub Bouton1_Clic()
chemin = "C:\Users\xxx\Desktop\"
i = 1
nom = "test*" & ".xlsm"
fichier = chemin & nom
While Dir(fichier) <> ""
nomfic = Dir
Wend
If nomfic = "test.xlsm" Then
nom2 = "test V1.xlsm"
Else
num = Replace(nomfic, ".xlsm", "")
num = Replace(num, "test V", "")
nom2 = "test V" & num + 1 & ".xlsm"
End If
ActiveWorkbook.SaveAs (chemin & nom2)
End If
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Save as avec incrémentation nom du fichier

Merci Softmama,
je vais tester ça! ça marche nickel!!

Merci beaucoup!
du coup, je testerai tout de même la votre demain pierrejean!

Un grand merci à vous 2!
 
Dernière édition:
Vote positif 0 Vote négatif
Re : [Résolu] Save as avec incrémentation nom du fichier

Bonjour,
la macro de Softmama marchait sur mon fichier test qui ne testait que l'enregistrement mais ne fonctionne pas sur mon fichier "réel", l'enregistrement étant la fin d'un userform... J'ai tenté de remplacer en adaptant mais je retombe sur une erreur au moment de l'enregistrement si le fichier a déjà été enregistré 2 fois (nom et nom v1)...
Je vous mets le code, dites-moi si c'est suffisant ou si vous avez besoin du fichier, que j'anonymiserai auquel cas.
Code: 
Sub CommandButton1_Click()
Dim Nom As String, nFich As String, Chemin As String, n As Integer
If TextBox1 = "" Then
MsgBox "Merci de renseigner le nom de la personne", vbOKOnly, "Erreur"
Else: Sheets("vierge").Visible = True
Worksheets("Vierge").Copy after:=Worksheets("Vierge")
Nom = TextBox1 & " " & TextBox2
ActiveSheet.Name = Nom
Cells(1, 2).Value = TextBox1
Cells(1, 3).Value = TextBox2
Cells(5, 2).Value = TextBox3
Cells(6, 2).Value = TextBox4
Cells(9, 2).Value = TextBox5
Cells(10, 2).Value = TextBox6
Cells(11, 2).Value = TextBox9
Cells(12, 5).Value = TextBox8
Cells(12, 7).Value = TextBox10
Cells(13, 3).Value = TextBox7
Unload UserForm1
Sheets("vierge").Visible = False
End If
ActiveSheet.Copy
Chemin = "S:\Dossier_Gestion\Gestion Ressources Humaines\Contrats de travail\Contrat\Fiches financières\"
n = 0
fichier = Nom & ".xlsx"
fichier1 = Nom & "V*.xlsx"
If Dir(Chemin & fichier) = "" And Dir(Chemin & fichier1) = "" Then ActiveWorkbook.SaveAs (Chemin & fichier): Exit Sub
nFich = Dir(Chemin & fichier1)
Do While nFich <> ""
  n = Application.Max(n, Val(Split(Split(nFich, "V")(1), ".")(0)))
  nFich = Dir
Loop
Nom2 = Nom & n + 1 & ".xlsx"
ActiveWorkbook.SaveAs (Chemin & Nom2) 'l'erreur vient ici!!!
End Sub
Merci d'avance!
 
Vote positif 0 Vote négatif
Re : [Résolu] Save as avec incrémentation nom du fichier

Re

Cette fois c'est testé
NB: La fonction Dir ne ressort pas les fichiers par ordre alphabétique comme on a coutume de les voir avec Explorer
Par ailleurs avec do while nfich <>"" le dernier nfich est vide
Le chemin est à adapter

Code: 
Sub test()
ReDim tablo(0) As String
chemin = "C:\"
nom = "test*.xlsm"
fichier = chemin & nom
nomfic = Dir(fichier)
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) = "test.xlsm" Then
    num = 0
  Else
    num = Replace(tablo(n), ".xlsm", "")
    num = CInt(Replace(num, "test V", ""))
  End If
  If num > dernum Then dernum = num
Next
nom2 = "test V" & dernum + 1 & ".xlsm"
ActiveWorkbook.SaveAs (chemin & nom2)
Exit Sub
If nomfic = "test.xlsm" Then
nom2 = "test V1.xlsm"
Else
num = Replace(nomfic, ".xlsm", "")
num = Replace(num, "test V", "")
End If
ActiveWorkbook.SaveAs (chemin & nom2)
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : [Résolu] Save as avec incrémentation nom du fichier

Merci Pierrejean pour ta réponse.
ce qui change entre mon fichier test et mon fichier réel, c'est que le nom de mon fichier est la concaténation de 2 cellules dans le fichier réel.
Comment dois-je faire dans ce cas là?

PS: je viens de copier colle ton code dans un nouveau fichier et j'ai une erreur d'exécution 13 à la ligne
Code: 
num = CInt(Replace(num, "test V", ""))
Normal??


Merci encore!
 
Dernière édition:
Vote positif 0 Vote négatif
Re : [Résolu] Save as avec incrémentation nom du fichier

Vide de nouveau comme la dernière fois!
Petite précision au cas où, le nom du fichier sera la concaténation de A1 et B1 si ça peut aider... désolé d'insister :$
donc ma difficulté en reprenant le code Softmama c'est "juste" le changement de nom du fichier qui passe de "test" (statique donc) à la valeur de 2 cellules...

Encore merci
 
Dernière édition:
Vote positif 0 Vote négatif
Re : [Résolu] Save as avec incrémentation nom du fichier

Re

Alors il faut que tu me reprécises quelle sera la forme du nom du fichier
Je te rappelles que nous sommes partis de
test.xlsm
test V1.xlsm
test V2.xlsm
.......
 
Vote positif 0 Vote négatif
Re : [Résolu] Save as avec incrémentation nom du fichier

Oui je sais bien, je ne pensais pas que ce serait compliqué à adapter...
Le nom du fichier sera la concaténation des valeurs de 2 cellules (B1 et C1 normalement). On peut dès le 1er enregistrement mettre V1 si ça peut simplifier ça ne me dérange pas...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Résolu(e)
XL 2021 enregistrer xltm en xlsm avec chemin automatiquement
2
Réponses
27
Affichages
596
TooFatBoy
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
563
firecarl
F
Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
545
youguybass
Y
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
645
safranien
S
zip And unzip des éléments d'un fichier de type zip y compris les fichiers Excelavec la commande (TAR)
Réponses
2
Affichages
758
patricktoulon
  • Question Question
Microsoft 365 Conserver la valeur de ma variable pour l'utiliser dans un autre code
Réponses
3
Affichages
531
mapomme
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
3 K
Hutchy33
H
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
805
arnoldbrice19
A
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
1 K
Nico2978
  • Résolu(e)
XL 2013 (RESOLU) Modification du code de pdf au xlsm
Réponses
2
Affichages
633
chaelie2015
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
889
Lu76Fer
D
  • Question Question
Microsoft 365 Couper Coller Fichiers en VBA
Réponses
3
Affichages
1 K
patricktoulon
E
  • Question Question
XL 2010 problème macro qui désactive le pavé numérique
2
Réponses
18
Affichages
2 K
Dranreb
P
  • Résolu(e)
Microsoft 365 creer un dossier et sauvergarder un fichier PDF avec le meme nom
Réponses
5
Affichages
822
Lolote83
L
  • Question Question
XL 2013 Modifier un code de sauvegarde
2
Réponses
16
Affichages
1 K
chaelie2015
R
  • Question Question
XL 2019 injecter fichier excel avec nom variable
Réponses
4
Affichages
772
job75
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
  • Question Question
XL 2016 Transfert feuilles vers nouveau classeur - Activation du contenu ?
Réponses
11
Affichages
1 K
job75
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
879
GClaire
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…