Discussion :

[familledacp]

Bonjour à toutes et tous

J'utilise du code VBA pour composer un document word à partir de divers bouts de textes sous word

Dans certains de ces fichers de base, j'ai des cases à cocher qui fonctionnent bien

Quand j'ouvre le document final, composé à partir des différents "sous fichiers", les cases à cocher sont inopérantes (on ne peut plus cliquer dessus pour changer les valeurs)

Le code utilisé pour la copie est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Set objwordz = CreateObject("Word.Application")
objwordz.Visible = True
Set objDocz = objwordz.Documents.Open(chemin & "\2-GESTION\9-TLC Hub\fichiers support\descriptions\" & famdescro & "\" & repdescro & ".docx")
With objwordz
.Selection.WholeStory
.Selection.Copy
End With
objWord.Selection.Paste
Vider
objwordz.Quit

Pensez vous que cela vienne de là ?

Merci de votre aide

Daniel S

[familledacp]

Rebonjour

J'ai trouvé la solution :

Code :

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

1
2
3
With objword
.PasteAndFormat (wdUseDestinationStylesRecovery)
End With

Désolé pour le dérangement

Daniel S