Word - insérer du code contenu dans fichier externe

Question

Bonjour,

Je suis en train de créer une quantité de modèle de document Word automatisés (formulaire + VBA) qui utilisent une liste d'employés. Comme cette liste varie, je désire stocker cette liste à l'extérieur des documents et l'appeler à l'ouverture du document courant. L'idéal serait de pouvoir stocker un bout de code à insérer dans le script du document.

Est-ce possible et comment?

Merci d'avance
Thierry

plouc31 · Answer

Salut thierry,

je t'envoie un p'tit bout de code qui pourrait peut etre t'aider :

Dim AppWord As New Word.Application

With AppWord
.Documents.Add Application.CurrentProject.Path & "\modele.dot"
.ActiveDocument.ShowSpellingErrors = False
.Selection.GoTo wdGoToBookmark, Name:="bookmark"
.Visible = True
End With

'commande d'insertion (exemple pris pour un element d'une liste)
AppWord.Selection.TypeText Me.[liste].Column(2, 1)
AppWord.Selection.MoveRight

Ceci doit te permettre d'ouvrir un fichier word et d'inserer ce que tu souhaites au niveau du bookmark (cree ds le modele word).

++

cs_thierry p · Answer

... hem....

je ne suis pas sûr que je me sois bien exprimé...

En gros: j'ai un document contenant un formulaire. Dans ce formulaire, il y a un menu déroulant contenant la liste des employés. 
Cette liste est dynamique. 

Lorsqu'on sélectionne un employé, des informations s'affichent (n° tel, nom, etc...) dans le document Word.

Mon problème est que je dois pouvoir mettre à jour la liste des employés ainsi que la logique des informations affichées et ce, dans tout les modèles de documents.

Je pensais donc créer un fichier (*.txt ?) contenant le code de la logique des informations et la liste des employés (peut-être est-ce plus facile d'utiliser excel ?)

est-ce plus clair?

Thierry
:-)

SR2 · Answer

SALUT,

JE NE SAIS PAS SI TU AS TROUVE CE QUE TU CHERCHAIS
MOI J UTILISE CETTE FONCTION :

System.PrivateProfileString("C:\Settings.txt", "MacroSettings", "LastFile")= combobox1.value

Setting.txt est le fichier où l'on stocke les données
MacroSettings est le nom de la section
LastFile  est le nom sous lequel les données sont sauvegardées
combobox1.value ce n'est qu 'un exemple de valeur.

et pour pour récupérer les données tu fais

 combobox1.additem(System.PrivateProfileString("C:\Settings.txt", "MacroSettings", "LastFile"))

voila

Word - insérer du code contenu dans fichier externe

3 réponses

Discussions similaires