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

  1. #1
    Membre du Club
    Inscrit en
    août 2006
    Messages
    135
    Détails du profil
    Informations forums :
    Inscription : août 2006
    Messages : 135
    Points : 43
    Points
    43

    Par défaut Macro- recuperer valeur liste deroulante et case puis enregistrer le document avec ce nom

    bonjour,

    Je suis en train de creer un document type sous word.
    La personne doit rentrer un titre de son choix et choisir un nom de categorie dans une liste deroulante.

    Je voudrais en appuyant sur un bouton que le fichier soit enregistré avec "nom du titre - date" et que le chemin d'enregistrement soit un sous dossier ayant comme nom le nom de la categorie.

    J'ai essayé de chercher sur le net les differnetes macros. Mais je bloque car il me dit "le membre de la collection requis n'existe pas". la liste déroulante a comme titre et balise "categorie"

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    Sub enregist()
     
    Select Case ActiveDocument.FormFields("categorie").Result
     
    End Select
     
     
    MsgBox ActiveDocument.FormFields("categorie").Result
     
    ChangeFileOpenDirectory ActiveDocument.Path
    ActiveDocument.SaveAs FileName:=ActiveDocument.FormFields("categorie").Result & Format(Date, "yy") & Format(Date, "mm") & Format(Date, "dd") & Format(Time, "hhmm") & ".docx" '
    Application.Dialogs.Item(wdDialogFileSaveAs).Show
     
     
    End Sub
    Merci pour votre aide

  2. #2
    Membre du Club
    Inscrit en
    août 2006
    Messages
    135
    Détails du profil
    Informations forums :
    Inscription : août 2006
    Messages : 135
    Points : 43
    Points
    43

    Par défaut

    j'ai écrit une macro qui marche à peu pres

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Sub cat()
     
    chemin = ActiveDocument.Path
    MsgBox chemin
     
    ChangeFileOpenDirectory ActiveDocument.Path & "/" & ActiveDocument.FormFields("cat").Result & "/"
    ActiveDocument.SaveAs FileName:=ActiveDocument.FormFields("cat").Result & "-" & Format(Date, "dd MMMM yyyy") & ".docx" '
    Application.Dialogs.Item(wdDialogFileSaveAs).Show
     
    MsgBox chemin
     
    ChangeFileOpenDirectory chemin
    'ActiveDocument.Close
     
    Documents.Open ("categorie.docm")
     
    'Application.Quit
     
     
    End Sub

Discussions similaires

  1. recuperation valeur liste deroulante impossible
    Par gwendoline-bricout dans le forum Débuter
    Réponses: 2
    Dernier message: 03/12/2013, 11h26
  2. Recuperer Valeur Liste Deroulante
    Par CB56 dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 30/10/2006, 11h00
  3. Recuperer texte liste deroulante
    Par flydragon dans le forum Débuter
    Réponses: 7
    Dernier message: 06/04/2006, 17h08
  4. recuperer valeur liste deroulante + mise a jour champs input
    Par dj_kyl dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 31/03/2006, 18h42
  5. recuperer valeur liste choix multiple
    Par gabychon dans le forum Général JavaScript
    Réponses: 7
    Dernier message: 13/06/2005, 11h47

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