Discussion :

[Speed41]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fred65200]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Speed41]

Ok merci

Je l'adapte et je vous tiens au courant

[Speed41]

Génial ça marche sans rien changer

Super merci

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 ?

[fred65200]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+

[Speed41]

super,

Je te remercie pour ton aide