copier coller cellule excel dans word à partir d'excel - VB/VBA/VBS - Programmation
Marsh Posté le 19-06-2007 à 15:10:33
zoreye a écrit : |
ca te fait un tableau a une cellule vide alors ?
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 mais l'objectif est que le document word soit modifiable après coup. Et ce n'est pas le cas pour l'instant.
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
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)
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
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
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
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
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