please help importer des datas excel-->word

Bonjour

mon problème semblera peut être tout simple

Moi, je dirais plutôt incompréhensible

macro qui importerait depuis excel dans une feuille word un image, un
texte, un graphique et un tableau.

Donc, si ta macro importe dans Word, elle est dans Word, non ?

pour le tableau je n'arrive pas à le créer depuis excel.

Quelle sorte de tableau. Une plage de feuille de calcul Excel insérée ou
liée par copier-coller, ou un vrai tableau Word, créé directement dans Word
?

j'ai créé
une macro directement dans word que je lance depuis excel

Tu la lances de quelle façon? Il doit y en avoir au moins 2 ou 3.

de plus je n'arrive pas à insérer le contenu de cellules
excel dans le tableau word que je voudrais créer...

En principe un simple copier-coller devrait suffire.

.je voudrai donc créer un tableau et y insérer des données le tout
depuis excel dans word.

Donc, ce serait pour exporter, pas pour importer ?

pour mon taf

Ce ne sont pas tous les gens qui connaissent l'argot parisien...




"damian" <gayeveroc@hotmail.fr> a écrit dans le message de news:
1147786553.132147.238910@j73g2000cwa.googlegroups.com...
bonjour ,
mais
qui ne me
plaît pasY'a-t'il quelqu'un pour sauver mon scalp ?

Bonsour® Clément Marcotte avec ferveur ;o))) vous nous disiez :

pour mon taf
Ce ne sont pas tous les gens qui connaissent l'argot parisien...

;o))

ce n'est pas de l'argot c'est un acronyme (*) pour "Travail A Faire"
l'argot serait plutot "turbin"

(*) ne pas confondre avec raf : "Rien A F...tre"
en argot dans ce dernier cas on dirait rab : "Rien A br..ler"

si c'est Word qui pilote la macro, alors l'aide se trouvera là :
http://faqword.free.fr/

--
--
@+
;o)))

Bonjour,

Merci pour les précisions. Quoi qu'il en soit, si l'idéede base est vraiment
de prendre des données dans Excel, pour les afficher dans Word, cela me
semble plus logique de partir d'une macro Word, surtout, s'il faut faire un
traitement subséquent dans Word.

N'importe comment, il manque l'essentiel : le "vrai" problème. Et même le
code.



"Modeste" <nomail@nomail.net> a écrit dans le message de news:
%237h1EsReGHA.3900@TK2MSFTNGP05.phx.gbl...

Bonsour® Clément Marcotte avec ferveur ;o))) vous nous disiez :

pour mon taf
Ce ne sont pas tous les gens qui connaissent l'argot parisien...

;o))

ce n'est pas de l'argot c'est un acronyme (*) pour "Travail A Faire"
l'argot serait plutot "turbin"

(*) ne pas confondre avec raf : "Rien A F...tre"
en argot dans ce dernier cas on dirait rab : "Rien A br..ler"

si c'est Word qui pilote la macro, alors l'aide se trouvera là :
http://faqword.free.fr/

--
--
@+
;o)))

alors je vais être plus spécifique, au 'TRAVAIL', nous avons à
disposons un soft qui calcule des calculs de surfaces et ce soft est
basé sur excel et ce que je dois améliorer c'est la création d'un
rapport qui à partir des calculs effectués dans xl me permettra de
mettre en forme un rapport. dans ce rappport, on a du texte, un
graphique et un tableau. comme vous dites c'est plutôt de l'export je
me suis trompé mais je ne m'en sens pas plus bête.
voici le code que j'utilise :

Dim WordObj As Object
Dim ws As Worksheet
On Error Resume Next
Err.Number = 0
Set WordObj = GetObject(, "Word.Application.8")
If Err.Number = 429 Then
Set WordObj = CreateObject("Word.Application.8")
Err.Number = 0
End If
Sheets("surface").ChartArea.Copy

WordObj.Visible = True
WordObj.Documents.Add
'WordObj.Selection.ParagraphFormat.Alignment =
wdAlignParagraphRight
WordObj.Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab &
vbTab & vbTab & _
vbTab & vbTab & vbTab
WordObj.Selection.InlineShapes.AddPicture
Filename:="http://www.boer.com/boer1.gif", _
LinkToFile:=False, SaveWithDocument:=True
WordObj.Selection.Typeparagraph
WordObj.Selection.Typeparagraph
WordObj.Selection.Font.Name = "Arial"
WordObj.Selection.Font.Bold = False
WordObj.Selection.Font.Color = 0
WordObj.Selection.TypeText Text:="Commentaires dans le classeur: "
+ ActiveWorkbook.Name
WordObj.Selection.Typeparagraph
WordObj.Selection.TypeText Text:="Paris, fait le " + Format(Now(),
"dd-mmm-yy hh:mm")
WordObj.Selection.Typeparagraph
WordObj.Selection.Typeparagraph
WordObj.Selection.Font.Bold = True
WordObj.Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab
WordObj.Selection.TypeText Text:="Report for the search"
WordObj.Selection.Typeparagraph
WordObj.Selection.Typeparagraph
WordObj.Selection.Typeparagraph
WordObj.Selection.Font.Bold = False
WordObj.Selection.TypeText Sheets("données").Cells(67, 19).Value
WordObj.Selection.PasteandFormat (wdchartpicture)
WordObj.Selection.Typeparagraph
WordObj.Selection.Typeparagraph
WordObj.Run "macro3"

Set WordObj = Nothing
et dans macro3 dans word, j'ai :

Sub Macro3()

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=12,
NumColumns _
:=11, DefaultTableBehavior:=wdWord9TableBehavior,
AutoFitBehavior:= _
wdAutoFitContent
With Selection.Tables(1)
If .Style <> "Table Grid" Then
.Style = "Table Grid"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
Selection.TypeText Text:="gammes de fréquences"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="7"
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="8"
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="13"
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="15"
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="18"
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="23"
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="26"
Selection.MoveRight Unit:=wdCharacter, Count:=1

end sub

sauf qu'avec cela je n'arrive pas depuis excel à atteindre la cellule
que je veux en faisant insérant un code de type Selection.Move****
Unit:=wdCharacter, Count:=x et depuis word ça ne m'arrange étant que
je veux que tout soit fait par word.
et dans excel je ne veux pas utiliser le copier coller car il y a des
éléments indésirables dans le tableau de base.
je vous remercie d'avance