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.
En essayant le code, j'ai le message suivant : Erreur d'execution 424 : Objet requis. ?
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
Merci d'avance !![]()
Partager