Bonjour à touts et à touts.
J'utilise des cases à cocher dans mon document et pas de user form.
Je souhaiterai cocher une case à cocher quand une case est cocher.
Pour l'instant, j'utilise le code suivant :
J'utilise des cases à cocher dans mon document et pas de user form.
Je souhaiterai cocher une case à cocher quand une case est cocher.
Pour l'instant, j'utilise le code suivant :
Code:
Private sub Test1_Click()
En sub
If Test1.Value = True Then
Set objDoc = Application.Document.OPen("\\Doc1.doc")
Selection.WholeStory
Selection.Copy
Selection.Document.Close
Set objDoc = Application.Document.OPen("\\Doc1.doc")
Selection.EndKey Unit:=wdStory
Selection.Paste
EndIF