Lien Word 2003 / BD Access

Question

Bonjour,

Je ne connais pas bien VBA et je dois cr&#233;er une macro qui effectue la chose suivante :

- dans un doc word
- ouverture d'une base access
- demande de param&#232;tres 
- ex&#233;cution d'une requ&#234;te avec ces param&#232;tres
- &#233;dition du r&#233;sultat sous forme de tableau dans mon doc

Comme je n'arrive d&#233;j&#224; pas &#224; d&#233;clarer ma BD, c'est pas gagn&#233;!!!

Merci &#224; toutes les personnes qui pourront m'apporter de l'aide

MaFa2

Nightcourrier · Answer

Je peux p-e te donner une piste ...

  Public GCNNBASE As New ADODB.Connection ' Connection &#224; la base de donn&#233;es
  Public GRS_MEMBRES As New ADODB.Recordset

   ' Ouverture d'une base de donn&#233;es Access
    GCNNBASE.Provider = "Microsoft.jet.oledb.4.0;Jet OLEDB:Database
    Password=XXXX"
    GCNNBASE.ConnectionString = App.Path & "\Mabase.mdb"
    GCNNBASE.Open

    ' Cr&#233;er une requete
    GRS_MEMBRES.CursorLocation = adUseClient
    GRS_MEMBRES.LockType = adLockOptimistic
    GRS_MEMBRES.Open "SELECT Nom FROM T_MEMBRE , GCNNBASE

  'Cr&#233;ation d'un object word:
  Set appWord = New Word.Application
  appWord.Visible = False ' Word Visible ou non ..

  ' Ouverture d'un document
   Set Feuille = appWord.Documents.Open(App.Path & "\Mondoc.doc", True)
   
     ' Ajouter des info
     ' Ligne 1, Colonne 1
       Feuille.Tables(1).Rows(intLigne).Cells(intColonne).Select
        
       With appWord
            .Selection.Font.Name = "Arial"
            .Selection.Font.Size = 12
            .Selection.Text = GRS_Membre!Nom  ' Ajouter le nom dans mon tableau 
            .Selection.EndKey
        End With

 
Nightcourrier

cs_MaFa2 · Answer

Merci NightCourrier,

effectivement, cela m'a permis d'obtenir ce que je souhaitais

MaFa2

Lien Word 2003 / BD Access

2 réponses

Discussions similaires