Bonjour,

j'ai créé un petit programme VB qui permet la saisie directe de données simples dans une base Access ".mdb" sans passée par l'ouverture du logiciel Access (qui est assez lourd et pas très ergonomique).

Je souhaiterais pouvoir éditer des listings de mes données sans passer par Access. J'aimerais ainsi pouvoir récupérer mes données sous Word, selon une mise en page prédéfinie ou pouvoir imprimer mes données directement sans passer par Word.

Pouvez vous m'aider? merci d'avance.

bonsoir,
quand tu dit par une mise en page predefini tu pense creer a l'avance le fichier word et ensuite ajouter les données par ton appli?

si j'ai bien compris alors tu insères des signets aux endroits ou tu veux inserer les données en placaant le curseur a l'endroit ou tu veux inserer les données(Insertion=>signet)

dans ton projet vb tu déclare la biblio "Microsoft word 10.0 object library"
ou inferieur (projet=>références)

ensuite tu cré un bouton ou tu insères ce code :

private sub cmdword()

dim mondoc as word.application

set mondoc=new word.application
     with mondoc
           .documents.open("chemin\nom du doc.doc")
          .visible=true  (si tu veux voir le doc pendant le transfert)
          .activedocument.bookmarks("nom du signet").range.text=text1.text
          etc.... pour toutes tes textbox
          .activedocument.saveas ("chemin\nouveau nom du doc.doc")
          .quit
     end with
end sub
sinon si tu veux creer le doc a partir de vb va voir par là
http://www.vbfrance.com/code.aspx?id=5120

salut
doro

Merci beaucoup de ta reponse tres precise.

Je vais essayer de suivre tes conseils, mais le probleme c'est que je voudrais pouvoir sortir une sorte d'annuaire sous word, c'est a dire, repeter indefiniement Nom-Prenom-adresse...

Or, avec le système de signet, je vois comment faire une lettre type avec ajout automatique dans des champs "nom et prenom",  mais si je souhaite avoir un tableau avec 10 "noms et prenoms" par page, la, je ne vois plus trop!

merci d'avance

bonjour,
va voir le lien que je t'ai mis
c'est les codes pour faire un doc word a partir de vb sans avoir un doc creer d'avance
salut
doro

Merci beaucoup Doro et effectivement, ton lien m'eclaire mais ce que je n'arrive pas trop a voir, c'est dans le principe, comment je peux creer un document Word de type listing!

C'est a dire, de faire une boucle dans la lecture de ma table access, et d'afficher dans word autant de fois "Nom: M. Doro, Adresse: 123 rue de ..." que j'ai d'entrées dans la base.

Pour faire peut etre plus clair, je ne vois pas comment faire le lien entre une requete sur ma base de donnees et l'affichage de cette requete, de maniere formatee, dans un document word.

Ainsi, si j'ai une BDD tout con, du style "nom, prenom, adresse", je vois, grace a ton lien, comment creer un document word avec un nom, un prenom et une adresse, mais je ne vois pas comment lister dans ce meme document word, toutes les donnees de ma base.

Aie aie aie, je ne suis pas sur d'avoir ete clair!  ;)

bonjour,

c'est possible avec ce code mais pour un début c'est un peu compliquer
je n'ai pas encore eu le temps de me mettre sur ce code pour reellement le comprendre donc je ne peux pas trop t'expliquer
par contre j'ai penser à un truc ce que tu veux faire tu peux le faire
avec un dataenvironnement et un data report pour l'explication c'est un peu long
donc si tu veux tu m'envois ta messagerie en privé et je t'envoi le doc

grace à ça tu peux lister tous tes enregistrements et les imprimés
si tu ne veux pas lister tout les enregistrement de ta table il te suffiras juste de creer
une table qui contiendra les enregistrements que tu souhaite lister et les imprimer
avec le data tu peu inserer des images etc
bref tu peux personnaliser le doc

donc si ça t'interesse fais moi signe et le doc est facile à comprendre

salut
doro

salut Doro

tes explications m'ont servies mais j'obtiens un arrêt de la procédure quand le champ Access a transfèrer est vide.
Voici le code entré :

Private Sub Commande12_Click()

Dim mondoc As Word.Application

Set mondoc = New Word.Application

    With mondoc
        .Documents.Open ("c:\documents and settings\frédéric\mes documents\exemple.doc")
        .Visible = True
        .ActiveDocument.Bookmarks("nom").Range.Text = nom
        .ActiveDocument.Bookmarks("prénom").Range.Text = prenom
        .ActiveDocument.Bookmarks("profession").Range.Text = profession
        .ActiveDocument.Bookmarks("adresse").Range.Text = adresse
        .ActiveDocument.Bookmarks("codepostal").Range.Text = codepostal
        .ActiveDocument.Bookmarks("ville").Range.Text = ville
        .ActiveDocument.SaveAs ("c:\documents and settings\frédéric\mes documents\exemple modifié.doc")
        .Quit
       
    End With

End Sub

Merci de m'éclairer de tes lumières
Fred

bonjour
dans le cas d'un champ vide si c'est juste pour lire dans la bd ajoute on error resume next en debut de procedure
tiens moi au courant
salut
doro

re,
le mieu pour on error resume next c'est de le mettre juste avant with mon doc
parce que tu sais que c'est du a un champ vide
salut
doro

Bingo !!!!


Merci pour le coup de main