piloter word depuis excel????

Question

Bonsoir à toutes & tous,

Je suis en train de me fabriquer un fichier excel me permettant de gerer du 
publipostage depuis une base de données MySQL heberger sur internet

Celui-ci se connect au serveur pour récuperer le fichier provenant de la 
base de donnees.
Un formulaire permet de faire une selection dans le fichier (plusieurs 
adresse possible) puis propose de choisir un document word pour realiser le 
publipostage.
Une fois, le fichier selectionné, je voudrais verifier que le module et le 
form sont bien present dans le Doc (sinon récupération de ceux-ci qui sont 
enregistrer dans des fichiers: bas et frm).

tous le reste fonctionne tres bien:

le module et le form a creer sur le document word, permettent de creer le 
lien Publiposage avec le fichier Excel, creer un barre d'outil spécifique, 
permettant de simplifier le publipostage (insertion champ de fusion, 
previsualisation et lancement de la fusion)




La question que je me pose:

Comment faire la verification depuis Excel, et comment importer le module et 
le form dans le document Word, si ils ne sont pas present?

ou

puis-je utiliser les fichier directement dans les fichier BAS et FRM et comment?


Merci d'avance
Laurent

baborge · Answer

Bonjour,

Pour info la reponse obtenu sur les forums Microsoft:
--------------------------------------------------------------------------------------------------------------------
Bonsoir,

Dans ton fichier Excel il faut ajouter la référence à Microsoft Visual Basic
for Application x.y via le menu Outils>Références.

Dans Word il faut cocher l'option "Faire confiance au projet Visual Basic"
dans Outils>Macros>Sécurité>Editeurs approuvés.

Ensuite adapte les noms des fichiers et des répertoires.


Sub ImporterModuleFormulaire()

Dim NomModule As String, NomFormulaire As String, Chemin As String
Dim WdApp As Object, WdDoc As Object, VbComp As VBComponent

NomModule = "MonModule"
NomFormulaire = "MonFormulaire"
Chemin = "C:\..............\"

Set WdApp = CreateObject("Word.application")
WdApp.Visible = True
Set WdDoc = WdApp.Documents.Open(Filename:="C:\..........\MonDocument.doc")

On Error Resume Next
With WdDoc.VBProject
    Set VbComp = .VBComponents("MonModule")
    If VbComp Is Nothing Then
        .VBComponents.Import Chemin & NomModule & ".bas"
    Else
        MsgBox "Module présent dans le fichier."
    End If
    Set VbComp = .VBComponents("MonFormulaire")
    Set VbComp = Nothing
    If VbComp Is Nothing Then
        .VBComponents.Import Chemin & NomFormulaire & ".frm"
    Else
        MsgBox "Formulaire présent dans le fichier."
    End If
End With
End Sub

Je te renvoie à cette discussion si le fonctionnement du formulaire pose
probleme.

https://groups.google.com/forum/?hl=fr#!topic/microsoft.public.fr.excel/E3bU8n-aX6U#f0f686831d001716


Cordialement,

Manu
-----------------------------------------------------------------------------------------------------------------------

Piloter word depuis excel????

1 réponse

Discussions similaires

Newsletters