Discussion :

[Ltspitfire]

Bonjour,

J'ai créé un signet dans un fichier word et je souhaite écrire dedans ce qu'un utilisateur entre dans un formulaire.
Lorsque je recherche le signet via l'interface word je le trouve cependant, lorsque je l'appel en vba, la fonction sort en erreur.

Voici la partie de mon code ou ce trouve l'erreur :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Ecriture()
On Error GoTo Fin_Ecriture
 
NewMacros.X_Ecr_Champ_Signet "ChRef", Ref$
 
Fin_Ecriture:
If Err.Number <> 0 Then NewMacros.X_Fin_Erreur Module$, "Ecriture", Err.Number
End Sub

Cela appel la fonction suivante :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Public Function X_Ecr_Champ_Signet(Nom$, Valeur$)
On Error GoTo Fin_X_Ecr_Champ_Signet
 
Dim Code$, myRange
Dim aField As Field
 
    ' Pour éliminer le caractère " qui n'est pas interprèté dans les renvois de champs
    If Valeur$ <> "" Then Valeur$ = Join(Split(Valeur$, Chr$(34)), "'")
 
    ' Remplace les sauts de ligne par des sauts de §
    If InStr(Valeur$, Chr(13)) <> 0 Then Valeur$ = Join(Split(Valeur$, Chr(13)), Chr(11))
    If InStr(Valeur$, Chr(10)) <> 0 Then Valeur$ = Join(Split(Valeur$, Chr(10)), "")
    ' Remplace le caractère ^ de saisie de tab par une vraie tabulation
    If InStr(Valeur$, Chr(94)) <> 0 Then Valeur$ = Join(Split(Valeur$, Chr(94)), Chr(9))
 
'Déclaration des variables
'intI pour le début de notre Bookmark
Dim intI As Long
'un objet range pour le range de notre Bookmark
Dim MyRng As Range
 
'Récupération de la position de départ de notre signet
intI = ActiveDocument.Bookmarks("Nom$").Start
'Affectation du texte à notre Bookmark
ActiveDocument.Bookmarks("Nom$").Range.Text = Valeur$
'Affectation de l'objet Range, où la position de départ est
' la même que pour le Bookmark et la fin sera le début augmenté
' de la longueur du texte
Set MyRng = ActiveDocument.Range(Start:=intI, End:=intI + Len(Valeur$))
' Crée le Bookmark sur l'objet Range
ActiveDocument.Bookmarks.Add Nom$, MyRng
Set MyRng = Nothing
 
 
 
Fin_X_Ecr_Champ_Signet:
If Err.Number <> 0 Then
    MsgBox "Le champ " + Nom$ + " est inexistant !", vbInformation, MsgBoxTitre
    X_Fin_Erreur Module$, "X_Ecr_Champ_Signet", 0
End If
End Function

L'erreur ce situe a la ligne :

Code :

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

intI = ActiveDocument.Bookmarks("Nom$").Start

Merci d'avance pour toutes aides ou pistes.

Cordialement,

Ltspitfire

[Ltspitfire]

Bonjour,

Ce que je cherche a faire semble en faite impossible.
Je viens de tomber sur un article qui dis que pour utiliser des champs il faut obligatoirement être dans un fichier modèle (.dotm) alors qu'il me faut absolument un fichier .docm.
Il faudrais donc que j'utilise des signets.
Je souhaiterais juste une confirmation de cela.

Cordialement,
Ltspitfire

[Heureux-oli]

Salut,

On peut utiliser des champs dans un document autre qu'un modèle.
Le modèle permet d'utiliser un document avec des champs vides ou préremplis alors qu'avec un document, les champs auront les contenus lors de la sauvegarde.

Pour atteindre un signet :

Code :

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

ActiveDocument.Bookmarks("monsignet").Range.Text = "..."

Pour récuperer le contenu d'un champ, on ne passe par par son signet.

Code :

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

ActiveDocument.FormFields("Monchamp").Result

Par contre, tu ne nous dis pas quelle erreur est levee par ton code.

[Ltspitfire]

Bonjour Heureux-oli,

Merci de ta réponse.
J'ai pu résoudre mon problème en changeant totalement de code.
Mon erreur venait du fait que je confondais signet et champs.

Cordialement,
Ltspitfire