tableau excel dans word ( BIS)

[tof]

Désolé de faire remonter mon sujet mais j'aurais besoin d'une réponse assez rapidement.

Voilà le code que je dois insérer :

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}'
Wrd.Selection.Paste
Wrd.Selection.TypeParagraph
Wrd.ActiveDocument.Save
Wrd.Quit
Application.CutCopyMode = False

End Sub

Pourriez vous juste completer ceci pour que mon tableau excel se copie à un endroit précis de ma page word, ligne 20 par exemple.

Merci d'avance et encore désolé, c tres important pour moi
à++

 

[titin]

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+

 

[titin]

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+

 

[tof]

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.

 

[tof]

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

 

[Charly2]

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+

 

[tof]

merci beaucoup

 

[tof]

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 ??

 

[Charly2]

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

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

Tiens-nous au courant.

A+

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

 

[tof]

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

 

[tof]

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, à++