Nom de fichier automatique

lylandra@free.fr wrote:

Bonjour.

Quelqu'un saurait-il me dire comment, lors de la sauvegarde, excel
suggère automatiquement un nom de fichier du genre yymmFICHIERxxxx
yy : année
mm : mois
xxxx : n° qui s'incrémente.

par exemple, j'ai sur le disque dur les fichiers :
0312FICHIER0023
0401FICHIER0024
0401FICHIER0025
0402FICHIER0026

Si j'ouvre le dernier, que je le modifie, au moment de la sauvegarde
excel devrait me proposer
0406FICHIER0027 (année 04, mois 06, FICHIER, n° 0027).

C'est possible, sans doute ?
Où alors je suis sur un nuage :)

Merci de votre aide,
et bon week-end.

Bonjour,

Essaie la routine ci-dessous (ou son adaptation).
Elle est à placer dans 'ThisWorkBook'

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
DernierMois = GetSetting("Excel", "Perso", "DernierMois")
NumSerie = GetSetting("Excel", "Perso", "NumSerie")
MoisActuel = Right$(Year(Now()), 2) & Right$("0" & Month(Now()), 2)
If MoisActuel = DernierMois Then
NumSerie = NumSerie + 1
Else
NumSerie = 1
End If

suggestion = MoisActuel & "FICHIER" & Right$("000" & NumSerie, 4)
NomFic = Application.GetSaveAsFilename(suggestion, "Fichier Excel (*.xls),*.xls")

If Not (NomFic) Then
ThisWorkbook.SaveAs NomFic, xlNormal
SaveSetting "Excel", "Perso", "DernierMois", MoisActuel
SaveSetting "Excel", "Perso", "NumSerie", NumSerie
End If

Cancel = True

End Sub


Cette routine propose un nom de fichier unique à chaque enregistrement,
selon le format yymmFICHIERxxxx
où xxxx représente un numéro de série unique (unique pour le mois en cours) sur le PC qui exécute la routine.


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...