Je cherche =E0 copier un tableau d'Excel vers Word.
Je souhaite que ce tableau ait une taille tr=E8s pr=E9cise, pour ensuite
=EAtre int=E9gr=E9 dans PowerPoint (et prendre toute la largeur et toute la
hauteur d'une diapo).
Je suis sous Office 2000.
Pour coller sous Word un tableau sous forme d'image, je vois trois
possibilit=E9s d'images :
- DataType:=3DwdPasteEnhancedMetafile
- DataType:=3DwdPasteBitmap
- DataType:=3DwdPasteMetafilePicture
or avec le code suivant, sous Excel,
DocApp.Selection.PasteSpecial
seul DataType:=3DwdPasteEnhancedMetafile fonctionne.
Avec DataType:=3DwdPasteBitmap j'ai l'erreur 4605 "Cette m=E9thode ou
propri=E9t=E9 n'est pas disponible car aucun texte n'a =E9t=E9 s=E9lection=
n=E9"
Avec DataType:=3DwdPasteMetafilePicture j'ai l'erreur 5342 "Le type de
donn=E9es sp=E9cifi=E9 est indisponible"
Avec DataType:=3DwdPasteEnhancedMetafile ca fonctionne, sauf que mon
image n'est plus =E0 la bonne taille.
Je souhaiterai pouvoir utiliser wdPasteBitmap qui semble, lorsque je
le fais =E0 la main, la seul m=E9thode qui concerve les proportions de
l'image (je pourrais la redimensionner ensuite, mais je perds les
proportions)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FFO
Salut à toi
Ce code recopie une sélection de cellules dans un nouveau document word au format Bitmap :
Dim oWdApp As Object Dim WordDoc As Word.Document Selection.Copy 'Lancer Word Set oWdApp = CreateObject("Word.Application") With oWdApp 'Afficher Word si nécessaire... .Visible = True 'Ouvrir un nouveau document Word Set WordDoc = oWdApp.Documents.Add 'Coller au format Bitmap dans le nouveau document .Application.Selection.PasteSpecial DataType:=wdPasteBitmap End With
Fais des essais et dis moi !!!!!!
Salut à toi
Ce code recopie une sélection de cellules dans un nouveau document word au
format Bitmap :
Dim oWdApp As Object
Dim WordDoc As Word.Document
Selection.Copy
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir un nouveau document Word
Set WordDoc = oWdApp.Documents.Add
'Coller au format Bitmap dans le nouveau document
.Application.Selection.PasteSpecial DataType:=wdPasteBitmap
End With
Ce code recopie une sélection de cellules dans un nouveau document word au format Bitmap :
Dim oWdApp As Object Dim WordDoc As Word.Document Selection.Copy 'Lancer Word Set oWdApp = CreateObject("Word.Application") With oWdApp 'Afficher Word si nécessaire... .Visible = True 'Ouvrir un nouveau document Word Set WordDoc = oWdApp.Documents.Add 'Coller au format Bitmap dans le nouveau document .Application.Selection.PasteSpecial DataType:=wdPasteBitmap End With
Fais des essais et dis moi !!!!!!
FdeCourt
Hello,
Merci pour ton aide. La seule chose que j'ai modifié c'est : - Mettre la selection.copy juste avant la ligne Application.Selection.PasteSpecial DataType:=wdPasteBitmap car au moment ou j'instancie le document Word, la copie s'annule dans Excel - Mettre screenUpdating = True, sinon je ne fait que copier un rectangle blanc.
Encore merci
Cordialement,
F.
On 26 nov, 09:33, FFO wrote:
Salut à toi
Ce code recopie une sélection de cellules dans un nouveau document word au format Bitmap :
Dim oWdApp As Object Dim WordDoc As Word.Document Selection.Copy 'Lancer Word Set oWdApp = CreateObject("Word.Application") With oWdApp 'Afficher Word si nécessaire... .Visible = True 'Ouvrir un nouveau document Word Set WordDoc = oWdApp.Documents.Add 'Coller au format Bitmap dans le nouveau document .Application.Selection.PasteSpecial DataType:=wdPasteBitmap End With
Fais des essais et dis moi !!!!!!
Hello,
Merci pour ton aide.
La seule chose que j'ai modifié c'est :
- Mettre la selection.copy juste avant la ligne
Application.Selection.PasteSpecial DataType:=wdPasteBitmap car au
moment ou j'instancie le document Word, la copie s'annule dans Excel
- Mettre screenUpdating = True, sinon je ne fait que copier un
rectangle blanc.
Encore merci
Cordialement,
F.
On 26 nov, 09:33, FFO <F...@discussions.microsoft.com> wrote:
Salut à toi
Ce code recopie une sélection de cellules dans un nouveau document word au
format Bitmap :
Dim oWdApp As Object
Dim WordDoc As Word.Document
Selection.Copy
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir un nouveau document Word
Set WordDoc = oWdApp.Documents.Add
'Coller au format Bitmap dans le nouveau document
.Application.Selection.PasteSpecial DataType:=wdPasteBitmap
End With
Merci pour ton aide. La seule chose que j'ai modifié c'est : - Mettre la selection.copy juste avant la ligne Application.Selection.PasteSpecial DataType:=wdPasteBitmap car au moment ou j'instancie le document Word, la copie s'annule dans Excel - Mettre screenUpdating = True, sinon je ne fait que copier un rectangle blanc.
Encore merci
Cordialement,
F.
On 26 nov, 09:33, FFO wrote:
Salut à toi
Ce code recopie une sélection de cellules dans un nouveau document word au format Bitmap :
Dim oWdApp As Object Dim WordDoc As Word.Document Selection.Copy 'Lancer Word Set oWdApp = CreateObject("Word.Application") With oWdApp 'Afficher Word si nécessaire... .Visible = True 'Ouvrir un nouveau document Word Set WordDoc = oWdApp.Documents.Add 'Coller au format Bitmap dans le nouveau document .Application.Selection.PasteSpecial DataType:=wdPasteBitmap End With
