[AC-2003] Problème avec les dates [Résolu]

[utan88]

Bonjour,

je générer un fichier excel à partir d'un etat créé au préalable.

Code :

DoCmd.OutputTo acOutputReport, "RPT_HousingParAgence_Xl", acFormatXLS, "test.xls"

ce code marche parfaitement mais j'aimerais que la date du jour soit comprise dans le nom du fichier je fais donc :

Code :

DoCmd.OutputTo acOutputReport, "RPT_HousingParAgence_Xl", acFormatXLS, "test" & Now & ".xls"

mais le compilateur n'aime pas le now.

je reçois l'erreur 2032 impossible d'enregistrer les données sélectionnées.

Je vous remercie d'avance de votre aide.

[RobiPMS]

Now renvoie la Date et l'heure en cours au format défini dans les paramètres régionaux de Windows (par ex. : 08/02/2011 12:04:36). Cette valeur comporte des caractères qui ne peuvent pas être utilisés dans un nom de fichier (/ et : ).
Donc, il faut les remplacer avant d'utiliser la valeur renvoyée par la fonction dans la composition du nom sous lequel on veut enregistrer le fichier.
Personnellement, j'utilise ce genre de code :

Code :

1
2
3
4
 Dim StrDateSauv As String       'Le jour de la sauvegarde
    'Recherche de la date du jour sous format aaaammmjj
    StrDateSauv = str(Int(Date))
    StrDateSauv = Replace(StrDateSauv, "/", "_")

ensuite j'utilise StrDateSauv dans le code où je crée le nom sous lequel le fichier sera enregistré.
Bon travail!

[utan88]

merci de votre réponse sa marche nickel mais j'aimerais garder l'heure également mais avec now la partie heure saute

si vous avez qqch à me proposer ce serait le must

merci d'avance

[pier.antoine]

Bonjour

Dans l'exemple de RobiPMS, on ne gardait que la date, c'est à dire la partie entière du réel double correspondant à la date (ne pas oublier que pour access et autre, la date est en fait un nombre, au format réel double, dont la partie entière correspond au nombre de jour depuis le 31 décembre 1899, et la partie décimale, à l'heure, mais j'ai une absence sur sa signification exacte).

Pour récupérer l'heure, il faut ajouter quelque chose comme

Code :

1
2
3
4
 Dim StrDateSauv As String       'Le jour de la sauvegarde
    'Recherche de la date du jour sous format aaaammmjj
    StrDateSauv = str(Int(Date)) & str((date)-int(date))
    StrDateSauv = Replace(StrDateSauv, "/", "_")

Je n'ai pas essayé, donc sans garantie de réussite immédiate.

Pierre

[RobiPMS]

Essaie ceci :

Code :

1
2
3
Dim MyString
MyString = Format(Now, "yyyy-mm-dd_Hh-Nn")
Me.Controls!DateEncodage.Value = MyString

Chez moi, ça me renvoie la date et l'heure dans un format utilisable pour ton nom de fichier.

NB : si tu n'as pas besoin des zéros non significatifs, utilise h et N pour les heures et minutes.

[RobiPMS]

Bien entendu, utilise les deux premières lignes de mon code! La troisième est relative au test que j'ai fait dans une application.

[utan88]

merci bien sa marche