Discussion :

[ncl98]

Bonjour,
Je vous sollicite après plusieurs jours de vaines tentatives.
J'ai créé un tableau de suivi pour répertorier toutes les interventions auprès des clients. Chaque colonne est renseigné par le biais de champs de formulaire. Pour toute nouvelle intervention, une nouvelle ligne est insérée automatiquement et la ligne 2 est recopiée dans cette nouvelle ligne. Pour permettre l'exécution de la macro, la protection doit être désactivée puis réactivée. Ces deux actions ont pour conséquence de réinitialiser tous les champs du document (formulaire). La question est de savoir comment empêcher cette réinitialisation lors de l'ajout d'une ligne ?
En vous remerciant par avance.

[Souriane]

Bonjour,

Voici le code que j'utilise dans mes macros :

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
17
18
 
'Enlève la protection du fichier seulement si protégé, sinon, rien.
Dim aprotege As Boolean
    If ActiveDocument.ProtectionType <> wdNoProtection Then
        aprotege = True
        ActiveDocument.Unprotect Password:=""
    Else
    End If
 
 
[PLACER RESTE DE LA MACRO ICI]
 
 
'Si document était protégé au départ le remet en mode protégé
                If aprotege = True Then
                  ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
                    Else
                End If

Il a l'avantage de toujours vérifié s'il s'agit ou non d'un document protégé.

Aussi, c'est le "NoReset:=True" dans la deuxième partie qui empêche de remettre les champs à zéro.

Bonne chance!

Souriane

[ncl98]

Merci Souriane, solution approuvée