VBA Word - Probleme pour proteger le formulaire !!!

bonjour, j'ai un souci avec mon code. Quand je veux reproteger mon formulaire 
celui ne passe pas, debogage !!! ce formulaire est fait sous Word... 


Code: 

Private Sub CommandButton1_Click() 
num = ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value 
num = num + 1 

ActiveDocument.Unprotect 

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 
ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value = num 
Selection.TypeText Text:="N° " & num & "/2006" 
num = Right("0000" & num, 4) 
SendKeys "o" 
ActiveDocument.SaveAs FileName:="N" & num & ".doc" 
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument 
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True 
End Sub 
 

J'ai essayé de reproteger en choississant modifications et commentaires, 
ceux ci passent, il n'y a pas de debogage, mais quand on veut reproteger le 
"formulaire" là c impossible !!!! 

Quelqu'un connait il une solution ? merci d'avance

Benco

Bonjour, en début de code si tu ve désactiver la protection If ActiveDocument.ProtectionType <> wdNoProtection Then ActiveDocument.Unprotect ' "motdepas" si tu as mis un mot de passe End If en fin de code pour réactiver la protection If ActiveDocument.ProtectionType = wdNoProtection Then ActiveDocument.Protect wdAllowOnlyFormFields' , , "mot de passe" End If Je pense que cela devrais marcher... Jordinette

bonjour,

j'ai essayé ta methode jordinette,


mais j'ai un message d'erreur une fois passé la deprotection maintenant, le voici

Erreur d'execution 91
Variable objet ou variable de bloc With non définie

elle se declenche sur cette partie de code, qui me permet de mettre
mon numero dans l'en tete de page :

" ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader "

Quelqu'un pourrait il m'expliquer ce qui coince ????  merci

 je vous remet mon code entier, car vu comment apparait mon message initial   
Vous pouvez l'essayer me dire si il fonctionne chez vous, merci 

Code: 

  Private Sub CommandButton1_Click()  
num = ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value  
num = num + 1

If ActiveDocument.ProtectionType<>wdNoProtection Then 
    ActiveDocument.Unprotect
End If
 
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader  

ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value = num  
Selection.TypeText Text:="N° " & num & "/2006"  
num = Right("0000" & num, 4)  
SendKeys "o"  
ActiveDocument.SaveAs FileName:="N" & num & ".doc"  

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

If ActiveDocument.ProtectionType=wdNoProtection Then 
    ActiveDocument.Protect wdAllowOnlyFormFields
End If 

End Sub

Benco

re, Euh moi, jarrive à mettre un numéro que si je met pas les lignes suivante: num = ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value = num c'est un problème de référence chez moi vu que j'ai pas ce qui correspond a ton template "numéro". Vérifie que tu as bien déclaré tes variables! (dim num as string) cela veux peut etre dire qui ne reconnais pas ton commandbutton il est où? sur un form de ton fichier Word? ou sur un form de vb? Jordinette

slt

j'ai mis le bouton sur l'imprimé Word....
 
qu'entends tu pas un form de ton fichierWord et par un form de VB ?
désolé suis novice :-(

merci
Benco