none
copie de données EXCEL vers WORD via base ACCESS RRS feed

  • Question

  • Bonjour,

    je développe une application via ACCESS 2013 et effectue du publipostage.

    Je dois créer un document Word avec d'une part des données provenant d'une table ACCESS ( là pas de problème), mais je dois dans le même code insérer un tableau EXCEL sur ce même document via la ligne :

           appword.selection.MoveDown Unit:=wdLine, Count:=80

    Hors le document Word à deux pages et je n'arrive pas à copier les données EXCEL au delà de la première page, c'est à dire Count = 50.

    Comment peut-on passer ce problème.

    Merci d'avance.Cordialement

    samedi 8 octobre 2016 15:35

Toutes les réponses

  • Bonjour,

    Vous devriez utiliser un modèle Word (*.dotm) dans lequel se trouvent deux signets :

    1. un pour la partie texte
    2. l'autre pour la partie tablea

    sur la page de votre choix...

    Vous procédez alors à l'accès à l'un et l'autre signet...

    Pour écrire du texte :

    DocWord.Bookmarks.Item(strBookmarkName).Range.Fields.Item(1).Result.Text = "Ce que vous souhaitez écrire"


    Pour insérer un tableau Excel :

    AppWord.Selection.GoTo What:=-1, Name:="signetTableau"
    AppWord.Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.12", LinkToFile:=False, DisplayAsIcon:=False


    Argy

    mercredi 26 octobre 2016 17:45
    Modérateur