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?
Merci d'avance
Laurent
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?
Merci d'avance
Laurent
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?
Merci d'avance
Laurent
Petite Precision:
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
LaurentBonsoir à 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?
Merci d'avance
Laurent
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?
Merci d'avance
Laurent
Petite Precision:
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
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?
Merci d'avance
Laurent
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?
Merci d'avance
Laurent
Petite Precision:
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
LaurentBonsoir à 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?
Merci d'avance
Laurent
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?
Merci d'avance
Laurent
Bonjour,
un grand merci à Manu
ça marche nickel, j'ai modifié un peu le code que tu m'as donné et tous
marche:
mon code:
------------------------------------------------------------------------------------------------------------------------
Private Sub ListModele_Click()
Dim NomModule, NomFormulaire, NomFormulaire2, Chemin As String
Dim WdApp As Object, WdDoc As Object, VbComp As VBComponent
Range("J1").Value = ListModele.Value
NomModule = "NewMacros"
NomFormulaire = "InsertChamp"
NomFormulaire2 = "Bienvenue"
Chemin = "C:CourrierOutils"
Set WdApp = CreateObject("Word.application")
WdApp.Visible = True
Set WdDoc > WdApp.Documents.Open(Filename:=Sheets("Creation_Courrier").Range("G1").Value
& Sheets("Creation_Courrier").Range("J1").Value)
vmonmoduleOK = 0
vmonFormulaireOK = 0
vmonFormulaire2OK = 0
On Error Resume Next
With WdDoc.VBProject
vnbmodule = .vbcomponents.Count
For i = 1 To vnbmodule
If .vbcomponents(i).Name = NomModule Then
vmonmoduleOK = 1
End If
If .vbcomponents(i).Name = NomFormulaire Then
vmonFormulaireOK = 1
End If
If .vbcomponents(i).Name = NomFormulaire2 Then
vmonFormulaire2OK = 1
End If
Next i
If vmonmoduleOK = 0 Then
.vbcomponents.Import Chemin & NomModule & ".bas"
Else
.vbcomponents.Remove (NomModule)
.vbcomponents.Import Chemin & NomModule & ".bas"
End If
If vmonFormulaireOK = 0 Then
.vbcomponents.Import Chemin & NomFormulaire & ".frm"
Else
.vbcomponents.Remove (NomFormulaire)
.vbcomponents.Import Chemin & NomFormulaire & ".bas"
End If
If vmonFormulaire2OK = 0 Then
.vbcomponents.Import Chemin & NomFormulaire2 & ".frm"
Else
.vbcomponents.Remove (NomFormulaire2)
.vbcomponents.Import Chemin & NomFormulaire2 & ".bas"
End If
End With
WdDoc.Save
WdApp.Run MacroName:="AffBienvenue"
WdDoc.Save
End Sub
------------------------------------------------------------------------------------------------------------------------
Modification:
- ajout d'un formulaire
- test presence des modules puis remplacement ou importation
- lancement d'une macro Word
Il rest 2 soucis :
1 - Si j'utilise plusieur fois de suite le fichier excel, en ouvrant le
form sur lequel se trouve le code, j'ai le message suivant:
=> Erreur d'entrée/sortie de périphérique (l'aide n'est pas
disponible)
cela n'empeche pas de l'utiliser, mais dans la liste
des projet VBA,
je retrouve autant de projet portant le nom de mon
fichier que de tentative utilisée
2 - La fenetre Word souvre derriere Excel
Encore merci Manu
Cordialement
Laurent
Bonjour,
un grand merci à Manu
ça marche nickel, j'ai modifié un peu le code que tu m'as donné et tous
marche:
mon code:
------------------------------------------------------------------------------------------------------------------------
Private Sub ListModele_Click()
Dim NomModule, NomFormulaire, NomFormulaire2, Chemin As String
Dim WdApp As Object, WdDoc As Object, VbComp As VBComponent
Range("J1").Value = ListModele.Value
NomModule = "NewMacros"
NomFormulaire = "InsertChamp"
NomFormulaire2 = "Bienvenue"
Chemin = "C:CourrierOutils"
Set WdApp = CreateObject("Word.application")
WdApp.Visible = True
Set WdDoc > WdApp.Documents.Open(Filename:=Sheets("Creation_Courrier").Range("G1").Value
& Sheets("Creation_Courrier").Range("J1").Value)
vmonmoduleOK = 0
vmonFormulaireOK = 0
vmonFormulaire2OK = 0
On Error Resume Next
With WdDoc.VBProject
vnbmodule = .vbcomponents.Count
For i = 1 To vnbmodule
If .vbcomponents(i).Name = NomModule Then
vmonmoduleOK = 1
End If
If .vbcomponents(i).Name = NomFormulaire Then
vmonFormulaireOK = 1
End If
If .vbcomponents(i).Name = NomFormulaire2 Then
vmonFormulaire2OK = 1
End If
Next i
If vmonmoduleOK = 0 Then
.vbcomponents.Import Chemin & NomModule & ".bas"
Else
.vbcomponents.Remove (NomModule)
.vbcomponents.Import Chemin & NomModule & ".bas"
End If
If vmonFormulaireOK = 0 Then
.vbcomponents.Import Chemin & NomFormulaire & ".frm"
Else
.vbcomponents.Remove (NomFormulaire)
.vbcomponents.Import Chemin & NomFormulaire & ".bas"
End If
If vmonFormulaire2OK = 0 Then
.vbcomponents.Import Chemin & NomFormulaire2 & ".frm"
Else
.vbcomponents.Remove (NomFormulaire2)
.vbcomponents.Import Chemin & NomFormulaire2 & ".bas"
End If
End With
WdDoc.Save
WdApp.Run MacroName:="AffBienvenue"
WdDoc.Save
End Sub
------------------------------------------------------------------------------------------------------------------------
Modification:
- ajout d'un formulaire
- test presence des modules puis remplacement ou importation
- lancement d'une macro Word
Il rest 2 soucis :
1 - Si j'utilise plusieur fois de suite le fichier excel, en ouvrant le
form sur lequel se trouve le code, j'ai le message suivant:
=> Erreur d'entrée/sortie de périphérique (l'aide n'est pas
disponible)
cela n'empeche pas de l'utiliser, mais dans la liste
des projet VBA,
je retrouve autant de projet portant le nom de mon
fichier que de tentative utilisée
2 - La fenetre Word souvre derriere Excel
Encore merci Manu
Cordialement
Laurent
Bonjour,
un grand merci à Manu
ça marche nickel, j'ai modifié un peu le code que tu m'as donné et tous
marche:
mon code:
------------------------------------------------------------------------------------------------------------------------
Private Sub ListModele_Click()
Dim NomModule, NomFormulaire, NomFormulaire2, Chemin As String
Dim WdApp As Object, WdDoc As Object, VbComp As VBComponent
Range("J1").Value = ListModele.Value
NomModule = "NewMacros"
NomFormulaire = "InsertChamp"
NomFormulaire2 = "Bienvenue"
Chemin = "C:CourrierOutils"
Set WdApp = CreateObject("Word.application")
WdApp.Visible = True
Set WdDoc > WdApp.Documents.Open(Filename:=Sheets("Creation_Courrier").Range("G1").Value
& Sheets("Creation_Courrier").Range("J1").Value)
vmonmoduleOK = 0
vmonFormulaireOK = 0
vmonFormulaire2OK = 0
On Error Resume Next
With WdDoc.VBProject
vnbmodule = .vbcomponents.Count
For i = 1 To vnbmodule
If .vbcomponents(i).Name = NomModule Then
vmonmoduleOK = 1
End If
If .vbcomponents(i).Name = NomFormulaire Then
vmonFormulaireOK = 1
End If
If .vbcomponents(i).Name = NomFormulaire2 Then
vmonFormulaire2OK = 1
End If
Next i
If vmonmoduleOK = 0 Then
.vbcomponents.Import Chemin & NomModule & ".bas"
Else
.vbcomponents.Remove (NomModule)
.vbcomponents.Import Chemin & NomModule & ".bas"
End If
If vmonFormulaireOK = 0 Then
.vbcomponents.Import Chemin & NomFormulaire & ".frm"
Else
.vbcomponents.Remove (NomFormulaire)
.vbcomponents.Import Chemin & NomFormulaire & ".bas"
End If
If vmonFormulaire2OK = 0 Then
.vbcomponents.Import Chemin & NomFormulaire2 & ".frm"
Else
.vbcomponents.Remove (NomFormulaire2)
.vbcomponents.Import Chemin & NomFormulaire2 & ".bas"
End If
End With
WdDoc.Save
WdApp.Run MacroName:="AffBienvenue"
WdDoc.Save
End Sub
------------------------------------------------------------------------------------------------------------------------
Modification:
- ajout d'un formulaire
- test presence des modules puis remplacement ou importation
- lancement d'une macro Word
Il rest 2 soucis :
1 - Si j'utilise plusieur fois de suite le fichier excel, en ouvrant le
form sur lequel se trouve le code, j'ai le message suivant:
=> Erreur d'entrée/sortie de périphérique (l'aide n'est pas
disponible)
cela n'empeche pas de l'utiliser, mais dans la liste
des projet VBA,
je retrouve autant de projet portant le nom de mon
fichier que de tentative utilisée
2 - La fenetre Word souvre derriere Excel
Encore merci Manu
Cordialement
Laurent