Discussion :

[beaulieu_inter]

Bonjour à tous,

Je recherche une façon optimisée pour conserver les valeurs des champs et cases à cocher de la première page uniquement dans un formulaire Word de 3 pages. Donc, plus concrètement, j'ai créé un formulaire Word 2010 avec macro vba pour permettre de sauvegarder les données saisies et soumettre ce formulaire complété pour les 3 pages. Une fois soumis, le formulaire doit revenir à la base et effaçant les données inscrites dans le formulaire pour les pages 2 et 3 afin d'avoir uniquement la page 1 avec les informations pour une utilisation future, et ainsi permettre de re-compléter les pages 2 et 3 avec d'autres informations et re-soumettre le formulaire ensuite.

Pour le moment, j'ai testé plusieurs possibilités, mais en vain, donc j'ai inscrit dans le code vba ceci:

Code :

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

1
2
3
4
5
ActiveDocument.FormFields("CaseACocher001").CheckBox.Value = False
ActiveDocument.FormFields("Texte001").TextInput.Clear
ActiveDocument.FormFields("CaseACocher002").CheckBox.Value = False
ActiveDocument.FormFields("Texte002").TextInput.Clear
..ainsi de suite...

Cependant, le processus est très long et doit absolument être optimisé, car il y a environ 100 champs et cases à cocher.

Merci d'avance de votre aide !

M. Beaulieu

[Sepia]

Salut beaulieu_inter,

Tu as 2 difficultés majeures de Word car 1°) la notion de page n'existe pas (oui c'est étrange mais c'est la réalité) car Word est un éditeur de texte pas un logiciel de mise en page et 2°) pour réinitialiser, la syntaxe dépend du type de champ de formulaires.

Néanmoins on peut ruser, tu places un signet sur les pages 2 et 3.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub ReinitPage2Et3()
    If ActiveDocument.Bookmarks.Exists("Page2Et3") Then
        For aI = 1 To ActiveDocument.Bookmarks("Page2Et3").Range.FormFields.Count
           If ActiveDocument.Bookmarks("Page2Et3").Range.FormFields(aI).Type = wdFieldFormCheckBox Then
              ActiveDocument.Bookmarks("Page2Et3").Range.FormFields(aI).CheckBox.Value = False
           End If
           If ActiveDocument.Bookmarks("Page2Et3").Range.FormFields(aI).Type = wdFieldFormTextInput Then
              ActiveDocument.Bookmarks("Page2Et3").Range.FormFields(aI).TextInput.Clear
           End If
        Next
    End If
End Sub

@+

[beaulieu_inter]

Bonjour Sepia,

Ça fonctionne et le code est beaucoup plus simple! Cependant, il n'est pas amélioré au niveau de la vitesse, mais c'est déjà beaucoup mieux

Merci et bonne journée,

M. Beaulieu

[Sepia]

Salut beaulieu_inter,

N'oublie pas de cliquer sur :Resolu: si ton problème a eu une réponse, positive ou négative (et qui semble positive ici). Ça permet aux autres DVPnautes qui peuvent avoir le même problème de trouver plus rapidement une solution.

@+