tableau excel dans word ( BIS)

T

titin

Guest

• 17 Mars 2006

• #2

re tof bonsoir forum


peut être ceci:

Sub CopieDansWord()
Dim Wrd As Object

Range('A1:B10').Copy 'la plage à copier
On Error Resume Next
Set Wrd = GetObject(Class:='Word.Application')
On Error GoTo 0
If Wrd Is Nothing Then
Set Wrd = CreateObject('Word.Application')
Wrd.Visible = True
End If
Wrd.Documents.Open Filename:='c:\\test.doc' 'ou autre
SendKeys '^{END}'
For i = 1 To 20
Wrd.Selection.TypeParagraph
Next i

Wrd.Selection.Paste
Wrd.Selection.TypeParagraph
Wrd.ActiveDocument.Save
Wrd.Quit
Application.CutCopyMode = False

End Sub


la partie
For i = 1 To 20
Wrd.Selection.TypeParagraph
Next i
ajoute 20 lignes avant le tableau

A+

 

Vote positif 0 Vote négatif

T

titin

Guest

• 17 Mars 2006

• #3

re tof

j'ai oublié ceci à ta question précédente
laisser world ouvert?
il faut supprimer dans le macro la ligne:
Wrd.Quit


A+

 

Vote positif 0 Vote négatif

T

tof

Guest

• 17 Mars 2006

• #4

Merci titin mais non ca ne va toujours pa, je t'ai mis mon fichier word dans lequel je veux que ça s'insert, ca serait cool si tu pourrais regarder.

 

Vote positif 0 Vote négatif

T

tof

Guest

• 17 Mars 2006

• #5

re [file name=modelesimple.zip size=22447]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/modelesimple.zip[/file]

 

Pièces jointes

• modelesimple.zip

  21.9 KB · Affichages: 15

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 18 Mars 2006

• #6

Bonsoir Tof, bonsoir Titin, bonsoir à toutes et à tous

Tof, je t'ai préparé un fichier XL avec un bouton qui t'ouvre Word et ton document, puis laisse la main à une macro Word dans laquelle tu pourras ajouter des instructions : e.g. sauvegarde sous un autre nom.

Pour le test, il faudra que tu places tes 2 fichiers dans le même répertoire.

[file name=tof_20060318030643.zip size=37976]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tof_20060318030643.zip[/file]

A+

 

Pièces jointes

• tof_20060318030643.zip

  37.1 KB · Affichages: 21

Vote positif 0 Vote négatif

T

tof

Guest

• 18 Mars 2006

• #7

merci beaucoup

 

Vote positif 0 Vote négatif

T

tof

Guest

• 20 Mars 2006

• #8

Apparemment mon visual basic ne connait pas les instructions

Dim WordApplication As Word.Application
Dim WordDocument As Word.Document

Est-qu'ai préalable faut définir qqchose Si oui, comment faire SVP ??

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 20 Mars 2006

• #9

Bonjour tof, bonjour titin, bonjour à toutes et à tous

J'avais oublié de noter pour la référence à activer : Microsoft Word xx.x Object Library. Il faut aller sous l'éditeur VBA et dans le menu Outils, tu sélectionnes Références puis tu cherches la référence indiquée.

Pour moi (XL97), c'est Microsoft Word 8.0 Object Library et tout fonctionne correctement en déclarant les objets comme indiqué dans la procédure WriteInWord. Si après avoir activé la référence (ou si elle est déjà active), tu as encore un message au niveau des déclarations, tu modifies celles-ci dans le code comme suit :

Dim WordApplication As Object
Dim WordDocument As Object

Cliquez pour agrandir...

Voilà ! Ça devrait normalement fonctionner après tout ça

Tiens-nous au courant.

A+

Message édité par: Charly2, à: 20/03/2006 11:53

 

Vote positif 0 Vote négatif

T

tof

Guest

• 21 Mars 2006

• #10

Oki super maintenant ca marche du tonnerre, un gros gros merci à toi, bonne semaine à++

 

Vote positif 0 Vote négatif

T

tof

Guest

• 22 Mars 2006

• #11

comment puis-je faire pour que la premiere ligne de mon tableau que je viens de coller se répète sur les autres feuilles STP ??

Merci d'avance, à++

 

Vote positif 0 Vote négatif