Discussion :

[Yamiral]

Bonjour,

je me permet de vous dérager tout simplement car je rencontre un problème avec un code.
Je n’ai trouver aucune solution sur google, ce pourquoi je vous soumets ce code, le tout en espérant que vous pourrez me conseiller.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub COLLER()
 
ActiveDocument.Unprotect "x"   
On Error GoTo errorHandler
Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile
Call sup
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:="x"
errorHandler:
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:="x"
MsgBox "Merci de Copier quelque chose"
Exit Sub
 
End Sub

En essayant le code, j'ai le message suivant : Erreur d'execution 424 : Objet requis. ?

Merci d'avance !

[Heureux-oli]

Salut,

Ce code fonctionne chez moi.

Par contre, tu appelles une autre procédure avec Call !

[carden752]

Bonjour,

Tu essaies de coller quoi comme type d'objet. La méthode pastespecial peut peut-être retournée une erreur.
Sinon c'est dans la procédure sup l'erreur.