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 :

Macro pour ajouter l'heure dans le nom du classeur [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    33
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Octobre 2010
    Messages : 33
    Par défaut Macro pour ajouter l'heure dans le nom du classeur
    Bonjour,

    J'ai créé un formulaire de demande de transport de marchandise. Le but est que les gens cliquent sur un bouton et le mail part directement avec la pièce jointe vers le bon destinataire tout en s'enregistrant dans un dossier.

    Actuellement, le formulaire s'enregistre avec la date du jour, ce qui est déjà pas mal. Le problème est que plusieurs formulaires sont susceptibles d'être envoyés le même jour, ce qui complique les choses car forcément, ils s'écrasent les uns les autres...

    Vous me direz, les gens peuvent renommer et déplacer leurs fichiers au fur et à mesure... Oui, mais vont-ils le faire ?

    Ce serait donc génial que l'heure s'ajoute dans le nom du fichier, ainsi plus de problème...

    Merci pour vos éventuelles réponses !

  2. #2
    Membre Expert
    Avatar de zazaraignée
    Profil pro
    Étudiant
    Inscrit en
    Février 2004
    Messages
    3 174
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Février 2004
    Messages : 3 174
    Par défaut
    Essaie avec la fonction Now. Pour les formats il y a la focntion Format.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    dim heure as String
    heure = Format(Now, "##:##")
    quoique je croie que le format avec ":" ne fonctionnera pas dans un nom de fichier.

    l'aide fournit l'info sur le formatage des nombres.

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    33
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Octobre 2010
    Messages : 33
    Par défaut
    Merci

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    33
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Octobre 2010
    Messages : 33
    Par défaut
    Voici ce que cela donne :
    nom0702201140582

    140582 correspondrait à quoi ?

  5. #5
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 166
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 166
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Le format est à modifier
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
     Dim Nom As String
     Nom = Format(Now, "yymmdd-hh:mm")
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  6. #6
    Expert confirmé
    Avatar de MarcelG
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2009
    Messages
    3 449
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2009
    Messages : 3 449
    Billets dans le blog
    7
    Par défaut HEURE
    Bonsoir, Bonsoir le Forum

    Je pense que tu as obtenu la date entière.

    Essaie


  7. #7
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    33
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Octobre 2010
    Messages : 33
    Par défaut
    Voici ma macro complète :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Sub Macro1()
     
    ActiveWorkbook.SaveAs Filename:="U:\transport" & Format(DateAdd("D", 0, Date), "DDMMYYYY") & ".xls"
    ActiveWorkbook.SendMail Recipients:=Array("raths@foyer-handicap.ch"), Subject:="demande de livraison"
    ActiveWorkbook.Close '
    ' Macro1 Macro
    '
     
    '
    End Sub
    J'ai essayé de rajouter l'heure mais cela ne fonctionne pas car cela me dit qu'un fichier existe déjà... Est-ce que cela veut dire que la commande format "now" ajoute uniquement l'heure et non les minutes ?

  8. #8
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    33
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Octobre 2010
    Messages : 33
    Par défaut
    Super, ça marche mais sans les ":" !

    Merci beaucoup et cordialement,

    Emmanuelle

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2007] Macro pour ajouter 24 heures à une plage donnée
    Par Elouan.pecheur dans le forum Excel
    Réponses: 3
    Dernier message: 02/07/2014, 18h35
  2. [XL-2007] Macro pour ajouter du texte dans le corps du mail
    Par EmmanuelleFFH dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 10/02/2011, 10h37
  3. Macro pour ajouter une ligne dans une feuille automatiquement
    Par nianko dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 09/11/2010, 09h52
  4. Commande pour ajouter une sauvegarde dans une macro
    Par Tinien dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 12/09/2008, 14h03
  5. Macro pour ajouter un nouvel élément dans un tableau
    Par dudu134 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 21/02/2007, 16h31

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