Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2382 connectés 

  FORUM HardWare.fr
  Programmation

  VBA gros problème entre access et word !!!

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VBA gros problème entre access et word !!!

n°108291
muintyr
Ad gloriam natus
Posté le 06-03-2002 à 14:37:18  profilanswer
 

J'ai une base de données Access, dans cette base de données, j'ai un formulaire avec un bouton qui crée un tableau dans un document word existant, le code est le suivant :  
 
Dim myWDApp As Word.Application
   Dim strsql As String
   Dim myRange As Word.Range, myTable As Word.table
   Dim acell As Word.Cell, iCol As Integer
   Dim rst1 As New ADODB.Recordset, irow As Integer    
   strsql = "SELECT Prem,Deux,Trois,Quatre,Cinq,Libel,Qui,Comment FROM TCodes"
 
   With rst1
       .ActiveConnection = CurrentProject.Connection
       .Open strsql, , adOpenKeyset, adLockOptimistic
   End With
   
   Set myWDApp = CreateObject("Word.Application" )
   myWDApp.Documents.Open ("d:\Bdd\QLT\doc587.doc" )
   Set myRange = myWDApp.ActiveDocument.Range(0, 0)
   myWDApp.ActiveDocument.Tables.Add Range:=myRange, _
       NumRows:=rst1.RecordCount + 1, NumColumns:=8
       
   For irow = 2 To myWDApp.ActiveDocument.Tables(1).Rows.Count
   iCol = 0
       For Each acell In myWDApp.ActiveDocument.Tables(1).Rows(irow).Cells
           acell.Range.Text = IIf(IsNull(rst1.Fields(iCol)), _
               "", rst1.Fields(iCol))
           iCol = iCol + 1  
       Next acell
   rst1.MoveNext
   Next irow
 
   myWDApp.ActiveDocument.Tables(1).AutoFitBehavior wdAutoFitContent
   myWDApp.Visible = True
 
Le problème, c'est que selon des critéres, certaines lignes du tableau (dans word) doivent etre grisées, d'autres doivent etre écrites en italiques et d'autres doivent etre alignees à gauche....
 
Comment dois-je faire, est-ce que je dois programmer ça dans word ou alors dans access ??? Et comment dois-je m'y prendre

mood
Publicité
Posté le 06-03-2002 à 14:37:18  profilanswer
 

n°108432
Bloodymary​_
Posté le 06-03-2002 à 17:05:00  profilanswer
 

Set myWDApp = CreateObject("Word.Application" )  
   
T as la main sur word d access avec ca alors autant travailler d access puisque tu y es deja non ?
 
De toute facon tu as le choix, a toi de voir


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

  VBA gros problème entre access et word !!!

 

Sujets relatifs
[JAVA] Probleme avec JTreeProblème avec un forum en HTML e ASP...
C Problème de passage par référence[C++] Petit problème de compilateur.
FLEX petit probleme[Javascript / Apache] petit probleme -> error : exec format error
Pitit probleme avec bison ...help me please !!!!petit probleme html !!!! code inside
[make/gcc] problème de compilation[c++] Probleme avec les classes...
Plus de sujets relatifs à : VBA gros problème entre access et word !!!


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR