VBA Chemin d'acces avec une année qui change

Bonjour à tous,

J'espère que vous allez pouvoir m'aider et je remercie d'avance à toutes les personnes qui se pencheront sur mon problème.

J'aimerais avoir un chemin d'acces dont le dossier sera l'année en cours !! Mon code marche avec le 2010 en rouge mais pour 2011 et 2012 ???

J'ai donc crée une variable pour l'année en cours qui se nomme "Lannee", seulement lorsque je mets "Lannee" a la place du 2010 en rouge, cela ne marche pas !!

Comment faire ?

Voici mon code :

Function INDICATEURS()

Lannee = (Year(Now))

DateF = FileDateTime("F:\STAGE\Indicateurs\test.xls")

DateR = "07/06/" & Lannee

If (InStr(DateF, DateR)) > 0 Then

'copiercoller

Annee = Lannee

MsgBox Annee

FileCopy "F:\STAGE\Indicateurs\test.xls", "F:\STAGE\Indicateurs\2010\06-Juin\test.xls"

Merci d'avance.

Sophie

Bonjour,

A essayer :

Dim Lannee As Integer
Dim dateF As Date, DateR As Date
Lannee = (Year(Now))
dateF = FileDateTime("F:\STAGE\Indicateurs\test.xls")
DateR = "07/06/" & Lannee
If InStr(dateF, DateR) > 0 Then
MsgBox Lannee
FileCopy "F:\STAGE\Indicateurs\test.xls", "F:\STAGE\Indicateurs\" & Lannee & "\06-Juin\test.xls"
End If

PAr contre je n'ai pas compris le pourquoi d'une macro FUNCTION

Si ok, merci de ne pas oublier de cocher le V de couleur vert pour cloturer le fil

Amicalement

ça marche !! C'est super !!

Merci beaucoup