Création d'une sauvegarde avec l'année dans le nom

Bonjour,

Je souhaite créer une sauvegarde d'un fichier excel avec l'année encours ( nom du type : AAAsauvegarde2008.xls)

Pour cela j ai pensé utilisé le code :

La cellule F3 contenant une date type 10/06/08

Y = Year(Range("F3"))

ActiveWorkbook.SaveCopyAs "C:\Documents and Settings\Mes documents\archive\AAAsauvegardeY.xls"

Cependant vb ne reconnait pas Y comme variable...

En cherchant sur le net j ai remarqué beaucoup d'articles sur le FSO qui avait l'air de pouvoir traiter ce problème sans trop comprendre ni reussi à utiliser ce type de commande

Comment peut on réaliser cette opération?

Merci d'avance

hello

peut-être que Y ne doit pas être simplement accolé au reste du nom, mais qu'il faut un truc du genre CONCATENER (équivalent en code)

Salut essaies comme ceci:

Sub Macro9()
Dim fnom As String
Y = Year(Range("F3").Value) 
fnom = "C:\Documents and Settings\Mes documents\archive\AAAsauvegarde" & Y & ".xls"
ActiveWorkbook.SaveAs Filename:=fnom
End Sub

A te lire,

Souri84

Merci pour vos réponses

pour le moment j ai essayé la réponse de souris 84

la macro crée bien le fichier cependant, son nom est : AAAsauvegarde1899...

Merci de votre aide

Souri84

J'ai essayé ta ligne de code dans un autre fichier ( le fichier complé que je suis entrain de modifié)

et la ca marche j'ai la bonne date...

Mystère de l'informatique faut croire

Si j ai de nouveau un problème je peux faire Y+100 pour afficher la bonne date

Mais si vous savez d'ou vien ce problème je suis preneur

Merci beaucoup pour votre aide

Bonne journée

pading

Bonjour,

Le plus logique serait de penser que c'était ta date en F3 qui est mauvaise...

Hello !

Je pense aussi que ta cellule "F3" était mal paramétrée à la base.

Tu peux également mettre des espaces dans ton chemin comme ceci :

fnom = "C:\Documents and Settings\Mes documents\archive\AAA" & " " & "sauvegarde" & " " & Y & ".xls"

@ plus...