Bonjour,

J'ai fait une macro afin de copier des tableaux Excel dans Word en format image.
Ma macro fonctionne bien...une fois sur deux! Avec exactement les mêmes données parfois je tombe sur une erreur 4605 "La méthode PasteSpecial de l'object Selection a échoué". Et ca ne plante jamais sur le même tableau.
Je précise que mes tableaux ont parfois des lignes cachées.

Voici mon code avec un exemple de copie de deux tableaux :

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
 
'Création fichier WORD
Application.DefaultSaveFormat = xlOpenXMLWorkbook
Dim appWrd As Word.Application
Dim docWrd As Word.Document
Set appWrd = New Word.Application
appWrd.Visible = True
appWrd.DefaultSaveFormat = xlOpenXMLWorkbook
Set docWrd = appWrd.Documents.Add
 
'Copie du premier tableau 
Sheets("Rendu").Range("A8:K50").Copy
appWrd.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
        Placement:=wdInLine, DisplayAsIcon:=False
Application.CutCopyMode = False
 
'Copie du second tableau
Sheets("Rendu").Range("A54:K132").Copy
appWrd.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
        Placement:=wdInLine, DisplayAsIcon:=False
Application.CutCopyMode = False
 
Set docWrd = Nothing
Set appWrd = Nothing
Merci par avance de votre aide !