Sujet Précédent Sujet Suivant

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

Fermé
did1970 Messages postés 2 Date d'inscription jeudi 31 janvier 2019 Statut Membre Dernière intervention 11 juin 2019 - 11 juin 2019 à 16:39
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 - 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
A voir également:

1 réponse

Réponse 1 / 1
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
Modifié le 11 juin 2019 à 17:35
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