1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Chef de projet en SSII
    Inscrit en
    novembre 2012
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Chef de projet en SSII

    Informations forums :
    Inscription : novembre 2012
    Messages : 1
    Points : 1
    Points
    1

    Par défaut VBA [Mise à jour] d'un [champ] dans une [zone de texte]

    Bonjour

    J'abandonne rarement mais là j'abdique. Je souhaite juste avant la création d'un document word en vba mettre à jour un champ. Jusqu'ici rien de difficile surtout si ce champ se trouve dans le corps principal du document.

    Pour ce qui est des entêtes et pieds de page avec un peu d' habileté on y parvient en bouclant sur les "ActiveDocument.Sections" , sur les Footers, les Headers et enfin sur les Range.Fields pour faire des .Update

    PAR CONTRE pour ce qui est des zones de texte (shape), rien à faire je n'y parviens pas.
    J'arrive à sélectionner le contenu d'une zone, à en modifier les propriétés (couleur, fond, ...) même à selectionner les champs d'une zone, mais le .update ne fonctionne pas ni en direct ni après une sélection. Et je n'ai rien trouvé sur le web qui fonctionne. Par contre une fois le document créé le F9 après sélection fonctionne !

    D'où ma question: est-il possible en codage vba de mettre à jour un champ qui se trouve dans une zone de texte (shape). (pour info ce champ contient le lien vers une image INCLUDEPICTURE tiré d'une base de donnée excel)

    Merci de vos réponses

  2. #2
    Membre habitué
    Inscrit en
    avril 2008
    Messages
    71
    Détails du profil
    Informations personnelles :
    Localisation : Autre

    Informations forums :
    Inscription : avril 2008
    Messages : 71
    Points : 130
    Points
    130

    Par défaut

    Bonjour dskrabo, le forum,

    Tu peux essayer en adaptant ce code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Sub Test()
    Dim l_o_shp As Shape
        Set l_o_shp = ActiveDocument.Shapes(1)
        l_o_shp.TextFrame.TextRange.Fields(1).Update
        Set l_o_shp = Nothing
    End Sub
    Je viens de faire un essai avec un champ NUMPAGES dans une Shape et cela semble fonctionner...

    Bonne journée

Discussions similaires

  1. Réponses: 7
    Dernier message: 20/02/2012, 10h01
  2. [WD14] Mise à jour d'un champ dans une table
    Par forgotten dans le forum WinDev
    Réponses: 2
    Dernier message: 16/03/2011, 11h34
  3. Mise à jour d'un champ dans une session
    Par marry dans le forum Débuter
    Réponses: 7
    Dernier message: 13/10/2009, 12h06
  4. Réponses: 3
    Dernier message: 03/03/2008, 16h33

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