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

Messages postés
2
Date d'inscription
jeudi 31 janvier 2019
Statut
Membre
Dernière intervention
11 juin 2019
- - Dernière réponse : fabien25000
Messages postés
589
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
26 juin 2019
- 11 juin 2019 à 17:00
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
Afficher la suite 

1 réponse

Messages postés
589
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
26 juin 2019
46
0
Merci
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
Commenter la réponse de fabien25000