[WD-2003] Formulaire avec macro

[VEROLYDE]

Bjr,
Je souhaite créer un formulaire protégé (2 parties) qui se déroule ainsi :

1 - Déprotège
2 - Numéro automatique et se protège pour revenir un formulaire
3 - Fin saisie (1ère partie)
4 - S'enregistre dans un endroit précis (comment lui dire dire qu'il doit s'enregistrer dans la bonne semaine (je dois certainement identifier les semaines de l'année quelque part ?) 2011/SEM1 = (semaine du 01/01 au 07/01/11)
5 - Envoi par mail du lien où se trouve le fichier car on doit travailler sur le meme fichier pour finir la partie 2.
6 - Se ferme

J'ai joint le fichier
Merci de votre aide !

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Déprotege()
   ActiveDocument.Unprotect Password:=""
End Sub
'--------------------
Sub Numerotation()
   num = ActiveDocument.AttachedTemplate.AutoTextEntries("num").Value
   num = num + 1
   ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   ActiveDocument.AttachedTemplate.AutoTextEntries("num").Value = num
   Selection.TypeText Text:="num &"
   num = Right("JJMMAA-" & num, 3)
   SendKeys "o"
   ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
'--------------------
Sub Protege()
    ActiveDocument.Protect Password:=""
End Sub
'--------------------
Sub sauvegarde()
    Dim nom As String
    nom = ActiveDocument.Bookmarks("MS").Range.Text
    Dim nom1 As String
    nom1 = ActiveDocument.Bookmarks("OBJET").Range.Text
    ActiveDocument.SaveAs FileName:=nom & "-" & nom1 & "-" & num & ".doc"
    ChangeFileOpenDirectory "F:\REGION CALLCENTER\2011\SEM1"
End Sub
'-------------------
Sub EnvMail()
    ActiveDocument.SendMail
End Sub
'------------------
Sub Fermeture()
   ActiveDocument.Close
End Sub

[Heureux-oli]

Salut,

J'ai pas très bien compris !

Pourquoi enlever la protection du document ?

Code :

ActiveDocument.formfields("MonChamp").Result = "Ma Valeur"

Ne nécessite pas la déprotection du document.

Pour la semaine, il suffit d'utiliser une fonction date.

Code :

Format(Now(), "ww")

Renvoie la semaine en cours.

Pour le lien, on peut toujours récupérer le chemin du fichier.

Code :

ActiveDocument.FullName