IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

récupérer la date de la veille dans trois cellules différentes


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    Mai 2008
    Messages
    147
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2008
    Messages : 147
    Points : 58
    Points
    58
    Par défaut récupérer la date de la veille dans trois cellules différentes
    Bonjour tout le monde,

    Je suis, depuis hier soir en train de copier des données de Excel vers Access, et c'est trèèèèèèèèèèèèèès long. Etant donné qu'il a un nouveau fichier tous les jours, je voudrais créer une fonction qui pourrait me permettre de récupérer la date de la veille et de mettre l'année (sous la forme AAAA), le mois (MM) et le jour (JJ) (sous forme de chiffre : 2003, 12 et 31 par exemple. Ainsi, comme mes fichiers ont pour nom la concaténation de ces données, avec les fontions Left et Right, je pourrais vérifier si le fichier a déjà été importé ou non.
    Une idée pour faire ça?
    Merci d'avance

  2. #2
    Membre éclairé
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    633
    Détails du profil
    Informations personnelles :
    Âge : 56
    Localisation : France

    Informations forums :
    Inscription : Avril 2008
    Messages : 633
    Points : 877
    Points
    877
    Par défaut
    Bonjour

    utilise

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Trim(Year(Date)) & Format(Month(Date), "00") & Format(Day(Date) - 1, "00")
    a+

  3. #3
    Membre du Club
    Profil pro
    Inscrit en
    Mai 2008
    Messages
    147
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2008
    Messages : 147
    Points : 58
    Points
    58
    Par défaut
    ça fonctionne !
    Merci beaucoup Zyhack

  4. #4
    Membre du Club
    Profil pro
    Inscrit en
    Mai 2008
    Messages
    147
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2008
    Messages : 147
    Points : 58
    Points
    58
    Par défaut
    et est-ce que ça marche le -1 si on est le 1 mai? il va bien renvoyer le 30 avril?

  5. #5
    Membre éclairé
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    633
    Détails du profil
    Informations personnelles :
    Âge : 56
    Localisation : France

    Informations forums :
    Inscription : Avril 2008
    Messages : 633
    Points : 877
    Points
    877
    Par défaut
    effectivement je n'avais pas pensé à ce cas

    utilise plutôt ceci qui sera valable dans tous les cas

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Debug.Print Trim(Year(Date - 1)) & Format(Month(Date - 1), "00") & Format(Day(Date - 1), "00")
    a+

  6. #6
    Membre du Club
    Profil pro
    Inscrit en
    Mai 2008
    Messages
    147
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2008
    Messages : 147
    Points : 58
    Points
    58
    Par défaut
    il ne reconnaît pas la fonction Debug

Discussions similaires

  1. Récupèrer la date de la veille au format US
    Par Warrer dans le forum Windows
    Réponses: 4
    Dernier message: 26/07/2012, 08h54
  2. Stocker la date de la veille dans une variable
    Par weed dans le forum VBScript
    Réponses: 2
    Dernier message: 20/01/2011, 13h53
  3. Réponses: 4
    Dernier message: 24/11/2008, 13h13
  4. Réponses: 1
    Dernier message: 16/10/2008, 17h20
  5. récupérer la date de la veille
    Par mromain dans le forum Collection et Stream
    Réponses: 3
    Dernier message: 30/04/2008, 13h06

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo