1. #1
    Nouveau membre du Club
    Inscrit en
    août 2006
    Messages
    96
    Détails du profil
    Informations forums :
    Inscription : août 2006
    Messages : 96
    Points : 35
    Points
    35

    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
    Nouveau membre du Club
    Inscrit en
    août 2006
    Messages
    96
    Détails du profil
    Informations forums :
    Inscription : août 2006
    Messages : 96
    Points : 35
    Points
    35

    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, 12h26
  2. Recuperer Valeur Liste Deroulante
    Par CB56 dans le forum JavaScript
    Réponses: 2
    Dernier message: 30/10/2006, 12h00
  3. Recuperer texte liste deroulante
    Par flydragon dans le forum Débuter
    Réponses: 7
    Dernier message: 06/04/2006, 18h08
  4. Réponses: 4
    Dernier message: 31/03/2006, 19h42
  5. recuperer valeur liste choix multiple
    Par gabychon dans le forum JavaScript
    Réponses: 7
    Dernier message: 13/06/2005, 12h47

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