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 :

[VBA-A/E]gen doc avec images ref. ds excell ou access


Sujet :

Macros et VBA Excel

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

    Informations forums :
    Inscription : Janvier 2006
    Messages : 21
    Points : 14
    Points
    14
    Par défaut [VBA-A/E]gen doc avec images ref. ds excell ou access
    Bonjour,

    contexte :
    une base de données PT (Access ou Excell) avec x enregistrements contenant chacun des informations texte et autres + le nom d'un fichier image correspondant à l'item.

    But :
    Générer un document word avec une page par enregistrement de la Base de données PT reprenant les informations texte et autre ET l'image référencée.
    Accessoirement, certaines informations seront définies comme Titre 1, titre 2 etc...
    Un sommaire sera rajouté une fois ce doc généré (peut être fait "à la main").

    Question :
    A votre connaissance; y a-t'il moyen d'inserer une image variable avec la fonction mailing de Word(j'ai cherché et point trouvé) ?
    Si non; comment programmer une macro qui défile tous les enr de ma Base pour générer un doc word et inserer mes images automatiquement ?


    Merci pour votre aide

    Tinous

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

    Informations forums :
    Inscription : Janvier 2006
    Messages : 21
    Points : 14
    Points
    14
    Par défaut je reformule : mailmerge "améloiré"
    je vais essayer de formuler autrement :

    si j'enregistre en macro le mailmerge de word je constate que pour inserer mon champ "file"; l'instruction est :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
        ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="file" '(***)
    pour info mon champ file (***) contient pour chaque enr. les coordonées du fichier image à inserer (U:\WORD\A\Ma\CHE-01-D2.png par expl)

    d'autre part pour inserer une image "fixe" l'instruction est :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
      Selection.InlineShapes.AddPicture FileName:= _
            "U:\WORD\A\Ma\CHE-01-D2.png", LinkToFile:=False, _
            SaveWithDocument:=True
    si je peaufine je peux arriver à :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
        aaa = "U:\WORD\A\M\CHE-01-D.png" '**aaa**
     
        Selection.InlineShapes.AddPicture FileName:=aaa, LinkToFile:=False, _
        SaveWithDocument:=True '**aaa**
    ce qui fonctionne très très bien.

    La question est :
    comment faire en sorte que le contenu de aaa soit le contenu de mon champ file?

    merci pour votre aide

    Edit
    Bien les caractère gras ! Tu fais pareil pour le code avec les balises (*) code et /code et c'est parfait !
    (*) ajoutées par ouskel'n'or

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

Discussions similaires

  1. Réponses: 4
    Dernier message: 29/05/2017, 15h08
  2. Réponses: 1
    Dernier message: 17/02/2017, 18h23
  3. [AC-2010] Création d'un CommandButton avec Image en VBA
    Par _C14_ dans le forum IHM
    Réponses: 4
    Dernier message: 30/04/2012, 22h29
  4. [VBA Outlook] Message avec image
    Par daniel_gre dans le forum VBA Outlook
    Réponses: 2
    Dernier message: 11/02/2009, 13h41
  5. [VBA]Execution d'une procédure avec un ComboBox sur Excel
    Par delamarque dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 31/01/2006, 10h27

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