Access-3stone - Forum - Problèmes Access des débutants

Forum - Problèmes Access des débutants - Sujet n°607

1 membre

Connectés : ( personne )

Forum - Forum
- Problèmes Access des débutants

Sujet n° 607	automatiser un enregistrement
le 29/06/2012 : 13:53 par lionel34 visiteur	Bonjour à tous J’ai créé une macro sur un bouton dans mon programme Access qui me permet d’enregistrer un état dans un fichier Mon problème j’aimerai que le nom de l’état change automatiquement à chaque enregistrement et prenne le nom de la date auquel il est enregistré Je vous remercie de vos réponses

Réponse n° 1
--------
le 29/06/2012 : 17:40
par 3Stone

Anonyme

Administrateur

Bonjour,

Pour sauver un état au format Excel ayant comme nom la date du jour, tu peux utiliser un code comme ci-dessous :

Dim stDocName As String Dim sDate As String '// Nom de l'état à exporter stDocName = "rpt_Classement" '// Concaténation du nom du fichier à créer sDate = "Q:" & Format(Date, "YYYYMMDD", vbMonday, vbFirstFullWeek) & ".xls" DoCmd.OutputTo acOutputReport, stDocName, acFormatXLS, sDate

Cordialement

3stone

Réponse n° 2 -------- le 02/07/2012 : 08:24 par lionel34 visiteur	Bonjour Merci de ta réponse rapide et pour ton code juste une petite question Pour un débutant comme moi ou dois-je taper le chemin d’accès pour l’enregistrement Par exemple « G:\base FDF 2012 » Merci encore Cordialement

Réponse n° 3 -------- le 02/07/2012 : 09:25 par lionel34 visiteur	Bonjour je m’excuse pour la mise en page de mon dernier message Donc pour info je viens de répondre à mon dernier mail , j'ai testais ton code il marche parfaitement encore merci Cordialement

Réponse n° 4 -------- le 03/07/2012 : 21:06 par 3Stone Administrateur	Bonjour, Si tu souhaite sélectionner le répertoire dans lequel le fichier sera sauvé, tu peux utiliser cette fonction. Cordialement

Réponse n° 5 -------- le 04/07/2012 : 09:50 par lionel34 visiteur	Bonjour J’aimerai améliorer le code que tu m’as donné il est parfait pour touts mes états journalier Mais j’en ai un qui risque d’être enregistré plusieurs fois par jour tout en laissant la date du jour es ce que je peux inclure un numéro par exemple « 201207041 ; 201207042 ……….. » J’espère avoir été claire dans ma question Merci d’avance Cordialement

Réponse n° 6
--------
le 04/07/2012 : 12:39
par 3Stone

Anonyme

Administrateur

Bonjour,

Le plus simple, est de rajouter l'heure à ce nom de fichier.
J'ai adapté le code pour rendre cela plus clair pour toi. Pour le formatage de l'heure, on utilise HH pour les heures, NN pour les minutes et SS pour les secondes.

Cela devient donc :

Code :

    Dim stDocName As String
    Dim sDate As String
    Dim sTime As String
    Dim sFile As String
   
    '// Nom de l'état à exporter
    stDocName = "rpt_Classement"
    sDate = Format(Date, "YYYYMMDD", vbMonday, vbFirstFullWeek)
    sTime = Format(Time, "HHNNSS")
   
    '// Concaténation du nom du fichier à créer
    sFile = "Q:\" & sDate & "-" & sTime & ".xls"
   
    DoCmd.OutputTo acOutputReport, stDocName, acFormatXLS, sFile

Cordialement

3stone

Réponse n° 7 -------- le 04/07/2012 : 13:31 par lionel34 visiteur	Re bonjour Merci pour ces précieux renseignements et félicitation Pour la rapidité et le sérieux de ce site Encore merci Cordialement Lionel

sujet actif clos

sujet clos

Important! Nouveau

Nouveau message -

Rectifier message

Clôturer sujet

Remonter