eurêka tableau word et excel

  • Initiateur de la discussion Initiateur de la discussion jpcwe
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jpcwe

XLDnaute Nouveau
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]
 

Pièces jointes

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
Réponses
1
Affichages
2 K
W
Réponses
3
Affichages
2 K
A
Réponses
2
Affichages
2 K
A
L
Réponses
8
Affichages
2 K
laurent
L
Retour