Erreur commande Selection.PasteAndFormat

Bonjour � vous,

J'essaie d'automatiser un rapport sur word 2019, j'ai fait une 1�re macro qui ins�re toutes les images � la fin de mon document (� la base je voulais les trier selon les titres mais j'ai abandonn�, trop compliqu� pour moi). Apr�s cette 1�re macro, j'essaie de d�placer image par image aux endroit que je souhaite. J'ai pour �a fait un Userform pour demander � l'utilisateur de s�lectionner une image et avec une ListBox l'endroit ou il veut la d�placer.

L'�tape ou �a bloque c'est au niveau du couper/coller ou j'ai une erreur qui me dit que le Presse-Papier est vide, apr�s ce message d'erreur l'�diteur de macro s'ouvre et s�lectionne la ligne suivante :
' Pr�parer un emplacement juste apr.txt

La ligne qui bloque c'est "Selection.PasteAndFormat (wdFormatOriginalFormatting)", m�me quand la ligne est "Selection.Paste" c'est aussi probl�matique.

Merci par avance

PS : j'ai pas trouv� comment mettre le code directement

Bonjour,

Il faut d'abord s�lectionner le range de l'image et ensuite copier la s�lection.

A tester :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
Sub Test()
 
Dim MonTitre As String
Dim MonRange As Range
Dim MonImage As InlineShape
 
 
    With ActiveDocument
 
         ' Récupération du titre de la sélection en cours
         MonTitre = .Paragraphs(ParagrapheActif).Range.Text
 
         ' Sélection de l'image
         Set MonImage = .InlineShapes(1)  ' A adapter
 
         ' Insertion de deux paragraphes sous le paragraphe sélectionné
         .Paragraphs(ParagrapheActif + 1).Range.Select
         Selection.InsertParagraphBefore
         Selection.InsertParagraphBefore
 
         ' Instanciaton de MonRange avec le paragraphe actif
         Set MonRange = .Paragraphs(ParagrapheActif).Range
 
         ' Copie et destruction de l'image à déplacer
         MonImage.Range.Select
         Selection.Copy
         MonRange.PasteAndFormat (wdFormatOriginalFormatting)
         MonImage.Range.Delete
         MonRange.Select
 
    End With
 
 
    MsgBox "Image déplacée sous le titre : " & MonTitre, vbInformation
 
    Set MonImage = Nothing: Set MonRange = Nothing
 
 
End Sub
 
 
Function ParagrapheActif() As Integer
 
Dim NumeroParagraphe   As Integer
 
    ParagrapheActif = 0
 
    With ActiveDocument
         Selection.HomeKey unit:=wdLine
         Selection.HomeKey unit:=wdStory, Extend:=wdExtend
         NumeroParagraphe = Selection.Paragraphs.Count + 1
         ParagrapheActif = NumeroParagraphe
         .Paragraphs(NumeroParagraphe).Range.Select
    End With
 
End Function