J'aimerais savoir par exemple comment copier le contenu le la case A1  dans un document Word  
 
Merci

Tu veux passer par le presse papier pour que dans Word tu puisse le récupérer ou ien le faire en live & direct ???

Par DDE çà marche sûr mais c un peu veillot et même pas sur que tu puisses écrire exactement où tu veux.
Je chercherais du côté OLE
 
Mais j'ai jamais fait çà.

hum...je ve juste qq ch qui marche

Donne-moi juste des infos en plus car j'pense avoir une soluce...
 
- Tu code dans Excel ?
- Tu sais obtenir une variable Word.Application ???

en fait comme avec le publipostage ca marche pas  
je le contourne
je ve copier tte mes donnees ds une feuille excel
puis je copie tt le contenu de cette feuille ds un document Word  
 
J ai essaier la Macro automatique  maís comme je suis dans Excel (oui je code ds Execl) il me prends pas en compte le "coller " ds Word ggrrr
 
non je sais pas obtenir une variable Word application
 
Merci pour ton aide

J'ai pas tester, c'est juste une idée ou une piste :
 
Set Woffer = GetObject(, "Word.Application" )
 
Woffer.Application.Selection.Text = TaCellule
 
ou
 
Woffer.Selection.Text = TaCellule
 
Y a surement des trucs à rajouter ou à modifier...

[edtdd]--Message édité par Bendes--[/edtdd]

j'essai ca  tt de suite on verra

ca marche pas ca  
 
Woffer.Application.Selection.Text = TaCellule
 
ou
 
Woffer.Selection.Text = TaCellule
 
t'as pas une autre idee?
Merci

Comme j'ai dit, j'ai pas testé, ça devrais te servir de piste...
 
Et j'ai pas autre idée...

Explique-moi tj le comportement ou l'erreur...On ne sait jamais que peut me donner une idée...

[edtdd]--Message édité par Bendes--[/edtdd]

ben ca selectionne tout conne ca devrait  
je lance la macro pas a pas et tt vas mais le prob c que ca copie rien ds le .doc
 
je pense qu il fo essayer PasteSpecial  mais je connais pas la syntaxe

Si c'est pas "top secret", tu sais pas me lacher l'essentiel de ton code ??? En y jettantu coup d'oeil, se sera plus facile pour t'ider...

ok
 
Sub Copie()
 
Dim Wordoffer As String
Dim Woffer As Object
 
Wordoffer = ThisWorkbook.Sheets("Offer" ).[fileCopie]
 
  On Error Resume Next
Set Woffer = GetObject(, "Word.Application" )
Set Woffer = GetObject(ThisWorkbook.Path + "\" + Wordoffer)
 
Woffer.Application.Visible = True   ' Open  Word
Woffer.Application.Activate
 
   Range("A1:H25" ).Select
   Selection.Copy
 
 
 
Woffer.Application.Selection.PasteSpecial = Range("A1:H25" )
 
' ca c est pr copier de excel ds excel ca marche
With Worksheets("offer" )
    .Range("C1:C5" ).Copy
    .Range("D1:D5" ).PasteSpecial
 
End With
 
 
 Set Woffer = Nothing
 
End Sub

zut ca a fait un smiley  c pas volontaire[quote]

ou bien

bingo  merci  la premiere soluc est la bonne  ca marche  merci bcp Bendes  

De rien, ça met un peu de temps mais j'suis pas expert en VBA, j'connais un peu plus en VBA Word (car j'suis sur un projet là-dedans) mais en VBA Excel, j'y connais rien ('fin c'est + ou - la même chose que VBA Word à part quelque objets...) !!!

en tout cas Merci
 
euh...et pour efaccer tt un document Word
 
Woffer.Application.Selection.Delete  marche pas  
 
t'as une idee?

Faut que je regarde...

Ds Word ca donne ca  
 
    Selection.WholeStory
    Selection.Delete Unit:=wdCharacter, Count:=1
 
mais ds Excel ???

Moi j'ai un truc du style :
 
Woffer.Application.ActiveDocument.Select
Woffer.Application.Selection.Delete

je viens de trouver  
 
Woffer.Application.Selection.WholeStory
Woffer.Application.Selection.Delete Unit:=wdCharacter, Count:=1
 
 
mais je test le tiens

les deux marchent  mais ta version est plus propre  et je gagne une seconde  lol
 
Merci mille fois