Enregistrer sous le même dossier avec le même nom plus version
Fermé
NathanZ
Messages postés
1
Date d'inscription
lundi 3 août 2015
Statut
Membre
Dernière intervention
3 août 2015
-
3 août 2015 à 15:58
Orbital38 Messages postés 68 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 31 octobre 2020 - 4 août 2015 à 15:30
Orbital38 Messages postés 68 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 31 octobre 2020 - 4 août 2015 à 15:30
A voir également:
- Vba enregistrer sous un autre nom
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Nom de l'adresse ✓ - Forum Internet / Réseaux sociaux
- Enregistrer video youtube - Guide
- Enregistrer son ecran - Guide
- Comment trouver un numéro à partir du nom et prénom ✓ - Forum Mobile
1 réponse
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
4 août 2015 à 11:52
4 août 2015 à 11:52
Bonjour,
Mettre ceci dans ThisWorkBook:
Mettre ceci dans ThisWorkBook:
Option Explicit
Dim chemsave, nom As String
Private Sub Workbook_BeforeClose(Cancel As Boolean)
nom = Split(ActiveWorkbook.Name, ".")(0)
chemsave = ActiveWorkbook.Path & "\" & nom & "_v2.0.xls"
ActiveWorkbook.SaveAs Filename:=chemsave, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
4 août 2015 à 15:30
Avec les Right, Left, InStr et Split tu devrais t'en sortir.
Pour te simplifier la vie je te conseille de mettre _v1.0 de base à tes fichiers. De cette manière tu n'as pas à gérer l'ajout d'une chaine de caractère puis la mise à jour de la version, mais seulement la mise à jour du numéro de version.
Sauf si tu ne comptes faire que des v1 (qui n'apparaissent pas dans le nom) et des v2.