A voir également:
- Tableau excel en image pour Word en VBA
- Tableau croisé dynamique - Guide
- Supprimer une page word - Guide
- Tableau word - Guide
- Liste déroulante excel - Guide
- Word excel gratuit - Guide
4 réponses
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
289
Modifié par Bidouilleu_R le 1/02/2011 à 11:18
Modifié par Bidouilleu_R le 1/02/2011 à 11:18
Voilà un exemple !
voici plusieurs liens, note que j'ai utilisé
le même principe que Daniel Joss ( on ne réinvente pas la poudre. )
http://www.excel-pratique.com/fr/liens.php?a=liens
Sub test()
Dim x1 As Integer
Dim Tab1 As Integer
Dim ObjWord As Object
Set ObjWord = CreateObject("Word.Application.8")
Tab1 = 5
With Worksheets("tableau").Range("A1:m7")
Set X = .Find(What:="donnée", LookIn:=xlValues)
x1 = X.Column
End With
Sheets("tableau").Select
Dim X2 As Range
Set X2 = Worksheets("tableau").Cells(1, 1)
X2.Resize(Tab1, x1).Select
Selection.Copy
ObjWord.Visible = True
'Ajoute un document
ObjWord.Documents.Add
' pour un document existant il faut le chemin complet
With ObjWord.Selection
.TypeParagraph
.TypeText Text:="Voilà comment faire pour écrire dans Word "
.TypeParagraph
.TypeText Text:=" Coucou .... "
.TypeParagraph
.Paste ' ici on colle le tableau
End With
ObjWord.Quit
Set ObjWord = Nothing
End Sub
voici plusieurs liens, note que j'ai utilisé
le même principe que Daniel Joss ( on ne réinvente pas la poudre. )
http://www.excel-pratique.com/fr/liens.php?a=liens
Sub test()
Dim x1 As Integer
Dim Tab1 As Integer
Dim ObjWord As Object
Set ObjWord = CreateObject("Word.Application.8")
Tab1 = 5
With Worksheets("tableau").Range("A1:m7")
Set X = .Find(What:="donnée", LookIn:=xlValues)
x1 = X.Column
End With
Sheets("tableau").Select
Dim X2 As Range
Set X2 = Worksheets("tableau").Cells(1, 1)
X2.Resize(Tab1, x1).Select
Selection.Copy
ObjWord.Visible = True
'Ajoute un document
ObjWord.Documents.Add
' pour un document existant il faut le chemin complet
With ObjWord.Selection
.TypeParagraph
.TypeText Text:="Voilà comment faire pour écrire dans Word "
.TypeParagraph
.TypeText Text:=" Coucou .... "
.TypeParagraph
.Paste ' ici on colle le tableau
End With
ObjWord.Quit
Set ObjWord = Nothing
End Sub
Les commentaires ont été supprimé???
Donc je suis toujours en recherche, j'ai fait plusieurs test, et je suis sur que l'erreur se trouve dans le collage:
"AppWord.Selection.PasteSpecial , DataType:=wdPasteMetafilePicture"
Connais-tu une autre façon de coller en mode point?
Cordialement
Donc je suis toujours en recherche, j'ai fait plusieurs test, et je suis sur que l'erreur se trouve dans le collage:
"AppWord.Selection.PasteSpecial , DataType:=wdPasteMetafilePicture"
Connais-tu une autre façon de coller en mode point?
Cordialement
14 févr. 2011 à 11:02
Mais moi tout cela fonctionne, mon souci, c'est que mes tableaux sont coupés l'ors de la création du word même avec l'option DataType:=wdPasteMetafilePicture qui permet de transformer le tableau excel en image pour le coller sur word.
Comment faire?
Merci beaucoup
14 févr. 2011 à 13:16
D'après ce que tu dis "même" une image serait coupé
une image déborde d'une feuille word si celle-ci est trop grande il suffit alors de la réduire mais elle n'est jamais coupée... je ne sais pas te répondre.