Renommer fichier en ajoutant AAAA MM mois précédent

[Amigos]

Bonjour

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

'
End Sub

 

[Pierrot93]

Re : Renommer fichier en ajoutant AAAA MM mois précédent

Bonjour,

regarde peut être ceci :

Dim t As String
t = Format(DateSerial(Year(Date), Month(Date) - 1, 1), "yyyy mm")

ou ainsi :

Dim t As String
t = Format(DateSerial(Year(Date), Month(Date), 0), "yyyy mm")

bon après midi
@+

 

[Amigos]

Re : Renommer fichier en ajoutant AAAA MM mois précédent

Bonjour Pierrot93
merci de ta reponse cela fonctionne pour Nommer le fichier mais c 'est pour le ranger dans le dossier du mois

la macro plante Name chemin & Fich As chemin2 & Texte

Const chemin2 = "C:\Documents and Settings\user\Bureau\Stats Annuelles\2012 03\"
Fich = Dir(chemin & "*.xls")
Do While Fich <> ""
Texte = "2012 03 " & Fich

 

[Pierrot93]

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 :

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 & "\"

 

[Amigos]

Re : Renommer fichier en ajoutant AAAA MM mois précédent

J ai un message Erreur de compilation : constante requise

le sous dossier doit il être crée dans Stats Annuelles

merci
Carole

 

[Pierrot93]

Re : Renommer fichier en ajoutant AAAA MM mois précédent

Re,

le sous dossier doit il être crée dans Stats Annuelles
QUOTE]

bah oui, le code que je t'ai donné ne créé pas le sous-dossier....

 

[Amigos]

Re : Renommer fichier en ajoutant AAAA MM mois précédent

Désolé Pierrot
j'ai testé les 2 , j'ai bien le sous dossier 2012 03 de créé cela ne fonctionne pas.

J'aurais bien aimé savoir faire pour créer le sous dossier en vba

merci de votre aide

 

[Pierrot93]

Re : Renommer fichier en ajoutant AAAA MM mois précédent

Re,

j'ai testé les 2 , j'ai bien le sous dossier 2012 03 de créé cela ne fonctionne pas.

le code donné fonctionne chez moi sans problème... utilisé dans un module standard :

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 & "\"

pour créer un sous dossier :

MkDir "C:\Documents and Settings\user\Bureau\Stats Annuelles\" & Format(DateSerial(Year(Date), Month(Date), 0), "yyyy mm")

 

[Amigos]

Re : Renommer fichier en ajoutant AAAA MM mois précédent

Genial tout fonctionne correctement
Merci j'ai compris aussi mon erreur j'ai oublié apres avoir déclaré chemin 2 as string d'enlever const

Bonne après midi , merci de votre patience

 

[Pierrot93]

Re : Renommer fichier en ajoutant AAAA MM mois précédent

Re,

Merci j'ai compris aussi mon erreur j'ai oublié apres avoir déclaré chemin 2 as string d'enlever const

Aarf oui, ceci explique cela.... bon courage...