Sujet Précédent Sujet Suivant

Transfert de données excel à un document word

fada131 Messages postés 5 Date d'inscription mercredi 10 octobre 2007 Statut Membre Dernière intervention 10 août 2011 - 2 août 2011 à 11:08
fada131 Messages postés 5 Date d'inscription mercredi 10 octobre 2007 Statut Membre Dernière intervention 10 août 2011 - 10 août 2011 à 16:44

Bonjour,

Je souhaiterais pouvoir via des données écrites dans mes feuillets (du document excel concerné), les exportés vers des signets d'un document word (nommés respectivements).

Donc en fait le fonctionnement général du "système":
Je souhaite créer une proposition commerciale via un document word existant (la trame de la propal). Pour cela, j'utilise des textbox,combobox,checkbox afin de la personnaliser. Ces choix définis par ces useforms doivent faire appel à des cellules ou lien hypertexte dans ce doc excel (ou word associé).
Actuellement j'ai essayé diverses méthodes grâce à internet, mais sans succès... (affichage de diverses erreur insolubles pour un novice en VBA comme moi).

voici la trame de mon programme la dernière erreur connue à ce jour étant la 424.

Private Sub EDIT_PROPAL_Click()

Dim xlapp As Excel.Application
Dim xlwb As Excel.Workbook
Dim xlsh As Excel.Worksheet
Dim wapp As Word.Application
Dim wdoc As Word.Document
Dim sttemp As String, ligne As Integer, malistedesignet As Variant, sttemp1 As String, sttemp2 As String

'liste des signets qui correspond également au nombre de valeurs à récupérer'
malistedesignet = Array("CUSTOMER", "AIRCRAFT", "AIRCRAFT_MSN") 'les signets supplémentaires doivent être ajoutés ici'

Set xlapp = New Excel.Application
Set xlwb = xlapp.Workbooks.Open("C:\Users\Vnc\Documents\XXX\ebauche 2.xlsm")
Set xlsh = xlwb.Sheets("feuil4")
Set wapp = CreateObject("word.application")
Set wdoc = wapp.Documents.Open("C:\Users\Vnc\Documents\XXX\AIRCRAFT MODELE1.docx")
wapp.Visible = False

'on boucle sur la liste'
For ligne = 0 To UBound(malistedesignet) 'ubound sert à compter le nombre de valeur contenu dans la variable "malistedesignet"
'on récupère les valeurs dans le fichier excel'
sttemp = xlsh.Range("A1")
sttemp1 = xlsh.Range("A2")
sttemp2 = xlsh.Range("A4")
'trf du contenu de la cellule vers le signet'
Call signet_customer(malistedesignet(ligne), sttemp)
Call signet_aircraft(malistedesignet(ligne), sttemp2)
Call signet_msn(malistedesignet(ligne), sttemp1)
Next

wapp.Visible = True
xlwb.Close
xlapp.Quit
Set xlwb = Nothing
Set xlapp = Nothing

End Sub

sachant que les call sont associés à:

sub signet_customer(byval CUSTOMER as string, byval CUSTOMER_VALEUR as string)
if wapp.activedocument.bookmarks(CUSTOMER).select
wapp.selection = CUSTOMER_VALEUR
wapp.slection.bookmarks.add name:= CUSTOMER, range:=selection.range
wapp.selection.moveright unit:=wdcharacter, count:=1
end if
end sub

voila mon chantier :x HELP ! lol

A voir également:

Transfert de données excel à un document word
Extraire des données d'un fichier excel avec python ✓ - Forum Python
Base de données e-commerce - Forum PHP
Connexion base de données - Conseils pratiques -PHP
Php word ✓ - Forum PHP
Arctan excel ✓ - Forum Visual Basic 6

1 réponse

Réponse 1 / 1

fada131 Messages postés 5 Date d'inscription mercredi 10 octobre 2007 Statut Membre Dernière intervention 10 août 2011
10 août 2011 à 16:44

Nobody ? :/

Discussions similaires

Erreur de conversion du type de données varchar en numeric.

Extraire une donnée d'une cellule excel avec python

Faire un copier-coller depuis Excel vers Word via une macro ?

Automatiser un publipostage dans Word à partir d'une BD d'Excel

[Catégorie modifiée VB6 --> VBA] lancer un publipostage de excel vers word a par

Votre réponse

Discussions similaires