copier coller cellule excel dans word à partir d'excel

copier coller cellule excel dans word à partir d'excel - VB/VBA/VBS - Programmation

Marsh Posté le 19-06-2007 à 14:39:13    

je désire insérer dans word le contenu d'une cellule excel.
J'arrive à copier coller la cellule mais pas le contenu.
 
Je ne sais pas comment lui dire de copier juste le contenu de la cellule.
 
Voici une partie du code:
Range("A18" ).Copy
 
With appWord
 
.Selection.HomeKey Unit:=wdStory 'envoie en début de page
'recherche du signet
.Selection.Goto What:=wdGoToBookmark, Name:="rqph11"
End With
 
appWord.Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:=wdInLine, DisplayAsIcon:=False
 
 
Merci d'avance pour votre aide
 

Reply

Marsh Posté le 19-06-2007 à 14:39:13   

Reply

Marsh Posté le 19-06-2007 à 15:10:33    

zoreye a écrit :


J'arrive à copier coller la cellule mais pas le contenu.


 :sweat:  
ca te fait un tableau a une cellule vide alors ?  :pt1cable:

Reply

Marsh Posté le 19-06-2007 à 15:54:59    

Non ça me donne une cellule avec ses bordures et son contenu correct.
 
Je pourrais mettre les bordures en blancs et on y verrait que du feu sur word :whistle: mais l'objectif est que le document word soit modifiable après coup. Et ce n'est pas le cas pour l'instant. :sweat:    
 

Reply

Marsh Posté le 19-06-2007 à 16:01:06    

si c'est le contenu qui t'intéressé fais un
dim temp as variant
temp = range("A1" ).value
et copie temp

Reply

Marsh Posté le 19-06-2007 à 18:01:18    


J'ai fait ceci et il me met une erreur 424 à l'endroit ou je copie?
 
Dim Temp As Variant
Temp = Range("A18" ).Value
Temp.Copy (erreur 424)

Reply

Marsh Posté le 19-06-2007 à 18:09:18    

temp.copy sert à rien
 
par contre tu peux faire une insertion de texte dans ton word
quelque chose comme
je_ne_c_+_koi.add temp

Reply

Marsh Posté le 20-06-2007 à 09:48:11    

En fait je sais déjà faire l'insertion de texte.
Je crée un signet (bookmark) sur word. Et je dis à vba de rechercher ce signet et de mettre ce que vba a copié à l'emplacement de ce signet. (premier code que j'avais envoyé)
 
Ce qu'il faudrait c'est pouvoir selectionner Temp
 

Reply

Marsh Posté le 20-06-2007 à 10:38:38    

J'ai essayé de mettre de mettre  
appWord.Add Temp
après ma recherche de signets mais il me dit membre de méthode ou de données introuvable

Reply

Marsh Posté le 20-06-2007 à 11:50:37    

ok ca marche merci beaucoup de ton aide
après recherhce du signet
je fais:appWord.Selection.TypeText Text:=Temp

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed