B.d et word
elghandour_info
Messages postés
5
Date d'inscription
dimanche 24 décembre 2006
Statut
Membre
Dernière intervention
19 avril 2010
-
30 juin 2007 à 19:38
pseudoOM Messages postés 173 Date d'inscription jeudi 3 février 2005 Statut Membre Dernière intervention 30 janvier 2009 - 2 juil. 2007 à 10:26
pseudoOM Messages postés 173 Date d'inscription jeudi 3 février 2005 Statut Membre Dernière intervention 30 janvier 2009 - 2 juil. 2007 à 10:26
2 réponses
cs_Exploreur
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
30 juin 2007 à 19:42
30 juin 2007 à 19:42
Salut,
Le code que tu demandes est dispo sur le site, suffit juste de faire une recherche avec le moteur de recherche du site, pour trouver un grand nombres de sources sur les bases de données ainsi que sur l'utilisation de word via vb...
Puis la prchiane fois, essaye d'être poli et de lire le réglement...
A+
Exploreur
Linux a un noyau, Windows un pépin
Le code que tu demandes est dispo sur le site, suffit juste de faire une recherche avec le moteur de recherche du site, pour trouver un grand nombres de sources sur les bases de données ainsi que sur l'utilisation de word via vb...
Puis la prchiane fois, essaye d'être poli et de lire le réglement...
A+
Exploreur
Linux a un noyau, Windows un pépin
pseudoOM
Messages postés
173
Date d'inscription
jeudi 3 février 2005
Statut
Membre
Dernière intervention
30 janvier 2009
1
2 juil. 2007 à 10:26
2 juil. 2007 à 10:26
Salut,
tu mets des signets dans ton document word et tu les remplis !
Dim wd_Feuille_Word As Word.Application
Dim rs_Recordset as Recordset
rs_Recordset = ... (je suppose que tu sais comment ça marche.)
wd_Feuille_Word.Documents.Open("c:\Doc1.doc")
do
wd_Feuille_Word.ActiveDocument.Bookmarks.Item("Nom_du_signet").Select()
wd_Feuille_Word.Selection.InsertAfter(rs_Recordset("Champs"))
rs_Recordset.MoveNext
loop until rs_Recordset.EOF
wd_Feuille_Word.visible = true
pseudoOM
Le partage est une force alors n'hésitez pas à cliquer sur réponse acceptée pour partager les solutions trouvées !
tu mets des signets dans ton document word et tu les remplis !
Dim wd_Feuille_Word As Word.Application
Dim rs_Recordset as Recordset
rs_Recordset = ... (je suppose que tu sais comment ça marche.)
wd_Feuille_Word.Documents.Open("c:\Doc1.doc")
do
wd_Feuille_Word.ActiveDocument.Bookmarks.Item("Nom_du_signet").Select()
wd_Feuille_Word.Selection.InsertAfter(rs_Recordset("Champs"))
rs_Recordset.MoveNext
loop until rs_Recordset.EOF
wd_Feuille_Word.visible = true
pseudoOM
Le partage est une force alors n'hésitez pas à cliquer sur réponse acceptée pour partager les solutions trouvées !