Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access mailing en liaison avec word

mailing en liaison avec word

42 réponses
Avatar
ASTA
Bonjour,
j'ai une base client avec environ 5000 clients issus du monde entier, notre
sce compta va devoir envoyer un courrier personnalisé dans chacunes des
langues de mes clients, donc j'ai préparé mes requêtes pour trier mes clients
par pays, on va donc me donner un courrier type qui sera fait dans word, à
partir d'access puis-je récupérer ces documents word et m'en servir pour
faire le mailing avec mes requêtes ......,? ou vais-je devoir créer un état
en retapant le courrier ??????
Par avance merci
--
Asta
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4 5
Avatar
Raymond [mvp]
il ne faut pas oublier de mettre les deux-points car c'est une étiquette.
c'est tout.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ASTA" a écrit dans le message de news:

If Rs.BOF Then exit_Sub
sur le Then exit_Sub j'ai une erreur de compiltion "sub ou function" non
définie
Dois je faire une déclaration supplémentaire ?
Merci

réponse donnée par mail:

je te retourne le code avec les modifs à faire:

Private Sub Commande0_Click()
On Error Resume Next ' a modifier selon besoin
Dim W_App As New Word.Application
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim Strsql As String
Set Db = CurrentDb
Strsql = "SELECT client, adresse, [Code Postal], ville, Pays FROM
clientSA1 WHERE [pays]= 'France';"
Set Rs = Db.OpenRecordset(Strsql)
If Rs.BOF Then exit_Sub
With W_App
.Visible = True
Do Until Rs.EOF
.Documents.Open ("c:doc1.doc")
.ActiveDocument.Bookmarks("nom").Select
.Selection.InsertAfter Rs.Fields("client")
.ActiveDocument.Bookmarks("adresse").Select
.Selection.InsertAfter Rs.Fields("adresse")
.ActiveDocument.Bookmarks("Codepostal").Select
.Selection.InsertAfter Rs.Fields("[Code Postal]")
.ActiveDocument.Bookmarks("ville").Select
.Selection.InsertAfter Rs.Fields("ville")
.ActiveDocument.Bookmarks("pays").Select
.Selection.InsertAfter Rs.Fields("pays")
.ActiveDocument.PrintOut False
.ActiveDocument.Close wdDoNotSaveChanges
Rs.MoveNext
DoEvents
Loop
End With
exit_Sub:
Rs.Close
W_App.Quit
Set Rs = Nothing
Set Db = Nothing
Set W_App = Nothing
End Sub

raison du non fonctionnement.
- clause select en erreur.
- champ avec espace sans crochets
- signet avec espace

autres modifs sans conséquences.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ASTA" a écrit dans le message de news:

Raymond j'ai fais des tests en long en large et en travers et je ne
comprends
pas la solution serait que je me créé une adresse facultative que je te
la
donne sur ce site pour que tu fasses un mail test si je te reçois
j'aurais
ainsi ton adresse et je répondrais car mise à part un pb avec ton
adresse
je
ne vois rien d'autre ....car sur mon adresse free mon doc est bien
arrivé
enfin je ne sais plus que dire ....
que me conseilles tu ?


Désolée mauvaise manip, donc je disais hier matin je me suis envoyé le
tout
sur mon adresse free et je l'ai eû en réception ce matin, donc je vais
à
partir de free te transmettre le doc avec mon adresse mail profes, il
est
8.22 h je vais essayer de te l'envoyer.....
Merci
cordialement


ça commence à faire vraiment long maintenant. renvoie encore une
fois.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Raymond [mvp]" a écrit dans le
message de
news:
on va attendre, dès que je reçois je te le dis.


















Avatar
Raymond [mvp]
.../...
c'est parti trop tôt.

et sur le Rs.BOF mettre
If Rs.BOF Then GoTo exit_Sub

mes excuses.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ASTA" a écrit dans le message de news:

If Rs.BOF Then exit_Sub
sur le Then exit_Sub j'ai une erreur de compiltion "sub ou function" non
définie
Dois je faire une déclaration supplémentaire ?
Merci

réponse donnée par mail:

je te retourne le code avec les modifs à faire:

Private Sub Commande0_Click()
On Error Resume Next ' a modifier selon besoin
Dim W_App As New Word.Application
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim Strsql As String
Set Db = CurrentDb
Strsql = "SELECT client, adresse, [Code Postal], ville, Pays FROM
clientSA1 WHERE [pays]= 'France';"
Set Rs = Db.OpenRecordset(Strsql)
If Rs.BOF Then exit_Sub
With W_App
.Visible = True
Do Until Rs.EOF
.Documents.Open ("c:doc1.doc")
.ActiveDocument.Bookmarks("nom").Select
.Selection.InsertAfter Rs.Fields("client")
.ActiveDocument.Bookmarks("adresse").Select
.Selection.InsertAfter Rs.Fields("adresse")
.ActiveDocument.Bookmarks("Codepostal").Select
.Selection.InsertAfter Rs.Fields("[Code Postal]")
.ActiveDocument.Bookmarks("ville").Select
.Selection.InsertAfter Rs.Fields("ville")
.ActiveDocument.Bookmarks("pays").Select
.Selection.InsertAfter Rs.Fields("pays")
.ActiveDocument.PrintOut False
.ActiveDocument.Close wdDoNotSaveChanges
Rs.MoveNext
DoEvents
Loop
End With
exit_Sub:
Rs.Close
W_App.Quit
Set Rs = Nothing
Set Db = Nothing
Set W_App = Nothing
End Sub

raison du non fonctionnement.
- clause select en erreur.
- champ avec espace sans crochets
- signet avec espace

autres modifs sans conséquences.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ASTA" a écrit dans le message de news:

Raymond j'ai fais des tests en long en large et en travers et je ne
comprends
pas la solution serait que je me créé une adresse facultative que je te
la
donne sur ce site pour que tu fasses un mail test si je te reçois
j'aurais
ainsi ton adresse et je répondrais car mise à part un pb avec ton
adresse
je
ne vois rien d'autre ....car sur mon adresse free mon doc est bien
arrivé
enfin je ne sais plus que dire ....
que me conseilles tu ?


Désolée mauvaise manip, donc je disais hier matin je me suis envoyé le
tout
sur mon adresse free et je l'ai eû en réception ce matin, donc je vais
à
partir de free te transmettre le doc avec mon adresse mail profes, il
est
8.22 h je vais essayer de te l'envoyer.....
Merci
cordialement


ça commence à faire vraiment long maintenant. renvoie encore une
fois.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Raymond [mvp]" a écrit dans le
message de
news:
on va attendre, dès que je reçois je te le dis.


















1 2 3 4 5