Créer un document word à partir de données excel

did1970 Messages postés 2 Statut Membre -  
fabien25000 Messages postés 697 Statut Membre -
Bonjour,
et merci d'avance.

J'ai créé dans excel un tableau
nom du groupe date de début de séjour date de fin de séjour
hotel €/pers en chambre double € en single enfant
CAMBRILS Village vacances 59 79 44
EMPURIABRAVA 3* 15 35 11

je souhaite en appuyant sur un "bouton" basculer ce tableau dans un document word qui me permettra d'automatiser la création d'un devis.

De plus en appuyant sur un autre "bouton", je souhaite ajouter une ligne au tableau récapitulatif des devis qui est fait ainsi

GROUPE date début date fin Nb pax H10 cambrils resort Xon s Panorama

SABLE 01.01.19 07.01.2019 5 52 41
ferreira 05.01.19 12.01.19 2 34 50

1 réponse

  1.
    fabien25000 Messages postés 697 Statut Membre 59
     
    Bonjour,
    tu peux créer un signet sur ton word de base et ainsi coller ton tableau au signet que tu as préalablement nommé
    ça donnerai quelque chose comme ça : 
        Dim docWord As Word.Document
    Dim appWord As Word.Application
    Dim TabTarif As Range

    Set TabTarif = Worksheets("tmptarif").Range("A1:B1")
    TabTarif.Copy

    Set appWord = CreateObject("Word.Application")
    appWord.Visible = True
    Set docWord = appWord.Documents.Open(chemin de ton fichier.docx", ReadOnly:=False)

    docWord.Bookmarks("montab").Select 'C'est ici que le signet nommé "montab" est utilisé pour positionner le tableau sur ton word
    appWord.Selection.PasteSpecial link:=True, DataType:=wdPasteOLEObject, Placement:=wdInLine, DisplayAsIcon:=False
    docWord.Tables(1).AutoFitBehavior wdAutoFitWindow
    Application.CutCopyMode = False

    pour ce qui est de rajouter une ou deux ligne à ton tableau reviens avec ton code si tu n'y arrive pas
    0