Discussion :

[92_Pascal]

Bonjour,

J'ai un document Word qui comprend plusieurs formulaires et je voudrais récupérer des sections protegées avec des cases à cocher pour les reproduire (recopiées) dans d'autre parties du doc afin d'éviter de refaire un travail de "cochage" déjà fait.

Quelqu'un pourrait-il me dépanner?

Merci d'avance de vos retours.

Pascal

[Heureux-oli]

Salut,

Au moins deux options.
La première, la plus simple est un collage avec liaison des cases à cocher dans le document.
Lorsque l'on coche la source, les autres sont automatiquement cochées.


La seconde en VBA, lorsque l'on coche une case, on affecte la valeur à d'autres contrôles.

[92_Pascal]

Salut,

Au moins deux options.
La première, la plus simple est un collage avec liaison des cases à cocher dans le document.
Lorsque l'on coche la source, les autres sont automatiquement cochées.


La seconde en VBA, lorsque l'on coche une case, on affecte la valeur à d'autres contrôles.

Merci Heureux-oli pour cette réponse.
J'ai testé la première, mais il n'y a pas, me semble-t-il, de mise à jour auto de la liaison. Il faut aller sur la partie liée à la source et faire une mise à jour des champs avec un clic droit. Je me trompe non?

Concernant ta seconde solution, je veux bien un peu plus de détail si tu es OK ?

Pascal

[Heureux-oli]

Salut,

Lors de mon test, la mise à jour était instantanée.

Le plus simple est de faire un exemple.

[92_Pascal]

C'est confirmé, je suis une buse.

J'ouvre ton fichier avec Word 2003, j'active les macros et la mise à jour n'est pas correcte: il faut que je clique sur les 2 cases sources pour qu'il y ait une action sur les cases recopiées.

Par ailleurs, pour réaliser ton collage avec liaison, tu fais: menu édition, collage spécial, coller avec liaison et ...... ?

merci, à plus

[Heureux-oli]

C'est confirmé, je suis une buse.

Bienvenue au club !!

Pour le collage, c'est texte mis en forme.

[92_Pascal]

Merci.

J'ai recommencé sur une page vierge et cette fois ça fonctionne.
Merci de ton aide précieuse.

Pascal

[92_Pascal]

Salut c'est encore moi ....

En fin de compte j'ai tjs le même pb, mais dans un autre contexte.
En effet, tous les collages avec liaison fonctionne tant qu'on fonctionne avec l'extension .doc, mais si l'on crée un modèle avec l'extension .dot, les liaisons ne fonctionnent plus dans documents initialisés à partie du modèle.

C'est normal ou je c'est moi qui fatigue?

Merci d'avance pour les réponses

Pascal

[Heureux-oli]

Salut,

Je vais essayer, je n'ai jamais tenté la chose dans un modèle.

[Heureux-oli]

Salut,

Ça ne fonctionne pas sur un modèle, le lien reste actif pour le modèle et pas pour le nouveau document.

Je viens de faire un code qui pourrait être une solution.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub MiseAJourlien()
Dim myFld As Field
ActiveDocument.Unprotect
 
For Each myFld In ActiveDocument.Fields
    If Left(myFld.Code, 5) = " LINK" Then
 
    myFld.Code.Text = Left(myFld.Code, InStr(1, myFld.Code, Chr(34))) & Replace(ActiveDocument.Path, "\", "\\") & "\\" & ActiveDocument.Name & Mid(myFld.Code, InStr((InStr(1, myFld.Code, Chr(34))) + 1, myFld.Code, Chr(34)))
    End If
    myFld.Update
 
Next myFld
ActiveDocument.Protect Type:=wdAllowOnlyFormFields
 
End Sub

On dirait que ça fonctionne chez moi.

[92_Pascal]

Je n'arrive pas à utiliser ta macro.

En effet, le .doc qui est créé à partir .dot et lequel contient des formulaires est protégé et donc les macros ne sont pas accessibles.
Si on enlève la protection, on peut lancer la macro mais celle-ci plante.

Cela ne viendrait-il pas du code "ActiveDocument.Unprotect" ?
J'ai une erreur 4605 :" La méthode ou propriété Unprotect n'est pas disponible à cause de Unprotect"

Au secours !!!

A plus
Pascal

[Heureux-oli]

Salut,

Il faut que le document soit sauvegardé pour avoir un path correct.

Pour modifier des zones de document protégées, il faut déprotéger le document.
Donc, j'enlève la protection.
Je modifie les champs et reprotège le document ensuite.

[92_Pascal]

Mon cher Heureux-Oli,

Je vais encore te questionner car je n'arrive pas à obtenir ce que je veux.

J'arrive à faire en sorte par le biais de ton code que la liaison du fichier .dot soit reconduite dans le .doc mais la mise à jour des champs ne se fait pas...

J'ai repris ton code en le 5 par 8 de la fonction left car mon élément est OLE_LINK1 et j'ai inséré le tout dans une macro de type AutoOpen() afin d'avoir l'execution de la macro à l'ouverture du fichier.

Mais bon, je suis tjs dans la M...E (Muise)

Qu'est ce qui ne va pas doc?

Pascal

[Heureux-oli]

Salut,

As-tu sauvegardé le fichier ?
Si tu fais en manuel Ctrl + A suivi de F9, que se passe-t-il ?

[92_Pascal]

Salut,

Oui j'ai sauvegardé le fichier et quand je tape CTRL A F9 (après avoir déverouillé) le doc, il ne se passe rien.

Est-ce que je peux te transmettre mon doc en MP afin de débloquer cette discussion et mettre le résultat en ligne pour que la communauté en bénéficie?

A plus

Pascal

[Heureux-oli]

Salut,

Ctrl +A suivi de F9 mets bien les champs à jour.

Par contre, ce que je n'avais pas compris, c'est que tu utilises des champs Ask.

Ce que je propose, dans ton cas, c'est de passer pour un UserForm pour remplir cetraines données et ensuite, les injecter dans le document.

Chose facile à faire, comme tu utilises des cellules, tu peux toujours définir une zone d'entête de ton tableau, elle sera dès lors reproduite au début de chaque page.