AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 11 23 16:07:31
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : publipostage word vb [ Archives Visual Basic / Bases de données ] (cherif747)

jeudi 22 janvier 2004 à 14:51:16 | publipostage word vb

cherif747
Bonjour tout le monde,

voila je fais une application dans le cadre de mon stage pour un grand club de foot dans lequel je suis licencié. Malheureusement il me demande de développer un bout de code qui fera de moi le joueur le plus détesté du club!

et oui, ils veulent que je fasse un formulaire vb avec un bouton de commande qui va ouvrir un document word qui est une lettre de rappel pour les joueurs qui n'ont pas encore payé leur cotisation.
J'ai deja écrit la lettre et déjà fait la requete sur access pour avoir la liste de tous ceux qui n'ont pas payé, après je suis obligé de faire manuellement la fusion des champs de ma requete!

ce que je souhaiterais c fr un bouton qui imprime toutes les lettres avec les noms des mauvais payeurs correspondants.

Merci d'avance, g deja avancé un peu mais ca commence à coincer!
vendredi 23 janvier 2004 à 22:52:16 | Re : publipostage word vb

nhervagault

Administrateur CodeS-SourceS


Public msword As New Word.Application
Public msexcel As New Excel.Application
Public Function edit_dpae()

msword.Application.Visible = True
msword.Documents.Open (App.path & "\modeles\reclame cotisation.doc")
strSQL = "****"

connADO.Open
rsADO.Open strSQL, connADO, adOpenKeyset, adLockOptimistic
msword.ActiveDocument.FormFields("nom").result = nomJoueur

rsado.close
connado.close
save("mon doc.doc")
end sub

Public Sub save(path As String)
msword.ActiveDocument.SaveAs path
msword.quit
End Sub

Il faut faire un template (modele) avec des signets dans word

if faut dans le menu projet de VB ajouter une reference avec
m$ word * object library dans le menu projet reference de VB

8-->97
9-->2000
10-->Xp
11-->2003
un truc du genre


Voila ca doit deja t'aider un peu dans ton programme
samedi 24 janvier 2004 à 20:22:44 | Re : publipostage word vb

cherif747

Avant toute chose, je tiens à te remercier d'avoir pris un peu de temps pour me répondre.


Par contre je n'ai pas compris tout le code, je vois qu'il y a des connections ADO à fr ( ce que je ne maitrise pas du tout)
et ma requete ne fonctionne pas sous vb.

select joueur.nom, joueur.prenom
from joueur
where joueur.catej="0";


Faut il cocher une reference spécifique pour ce genre de codes ( autres que celles que tu as mentionné) ?


Merci encore pour ton aide
dimanche 25 janvier 2004 à 13:08:59 | Re : publipostage word vb

nhervagault

Administrateur CodeS-SourceS

pour ado il faut cocher m$ active data oject 2.* * varie entre 5 et 8 je crois

ADO est plus facile a utiliser que DAO je trouve et est repris en parti dans .NET

DAO est demodé ;-)

Public connADO As New ADODB.Connection
Public rsADO As New ADODB.Recordset

'connADO.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.path & "\base97.mdb"
connADO.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.path & "\base2000.mdb"

La tu dois tout avoir

http://drq.developpez.com/vb/tutoriels/ADO/

Ou dans les technopoche sur le site m$ france
lundi 26 janvier 2004 à 19:18:06 | Re : publipostage word vb

cherif747
Réponse acceptée !

OK g trouvé la réponse!!!!!!!! Après une lutte acharnée, g reussi à fr mon publipostage à partir d'une requete access.


Voici le code bien sur pour ceux que ça interesse

Dim AppWord As Word.Application
Dim DocWord As Word.Document
Set AppWord = New Word.Application
AppWord.Visible = True
Set DocWord = AppWord.Documents.Open("Chemin de votre doc word")
With DocWord.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
ActiveDocument.PrintOut
ActiveWindow.Close False
DocWord.Close False


' Faites attention à bien cocher la reference Microsoft Word 10.0

'votre document doit avoir un nom court !!! ba oui vb rale sinon!!!!!!

' enfin bon j'en profite aussi pour remercier encore une fois tous ceux qui m'ont aidé précédemment !!!!!!!!!!!

A++


Cette discussion est classé dans : bouton, vb, word, publipostage, club

Répondre à ce message

Sujets en rapport avec ce message

VB + Word + Excel !!! HELP ! [ par tyflops ] Bonjour,Je suis en train de créer une appli professionnelle en VB qui réalise plusieurs fois à la suite le publipostage entre un fichier source excel, Pb Publipostage VB et WORD URGENT [ par sylvae34 ] Je cherche à lancer un publipostage dans word à partir de vb. Mais j'ai toujours un message d'erreur sur la ligne mailmerge.destinationle message est Ajour bouton Word en VB [ par couze2003 ] Bonjour,Je suis à la recherche d'un code pouvant ajouter un bouton à Word (ou Excel).Ce bouton sera visible en permanence dans Word et créé à l'instal VB.net et Fusion-Publipostage Word [ par olanfr ] Bonjour à tous,J'ai actuellement un document Word de fusion publipostage en lien avec une base Access. Celui fonctionne parfaitement.Cependant, je sou word et vb [ par minimum_serious ] Bonjour à tous,   J'souhaiterais réaliser un publipostage a partir de vb vers word.   J'ai su réaliser des publipostages simple, mais le probléme ici, Publipostage VB+Access à Word [ par Slyders ] Alors voila j'ai un petit problème.J'ai une Base de donnée qui contient des informations sur des enfants, des parents et des données de facturation.Av VB : Word : Produire des étiquettes de publipostage [ par arystoc ] Salut  à tout le monde,Je développe une application en VB6, et je voudrais générer un document word qui comporte des étiquettes (Titre, nom, prénom, a Publipostage word avec vb [ par sromert ] Bonjour, j'utilise sous vb MailMerge.OpenHeaderSource et Mailmerge.OpenDatasource pour faire le publipostage fusion sous word. 'Ouverture du fichier VB.net et composant objet word [ par titane79 ] Bonjour,Voilà je génère un document word à partir de ma solution en intégrant les données souhaitée dans les signets délarées dans mon document wor OLE Control sous VB 6.0 avec Word [ par deadisdead ] Bonjour à tous,Je vous explique mon problème. J'aimerais ouvrir une fenêtre contenant une page Word sans ouvrir Word lui-même (trop lourd pour une sim


Nos sponsors

Sondage...

CalendriCode


Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,234 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.