Discussion :

[dalo02]

Bonsoir à tous,
le code ci-dessous est placé dans un module sous Excel, fonctionne bien en ce qui concerne le transfert des données.
Par contre lorsque je veux imprimer le document les données disparaissent.
La ligne 10 ne fonctionne pas.... . je contourne le problème en cliquant sur le cadenas (protection du formulaire)je voudrais automatiser le tout c'est à dire imprimer et désactiver le document Word
Quelqu'un a t-il une solution?
Merci par avance
Dalo02

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test_word_formulaire()
Dim WordApp As Object
Dim i As Integer
i = ActiveCell.Row
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Add ("C:\Users\ff\Desktop\Excel-Word.doc")
WordApp.Visible = True
WordApp.ActiveDocument.FormFields.Item("mois").Result = Cells(i, 1)
WordApp.ActiveDocument.FormFields.Item("annee").Result = Cells(i, 2)
WordApp.ActiveDocument.Protect Password:="", NoReset:=False, Type:=wdAllowOnlyFormFields
End Sub

[Heureux-oli]

Salut,

Possible que l'argument nommé Type ne soit pas le bon.

Essaie avec wdProtectionType:=wdAllowOnlyFormFields

[dalo02]

Bonsoir Heureux-oli
merci pour ta reponse malheureusement j'obtiens erreur 448
y a t-il la possibilite d'actionner par VBA le "cadenas" protection du formulaire?
et comment SVP
merci
Dalo02

[Heureux-oli]

Salut,

De quel type sont tes champs ?

[dalo02]

bonsoir
j'ai resolu le probleme, les champs sont des "text"
il suffit d'aller sur extra puis protection document puis sur le bandeau a droite aller sur 2 cocher et choisir remplir le formulaire puis aller sur 3 et clicker et la plus de problemes.
pas besoin de

Code :

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

WordApp.ActiveDocument.Protect Password:="", NoReset:=True, Type:=wdAllowOnlyFormFields

merci pour tout et bonne nuit