PILOTER WORD PAR OLE AVEC ACCESS OU VB

D.DELRIEUX - 13 oct. 2000 à 09:25
fredpro59

Messages postés: 9
Date d'inscription: mardi 1 septembre 2009
Statut: Membre
Dernière intervention: 22 juillet 2010

- 23 sept. 2009 à 09:56

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/387-piloter-word-par-ole-avec-access-ou-vb

fredpro59

Messages postés: 9
Date d'inscription: mardi 1 septembre 2009
Statut: Membre
Dernière intervention: 22 juillet 2010

23 sept. 2009 à 09:56

Bonjour,

Très bien ce code ! Je l'ai enrichi avec la possibilité de créer une instance de document Word, donc ouvrir un modèle (.dot) sans risque d'écraser le fichier d'origine.

Public Sub Word_Instance_document(Nom_Document As Variant, Visible As Boolean)
Word_Création_Lien_OLE
With Word_Application
.Visible = Visible
.WindowState = wdWindowStateMaximize
.Documents.Add Template:=Nom_Document
End With
End Sub

Bonne utilisation

johan3240

Messages postés: 10
Date d'inscription: vendredi 6 mai 2005
Statut: Membre
Dernière intervention: 6 juillet 2009

6 juil. 2009 à 10:24

Bonjour,

Je voudrais le code source pour pouvoir créer, à partir de VBA Excel (d'une feuille ou d 'une macro peu importe), un tableau vierge, dans un document word, sans devoir parcourir un range ou des cellules d'un tableau excel.
Je veux qu'il soit vierge et pouvoir y mettre des variables d'une bdd access par la suite.

Donc pour faire simple, je veux pouvoir créer un tableau en lui définissant un nombre de colonnes et u nnombre de cellules sans devoir parcourir le tableur Excel!!!!!

Merci,

cs_asimengo

Messages postés: 280
Date d'inscription: jeudi 24 mars 2005
Statut: Membre
Dernière intervention: 18 mars 2009

10 déc. 2007 à 05:46

voila j'ai uploader ma source sur le pilotage de word http://www.vbfrance.com/code.aspx?ID=44998

cs_asimengo

Messages postés: 280
Date d'inscription: jeudi 24 mars 2005
Statut: Membre
Dernière intervention: 18 mars 2009

2 déc. 2007 à 19:10

Je viens de faire une étude plus approfondie sur le sujet, pour mon idée d'utiliser word pour créer des états c impec avec impresion, visualisation, sauvegarde état depuis VB, au fait il suffit de faire les bonne declarations dim oDoc as Word.Document et chaque fois il sera facile de trouver les propriétés et méthodes qu'il faut avec la suggestion de VB.

il en ressort que ce code est peut-etre bien mais a quelque limite, il intereagit avec la version de word ouverte. Il faut plutot faire une classe et ouvrir sa propre session word, genre
Dim oWord As Word.Application
set oWord = new Word.Application
set oDoc=oWord.open(...)
le reste c rien que la POO, un peu d'aide sur la hiérarchie des objets et t'as pas forcement besoin à l'avance pour les propriétés et les méthodes les libellés parlent d'eux mêmes.

phoenix14

Messages postés: 15
Date d'inscription: vendredi 10 mai 2002
Statut: Membre
Dernière intervention: 3 décembre 2007

30 nov. 2007 à 16:57

Super !
Presque tout ce qu'il me fallait :))
Par contre, si jamais quelqu'un savait comment modifier une "zone de texte", je suis preneur, j'ai tenté plein de truc sans résultat...:'(

pedro_el_bruno

Messages postés: 1
Date d'inscription: mardi 16 mai 2006
Statut: Membre
Dernière intervention: 21 février 2007

21 févr. 2007 à 19:59

Salut,

J'étais en train de mettre au point ce genre de code pour un cas spécifique :
1. replacement de "<canevas>" dans un document template par fichier "canevas.doc"
2. replacement de "<tagx>" par valeurx

Le point 1. n'est pas repris dans tes fonctions ... juste une idée pour faire évoluer ton modèle ;-)

Voici mon code :

objWord.Selection.HomeKey(Unit:=wdStory)
'''''Selection.Find.ClearFormatting()
With objWord
'''''.Selection.Find.ClearFormatting()
With .Selection.Find
.ClearFormatting()
.Text = FindWord
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
.Selection.Find.Execute()
End With

Voici mon problème: En DOTNET 1.0, solution de type "CONSOLE APPLICATION", quel que soit l'endroit où je place le statement "ClearFormatting()", VisualStudio me jette hors du debugging.
unhandeled exception de type System.NullReferenceException (object reference is not set to an instance of an object)

En macro excel, quand je pilote word, pas de problème, mais je n'ai pas de parenthèses après "ClearFormatting". C'est Visual studio qui me les rajoute.
Toutes mes autres instructions word (open, saveAs, printout, ...) fonctionnent.

Une idée ?

(bravo pour la recherche et le travail de doocumentation)

srogers

Messages postés: 7
Date d'inscription: vendredi 30 avril 2004
Statut: Membre
Dernière intervention: 14 février 2005

30 avril 2004 à 22:38

Bonjour,
En voyant cette source, je me suis dit peut etre quelqu'un pourrait résoudre un probleme que j'ai depuis longtemps malgré mes recherches auprès de personnes compétentes.
Voila : J'utilisais des formulaires sous access 97 me permettant de visualiser des documents word en cliquant sur un bouton du formulaire. Ce document Word comportait des mots clés qui étaient remplacés par les informations du formulaire sur l'enregistrement en cours.
je n'utilisais aucun rapport sous access et passais toujours par cette fonctionnalité qui me permettait de modifier aisément sous word, d'éviter les espaces importants selon la longueur des champs et allégeait la base de données et bien d'autre encore)
J'avais donc des documents maitres avec word avec des mots clés entre crochets ex. {NomEmploye} ... et ces mots clés étaient remplacés par les champs de ma base de données (de l'enregistrement en cours, ex. NomEmploye) lorsque j'appuyai sur le bouton du formulaire
Cela fonctionnait très bien (comme un publipostage sous Word)
Mais depuis l'apparition d'Office 2000, certaines fonctions (entre autre apptivate ... ne sont plus reconnues.
Je suis novice en VBA mais si quelqu'un a une réponse à mon problème, de préférence avec un exemple (car étant novice), je lui en serai vraiment très reconnaissant.
Merci à tous

Afficher les 64 commentaires