Copier en image d'EXCEL et coller dans word

Version imprimable

30/09/2007, 16h06
Speed41

Copier en image d'EXCEL et coller dans word
Bonjour,

Je voudrais copier une plage de cellule en format image (car j'ai de objets) et coller l'image dans word mais ... je ne sais pas coller

Voici le début du code
Code:

1 2 3 Range("A1:L27").Select Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture Application.ActivateMicrosoftApp xlMicrosoftWord
Merci de votre aide

Nota : j'ai 4 images à copier coller les unes à la suite des autres

Un petit plus : si vous saviez ouvrir la boite de dialogue "enregistrer sous ..." de word en mettant déjà le nom du fichier ce serai super

Merci d'avance

bonjour,
cette macro copie la zone d'impression sous forme d'image.
Ouvre Word et un nouveau document
Colle limage
Enregistre le document word
Quitte Word

À toi de l'adapter à ton cas. pas le temps

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Sub CollerVersWord()
Application.ScreenUpdating = False
NomClasseur = "Nom_Classeur"
ActiveWorkbook.Worksheets("Feuil1").Activate
'on mémorise si le quadrillage est affiché
  DG = ActiveWindow.DisplayGridlines
'on enlève le quadrillage
  ActiveWindow.DisplayGridlines = False
  CC = ActiveSheet.PageSetup.PrintArea
'Copie, en tant qu'image, les cellules sélectionnées dans la feuille.
  Range(CC).CopyPicture
 
On Error Resume Next
    Set W = GetObject(Class:="Word.Application")
    If W Is Nothing Then Set W = New Word.Application: W.Visible = True: Err.Clear
On Error GoTo 0
W.ScreenUpdating = False
On Error GoTo fin
W.Activate
W.Documents.Add
Set S = W.ActiveWindow.Selection
With S  'LogoFaxFCBAT.jpg
.Paste
End With
  W.ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & Application.PathSeparator & NomClasseur
 
fin:
W.ScreenUpdating = True
Set W = Nothing
Application.ScreenUpdating = True
End Sub

il te faut une référence Microsoft Word xx.x Object Library.

Salutations

30/09/2007, 18h45
Speed41

Ok merci

Je l'adapte et je vous tiens au courant
03/10/2007, 20h24
Speed41

:king: Génial ça marche sans rien changer

Super merci :yaisse2:

Une autre question :
La macro que j'écris n'est pas pour moi elle est destinée à une personne qui ne connait rien à l'informatique. Comment faire pour que la library Word que j'ai du installer soit installée aussi sur son ordi ou s'in stalle toute seule ?

Bonsoir,
un code pour cocher la reference Word dans le classeur actif

Cette référence doit être coché dans le classeur qui déclenche la macro

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub AjoutRefWord()
'Ajout de la bibliothèque Microsoft Visual Basic for Applications Extensibility
Dim ref As Reference, GUID As String
Dim majeure As Integer, mineure As Integer
 
For Each ref In ThisWorkbook.VBProject.References
    If ref.Name = "Word" Then GUID = ref.GUID: majeure = ref.Major: mineure = ref.Minor: Exit For
Next
MsgBox ref.GUID = "{00020905-0000-0000-C000-000000000046}"
ActiveWorkbook.VBProject.References.AddFromGuid GUID, majeure, mineure
End Sub

03/10/2007, 21h25
Speed41

super,

Je te remercie pour ton aide

:yaisse2: :king: :yaisse2: