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

did1970 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

Réponse 1 / 1
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   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