comment renommer avec la date...Résolu

Question

Salut, je suis sur un projet sous ACCESS et je dois renommer de facon automatique mes fichiers (MCSH et MCSI) en MCSH_juin 2007, juillet 2007... et ce pour tout les mois quand les gens vont lancer ce pgm. Car il s'agit de compte financier qu'il faut donc stocker sur l'année.

Etant nouveau venu dans le monde du VB je galère (je sais pas quel fonction permet de choper la date en cours pour pouvoir le réutiliser).

J'espere que vous pourrez m'aidez. Merci!!!

cs_Exploreur · Accepted Answer

Salut Chabait05 et MPI,

Ben, j'ai oublié que ce n'est que le partielle de sa variable...Pfff..Me suis planter...

Toto = Format(Now, "_mmmm_yyyy")
yop = "au" & Toto
MsgBox Toto
DoCmd.Rename "CA_MTH" & yop, acTable, "CA_MTH"

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_DARKSIDIOUS · Answer

Et allez, c'est reparti !

Quel est le rapport avec vb6 si tu fait du vba ???

Je déplace dans le bon forum !

cs_Exploreur · Answer

Salut,

Tu peux avoir la date comme cela :

Dim Toto As String
Toto = FormatDateTime ( now, vbLongDate)

Toto = Date


A+
Exploreur

 Linux a un noyau, Windows un pépin

jrivet · Answer

Salut,
Msgbox Date 
ou bien aussi regarde du cote des fonctioàn Month, MonthName, Day, Year

@+: Ju£i?n
Pensez: Réponse acceptée

baodinh · Answer

Merciii, je vais tester ca de suite. Si ca marche vous aurez une grosse bise chacun :p.
@tte

baodinh · Answer

Toto = FormatDateTime(Now, vbLongDate)
yop = "au" + Toto
DoCmd.Rename"CA_MTH_" + Toto, acTable, "CA_MTH"

Voila un bout de mon code alors ca marche trés bien!! mais j'ai un souci car à cause du rename. Quand je relance l'appli (le mois d'apres par exemple) bah il va me faire fichier introuvable...Connaissez vous une autre fonction que rename pour renomer tout en gardant la fichier CA_MTH_ "tranquille"

Merci encoreeee

cs_Exploreur · Answer

Salut,

Je viens de voir(mes excuses) le format de date que tu souhaites, donc regarde ce petit bout de code...Par contre je ne connais pas pour le rename en VBA...

Toto = Format(Now, "_mmmm_yyyy")
yop = "au" & Toto
MsgBox Toto
DoCmd.Rename "CA_MTH" & Toto, acTable, "CA_MTH"

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_MPi · Answer

baodinh, n'oublie pas d'utiliser &et non pas +, comme te le montre Exploreur
Salut Exploreur

MPi

chaibat05 · Answer

Bonsoir MPi,
T' as oublié de rajouter " ...dans son avant dernier post" !
T' as raté le dernier épisode

baodinh · Answer

Parfait ca marche nickel merciiiiiiiiiii

cs_Exploreur · Answer

Salut,

Tu as procédé comment alors ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

baodinh · Answer

Finalement j'ai fait comme ca:

Public Function Datage()


Dim strCheminBd As String
Dim Toto As String
Dim yop As String




'récupération de la date en cours avec définition du format
Toto = Format(Now, "_mmmm_yyyy")




'chemin de la BDD
strCheminBd = CurrentProject.Path


'Définition du format de date




'copie du fichier avec affichage de la date mais en gardant le fichier d'origine (copy)
DoCmd.CopyObject CurrentProject.Path + "\P&L", "CA_MTH" + Toto, acTable, "CA_MTH"

cs_Exploreur · Answer

Salut,

Dans ton code je te change un petit truc qui est plus logique dans ce cas là :

DoCmd.CopyObject CurrentProject.Path & "\P&L", "CA_MTH" & Toto, acTable, "CA_MTH"

Ps : Comme le fait souvent remarqué Jrivet(Salut), pense à valider la réponse qui ta vraiment convenue(si il y en a une, c'est toi qui juge et tu fais comme bon te semble)....

Bonne prog

A+
Exploreur

 Linux a un noyau, Windows un pépin

Comment renommer avec la date...

13 réponses

Votre réponse

Discussions similaires