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

Word Discussion :

Enregistrer sous avec texte et date [WD-2010]


Sujet :

Word

  1. #1
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Janvier 2014
    Messages
    37
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Janvier 2014
    Messages : 37
    Points : 18
    Points
    18
    Par défaut Enregistrer sous avec texte et date
    bonjour,

    je recherche le moyen d'enregistrer un document Word avec un nom et une date.

    J'ai fais un tour sur les différents forums mais je n'ai pas trouvé de solution.

    Voici les essais infructueux que j'ai essayé. Pouvez-vous m'aider?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Dim datedujour As Date
     
    datedujour = Date - 1
    nom = "Rapport ETNA du "
     
    wordapp.ChangeFileOpenDirectory "C:\Users\mban\Desktop\rapport OEE"
    wordapp.ActiveDocument.SaveAs Filename:=nom & datedujour


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Dim datedujour As Date
     
    datedujour = Date - 1
     
    wordapp.ChangeFileOpenDirectory "C:\Users\mban\Desktop\rapport OEE"
    wordapp.ActiveDocument.SaveAs Filename:="Rapport ETNA du " & datedujour


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    wordapp.ChangeFileOpenDirectory "C:\Users\mban\Desktop\rapport OEE"
    wordapp.ActiveDocument.SaveAs Filename:="Rapport ETNA du " & Date -1
    J'ai aussi essayer d'ajouter le ".docx"

    Rien n'y fait. Ca ne passe pas, un coup de main svp.

  2. #2
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Janvier 2014
    Messages
    37
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Janvier 2014
    Messages : 37
    Points : 18
    Points
    18
    Par défaut
    Désolé j'ai oublier de mettre WORD VBA dans le titre

  3. #3
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Janvier 2014
    Messages
    37
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Janvier 2014
    Messages : 37
    Points : 18
    Points
    18
    Par défaut
    titre modifié

  4. #4
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Janvier 2014
    Messages
    37
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Janvier 2014
    Messages : 37
    Points : 18
    Points
    18
    Par défaut
    A force de persévérence j'ai trouvé la solution,

    il fallait que je force le format de la date pour que ca passe

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    wordapp.ChangeFileOpenDirectory "C:\Users\mban\Desktop\rapport OEE"
    wordapp.ActiveDocument.SaveAs Filename:="Rapport ETNA du " & Format(Date - 1, "dd-mm-yy")
    Désolé pour le post inutile en espérant que ca serve à quelqu'un.

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

Discussions similaires

  1. enregistrer sous avec nom automatique
    Par liop49 dans le forum VBA Word
    Réponses: 4
    Dernier message: 26/01/2011, 19h03
  2. "enregistrer.sous" avec un nom de fichier récupéré dans une variable
    Par mauriceguillier dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 10/10/2010, 15h49
  3. Enregistrer sous avec Bo 6.1
    Par jose54 dans le forum Débuter
    Réponses: 11
    Dernier message: 13/10/2009, 10h00
  4. "Enregistrer sous" avec chemin cible intranet
    Par Diandre dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 19/05/2008, 13h15
  5. Fenêtre Enregistrer sous avec TWebBrowser
    Par Chriss dans le forum Composants VCL
    Réponses: 2
    Dernier message: 15/03/2006, 22h01

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