l'extraction des statistiques mensuelles se font le début du mois suivant,
Je me suis inspirée des forums, est il possible de traduire en vba AAAA MM du mois précedent
car sinon chaque mois nous devrons penser à changer AAAA MM
merci de votre aide
Sub Renommer()
'
Dim Fich As String, Texte As String
Const chemin = "C:\Documents and Settings\user\Bureau\statms\"
Const chemin2 = "C:\Documents and Settings\user\Bureau\Stats Annuelles\2012 03\"
Fich = Dir(chemin & "*.xls")
Do While Fich <> ""
Texte = "2012 03 " & Fich
Name chemin & Fich As chemin2 & Texte
Fich = Dir
Loop
Re : Renommer fichier en ajoutant AAAA MM mois précédent
Re,
tu ne peux pas utiliser une variable lors de l'initialisation d'une constante, essaye comme ceci :
Code:
Dim t As String, chemin2 As String
t = Format(DateSerial(Year(Date), Month(Date), 0), "yyyy mm")
chemin2 = "C:\Documents and Settings\user\Bureau\Stats Annuelles\" & t & "\"
le code donné fonctionne chez moi sans problème... utilisé dans un module standard :
Code:
Dim t As String, chemin2 As String
t = Format(DateSerial(Year(Date), Month(Date), 0), "yyyy mm")
chemin2 = "C:\Documents and Settings\user\Bureau\Stats Annuelles\" & t & "\"