export checkbox

[teamtat]

Bonjour,
J'ai 2 classeur (A et B), je voudrais que quand je coche une checkbox dans mon classeur A, je clique sur un bouton et mon classeur B s'ouvre avec une checkbox deja coché
J'ai réussi a faire sa pour des infos dans des cellules mais pas pour les checkbox

voici mon code pour copier les infos de mes cellules

Dim Chemin As String, Fichier As String
Dim wk As Workbook
'*******Variable à définir**************
Chemin = "\\Angfs1\data\TKAF\R01\A427\_Commun-Agence\GENERAL\Dossier Camille\"
Fichier = "TX_Asc_Controle_final_LB_v68_test.xls"
'***************************************
Application.ScreenUpdating = False
Set wk = Workbooks.Open(Chemin & Fichier)



ThisWorkbook.Worksheets("Saisie de données").Range("C2").Copy
wk.Worksheets("Masque saisie").Range("C4").PasteSpecial xlPasteAll, , , True

ThisWorkbook.Worksheets("Saisie de données").Range("C3").Copy
wk.Worksheets("Masque saisie").Range("G4").PasteSpecial xlPasteAll, , , True

ThisWorkbook.Worksheets("Saisie de données").Range("C1").Copy
wk.Worksheets("Masque saisie").Range("E4").PasteSpecial xlPasteAll, , , True






Application.CutCopyMode = True
wk.Close True

Merci

 

[teamtat]

Re : export checkbox

Ce sont des checkbox de la barre d'outils

 

[teamtat]

Re : export checkbox

Ma demande est impossible ?