Discussion :

[wulfram]

Bonjour,

Encore une fois loin d'Internet et sans moyen de déplacer mes codes (c'est chiant) j'ai un petit soucis.

Je souhaite créer un document Word à partir d'un modèle (copie du modèle avec son nom final) et le compléter à partir d'informations issus de la base Access, puis le laisser modifier (en plusieurs fois si nécéssaire grâce à la possibilité d'ouvrir le document) par l'utilisateur.

Celui-ci peut également modifier des informations dans un formulaire Access, informations inscrites sur le document Word à l'aide de laz méthode des signets lors de sa création.

En utilisant encore les signets comme décrit (et en essayant les méthodes delete et select sans succès), je n'arrive qu'à ajouter du texte, pas le modifier...
J'ai donc essayé avec les champs de pblipostage, sachant que je ne dois créer/modifier à chaque fois qu'un seul document.
J'ai donc essayé ce code, adapté à ma base :

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
Sub MergeIt()
Dim objWord As Word.Document
Set objWord = GetObject("C:\Local Data\Access\Publipostage\Publipostage.doc", "Word.Document")
' Rend Word visible important puisque la fusion se fait à l'écran.
objWord.Application.Visible = True
' Sélectionne .la base de données Comptoir comme source de données pour la fusion
objWord.MailMerge.OpenDataSource _
		Name:="C:\Local Data\Access\Publipostage\Comptoir.mdb", _
		LinkToSource:=True, _
		Connection:="TABLE Employés", _
		SQLStatement:="SELECT * FROM [Employés]"
' Exécution de la fusion.
objWord.MailMerge.Execute
Set objWord = Nothing
 
End Sub

J'ai un message d'erreur m'indiquant "paramètre non facultatif".

Si je me contente d'ouvrir le document Word, il m'est demandé d'ouvrir la base de donnée source. (en la choisissant dans un explorateur)

Mes questions donc, et je m'excuse encore de ne pas pouvoir les étayer par du code :

- est-il possible, en utilisant la méthode des signets, de modifier le texte, sachant que j'ai, au moment de la modification, accès aux données avant et après modif. (plusieurs txtbox associés à des colonnes d'une liste remplie avant toutes modifications)
- sinon, de quel(s) artifice(s) user ?

En vous remerciant d'avance,

Wulfram

[wulfram]

Après une nouvelle recherche sur le sujet, je suis tombé là-dessus qui me fais me poser des questions :

Quelques explications :

Code :

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

wdapp.ActiveDocument.Bookmarks("code").Range.Text = code.Value

Dans cet exemple, nous avons utilisé la propriété Text de l'objet Range pour mettre à jour les données voulues dans le signet. Si vous souhaitez ajouter ces données à des données déjà existantes dans le signet, vous pouvez vous intéresser aux méthodes InsertBefore et InsertAfter.

Cela signifie-t-il que le code quoter est sensé modifier le texte du signet ? Si oui, pour quelle(s) version(s) ?

Car dans mon cas, avec Access2007 et Word2000, chaque fois que cette ligne de code est exécuté, le texte à la place du signet s'allonge, en "mode" InsertBefore d'après ce que je crois comprendre du texte, à savoir que la ligne de code quotée ci-dessus assigne une valeur au texte affiché là où est placé le signet, alors qu'avant cette lecture à la fois enrichissante et destabilisante, je pensais qu'il ajoutait du texte à l'endroit du signet. (d'après retour d'expérience)

N'ayant pas Access où j'ai Internet, c'est un peu compliqué, mais je retourn me pencher sur mes soucis.

Merci à vous,
wulfram

[Heureux-oli]

Salut,

Le problème avec les signets, c'est que si ils contiennent du texte, lorsque l'on utilise

Code :

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

oDoc.Bookmarks(1).Range.Text = "Mon Texte"

Le texte remplace le signet et le signet est écrasé.

Si ton signet est simplement utilisé en tant que point d'insertion, c'est à dire un signet vide, le texte est ajouté juste derrière et le signet n'est pas supprimé.

Jette un oeil à cette discussion http://www.developpez.net/forums/d48...truire-signet/

La méthode Merge ne permet pas de modifier ton document une fois la fusion effectuée.

A toi de voir.