eurêka tableau word et excel

[jpcwe]

bonjour,

Grâce à charly ( pour le lien)
Mais surtout à Michel et son lien WIKI voilà un petit usf qui permet de remplir deux tableaux avec les données d'un tableau excel.

Points particuliers: le tableau Word doit être suffisamment dimensionné pour éviter les erreurs de remplissage.
Je n'ai pas encore assez de maturité excel et word pour dimensionner le tableau word en fonction des données excel ( ça doit -être possible me souffle ma petite voix intérieure)

En piéce jointe un tableau excel et un word qui se remplit automatiquement dés click sur bouton.
les deux fichiers doivent être dans le même dossier

s'il faut d'autres explications n'hésitez pas chuis dispo

A+++
File Attach [file name=REMPLITABLEAUX_20060317121611.zip size=19916]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/REMPLITABLEAUX_20060317121611.zip[/file]

 

[MichelXld]

bonsoir jpcwe

bravo et félicitations pour ta démo Excel/Word


pour créer un tableau dynamiquement dans le document Word , tu peux tester

'Necessite d'activer la reference Microsoft Word xx.x Object Library
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim Lignes As Integer

Lignes = Sheets('Feuil1').Range('A65536').End(xlUp).Row

Set wordApp = CreateObject('word.application')
wordApp.Visible = True
Set wordDoc = wordApp.Documents.Open(ThisWorkbook.Path & '\\\\\\\\doc1.doc')

wordDoc.Tables.Add wordDoc.Range(0, 0), NumRows:=Lignes, NumColumns:=3


et pour supprimer l'ancienne table :

wordDoc.Tables(0).Delete


bonne soirée à toi
MichelXld

Message édité par: michelxld, à: 17/03/2006 17:58

 

[jpcwe]

merci,

je m'en vais le tester de suite,

euh non je vais me coucher et je testerai demain
bonne nuit