inserer un tableau ds word a partir de VB

Question

Bonjour tout le monde, je voudrais ouvrir un tableau dans word qui synth&#233;tise
mes donn&#233;es int&#233;gr&#233;es sous VB. A l&acute;heure actuelle qd je lance ce programme
il m ouvre word et Basta; il ne met pas le tableau. Qu un pourrait jet&#233; un coup 
d&acute;oeil sur mon programme pour conseils??? 
Merci d&acute;avance. ( je mets que le d&#233;but) 
Thomas 

Sub CreationRapportRevue(NomProjet As String) 
'Cr&#233;&#233; un rapport de synth&#232;se d&#233;crivant la derni&#232;re revue renseign&#233;e 
'Certains renseignements sont extraits du fichier 
Dim nbVal, Valeur, nbRevue, nbAction, i, J, Pos, Index, nbDelivrables, nbActionsAr&#233;aliser As Integer 
Dim NomFichierSource, NomFichier, NomFichierRapport, Ligne As String 
Dim Langue, Synthese, ListeQuestion, sVal As String 
Dim wwApp, TableAction As Object 

On Error GoTo Fin 
Screen.MousePointer = vbHourglass 

Set wwApp = CreateObject("word.application") 'wwApp.Visible (Principale.CheckVoirRapport.Value 1) 
wwApp.Visible = True 
wwApp.Documents.Add DocumentType:=wdNewBlankDocument 
wwApp.Documents.Open 
wwApp.Documents.Active = True 
Set wwSheet = wwApp.Workbooks(1).Sheets(1) 

TableAction = wwApp.Tables.Add(Range:=Appli.Selection.Range, NumRows:=2, NumColumns:= _ 
4, AutoFitBehavior:=1) 
If Principale.Langue = "Fran&#231;ais" Then 
TableAction.Rows(1).Cells(1).Range.Text = "Date d'&#233;ch&#233;ance" 
TableAction.Rows(1).Cells(2).Range.Text = "Niveau d'importance"

econs · Answer

Je pense que &#231;&#224; vient de l&#224; :



TableAction = wwApp.Tables.Add(Range:=wwApp.Selection.Range, NumRows:=2, NumColumns:=4, AutoFitBehavior:=1) 





Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

econs · Answer

J'ai oubli&#233; le Set ... 





Dim TableAction As Table



Set TableAction = wwApp.Tables.Add(Range:=wwApp.Selection.Range, NumRows:=2, NumColumns:=4, AutoFitBehavior:=1) 

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

tomgrc · Answer

Non, malheureusement ca ne change pas.
Ce qui m etonne c est que lorsque word s ouvre, il faut que je clique
sur la page blanche pour avoir la main. Alors que lorsque qu on
ouvre word normalement on a la main automatiquement.
Merci d&acute;avance. Thomas

MAnuIsHere · Answer

Salut, ya ptetre une autre solution: Dim oWord As New Word.Application() oWord = New Word.Application() Dim table As Word.Table table = oWord.ActiveDocument.Tables.Add(Range:=oWord.Selection.Range, NumRows:=, NumColumns:=) En espérant que ca est répondu a ta question

Inserer un tableau ds word a partir de VB

4 réponses

Discussions similaires