Tableau excel en image pour Word en VBA
FM38
-
FM38 -
FM38 -
Bonjour à tous,
Visual Basic
But du programme:
-Aller chercher un tableau excel,
-Le coller dans un fichier Word.
Voici le programme:
With Worksheets("tableau").Range("A5: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
DocWord.Bookmarks("nom").Select
AppWord.Selection.PasteSpecial , DataType:=wdPasteMetafilePicture
Application.CutCopyMode = False
Souci:
Dans mon fichier word, le tableau contient bien toutes les lignes voulu mais question colonne, il me les coupes. Lorsque je supprime des colonnes, cela marche.
Je voudrais donc savoir comment avoir toutes les colonnes sans qu'elles ne soient coupées.
Comment faire SVP?
Cordialement.
Merci d'avance
Visual Basic
But du programme:
-Aller chercher un tableau excel,
-Le coller dans un fichier Word.
Voici le programme:
With Worksheets("tableau").Range("A5: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
DocWord.Bookmarks("nom").Select
AppWord.Selection.PasteSpecial , DataType:=wdPasteMetafilePicture
Application.CutCopyMode = False
Souci:
Dans mon fichier word, le tableau contient bien toutes les lignes voulu mais question colonne, il me les coupes. Lorsque je supprime des colonnes, cela marche.
Je voudrais donc savoir comment avoir toutes les colonnes sans qu'elles ne soient coupées.
Comment faire SVP?
Cordialement.
Merci d'avance
A voir également:
- Tableau excel en image pour Word en VBA
- Tableau word - Guide
- Word et excel gratuit - Guide
- Word 2013 - Télécharger - Traitement de texte
- Trier un tableau excel - Guide
- Imprimer tableau excel sur une page - Guide
4 réponses
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
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
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.