Problème intégration de tableaux par automation Word

Version imprimable

16/05/2011, 16h18
Steph9

Problème intégration de tableaux par automation Word

Bonjour à tous,

je viens ici car j'ai un gros souci... mon application doit exporter des données vers un document éditable au format Word avec de grosses contraintes de formatage... :roll:
Je créé par automation des tableaux que je remplis à la volée. les premiers tableaux fonctionnent parfaitement jusqu'à un certain moment où tout commence à s'enchevêtrer... résultat, je me retrouve à continuer mon automation à l'intérieur d'une cellule de tableau... 8O
En passant en mode Débogage Pas-à-pas, tout fonctionne parfaitement !!!!!! :scarymov:

C'est comme s'il y avait un problème de délai.. L'action suivante est débutée avant la fin de l'action précédente...

Quelqu'un aurait-il une idée pour résoudre ce problème ?? Merci d'avance.

En attendant, je continue d'investiguer...:koi:
16/05/2011, 18h33
pgz

Bonjour.

Tu pourrais utilement montrer la partie du code concernée, ou mieux : un exemple simplifié du pb! Une sorte de démonstrateur...

Cordialement,

PGZ

1 pièce(s) jointe(s)

Merci pour la réponse c'est vrai que c'est difficile à comprendre...

voilà le résultat en image... En fait ce qui est surligné en rouge devrait être en dessous du tableau... Pire, le petit tableau est créé à l'intérieur du champ AAAAAAAAAAAA, du coup coupé en 2... C'est comme si les actions du code vba ne s'éxécutaient pas dans l'ordre indiqué... Sauf si je le fais en pas-à-pas, là tout est nickel d'où ma question sur la temporisation...

Voici le code... Merci d'avance :ccool:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
For i = 1 To nbSC
        With wdApp.Selection
            .Font.Bold = True
            .TypeText Text:=RstSC!SC_Numero & " - " & RstSC!PV & " (CB " & RstSC!SC_Code & ")" & _
                vbCrLf & vbCrLf
            .Font.Bold = False
            .TypeText Text:=RstSC!SC_Description & vbCrLf
            'photo
             If Not IsNull(RstSC!Lien) Then
                Dim S As InlineShape
                Set S = wdApp.Selection.InlineShapes.AddPicture(RstSC!Lien, False, True)
                S.Height = 100
                S.Width = 133
             End If
           .TypeText Text:=vbCrLf & vbCrLf
 
        End With
 
        'insertion tableau P
        wdApp.Selection.ParagraphFormat.SpaceBefore = 4
        wdApp.Selection.ParagraphFormat.SpaceAfter = 4
        wdApp.ActiveDocument.Tables.Add Range:=wdApp.Selection.Range, NumRows:=2, NumColumns:=4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
        With wdApp.Selection.Tables(1)
            If .style <> "Grille du tableau" Then .style = "Grille du tableau"
            .ApplyStyleHeadingRows = True
            .ApplyStyleLastRow = True
            .ApplyStyleFirstColumn = True
            .ApplyStyleLastColumn = True
        End With
        wdApp.Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
        wdApp.Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
        wdApp.Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
        wdApp.Selection.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
        wdApp.Selection.MoveRight Unit:=wdCharacter, Count:=2
        wdApp.Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        wdApp.Selection.Cells.Merge
        wdApp.Selection.Font.Bold = True
        wdApp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        wdApp.Selection.TypeText Text:="Entête"
        wdApp.Selection.MoveDown Unit:=wdLine, Count:=1
        wdApp.Selection.Font.Bold = False
        wdApp.Selection.MoveLeft Unit:=wdCharacter, Count:=3
        wdApp.Selection.TypeText Text:="col1"
        wdApp.Selection.MoveRight Unit:=wdCell
        wdApp.Selection.TypeText Text:="Col2"
        wdApp.Selection.MoveRight Unit:=wdCell
        wdApp.Selection.TypeText Text:="Col3"
        wdApp.Selection.MoveRight Unit:=wdCell
        wdApp.Selection.TypeText Text:="Col4"
        wdApp.Selection.SelectRow
        wdApp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
    'Ajout des prelevements
        Dim RstPR As DAO.Recordset, nbPR As Long
        Set RstPR = dbs.OpenRecordset("SELECT ....;")
        RstPR.MoveLast:     nbPR = RstPR.RecordCount:    RstPR.MoveFirst
 
        For j = 1 To nbPR
            'creation new line
            wdApp.Selection.MoveDown Unit:=wdLine, Count:=1
            wdApp.Selection.InsertRowsAbove 1
            'remplissage
            wdApp.Selection.TypeText Text:=RstPR!PR_NumeroC:        wdApp.Selection.MoveRight Unit:=wdCharacter, Count:=1
 
            wdApp.Selection.TypeText Text:=RstPR!PR_Description:     wdApp.Selection.MoveRight Unit:=wdCharacter, Count:=1
            wdApp.Selection.TypeText Text:="Positif"
 
            wdApp.Selection.MoveRight Unit:=wdCharacter, Count:=1
 
            wdApp.Selection.TypeText Text:=Nz(RstPR!PR_Interp)
 
            RstPR.MoveNext
        Next
 
        wdApp.Selection.Font.Bold = False
        wdApp.Selection.MoveDown Unit:=wdLine, Count:=1
        wdApp.Selection.TypeText Text:=vbCrLf & vbCrLf & vbCrLf & vbCrLf
        wdApp.Selection.MoveEnd
 
        RstSC.MoveNext
    Next

17/05/2011, 15h42
pgz

Bonjour.

D'entrée, tu travailles avec l'objet Selection. Comment t'assures-tu que c'est le bon objet ou le bon Range qui est sélectionné? En plus cette façon de travailler fait des temps d'exécution longs.
Personnellement, je n'aime pas : je préfère travailler avec les objets et les Range au travers de signets.

J'ai conscience que ce n'est qu'un avis général.

Cordialement,

PGZ
17/05/2011, 15h57
Steph9

Youpi !!!!!

problème résolu en fait le problème venait du fait de réussir à sortir du tableau pour écrire la suite lorsque la dernière cellule sélectionnée contenait plus d'une ligne... vu que je sortais avec MoveDown Unit:=wdLine, Count:=1...

si ça peut aider quelqu'un... enfin plus spécifique tu meurs !! :mouarf:
17/05/2011, 16h12
Steph9

Citation:

Envoyé par pgz

Bonjour.

D'entrée, tu travailles avec l'objet Selection. Comment t'assures-tu que c'est le bon objet ou le bon Range qui est sélectionné? En plus cette façon de travailler fait des temps d'exécution longs.
Personnellement, je n'aime pas : je préfère travailler avec les objets et les Range au travers de signets.

J'ai conscience que ce n'est qu'un avis général.

Cordialement,

PGZ

oups, j'ai pas actualisé ma fenetre, je n'avais pas vu la réponse !! désolé :oops:

en fait je n'ai pas trop le choix car je ne maitrise pas assez pour faire autre chose :P En fait tout part d'Access à la base. Si tu as des liens à me conseiller sur ce sujet, je suis preneur ! Niveau temps d'éxécution, pour moi c'est gérable, mais si ça peut être plus propre, ça m'intéresse ! :ccool:

Mer
17/05/2011, 16h38
pgz

Hello

Citation:

Envoyé par Steph9

.Si tu as des liens à me conseiller sur ce sujet, je suis preneur ! Niveau temps d'éxécution, pour moi c'est gérable, mais si ça peut être plus propre, ça m'intéresse !

Regarde par exemple Comment exporter des données Excel vers plusieurs signets d'un document Word ?
Aucun .Select ni Selection. n'est nécessaire!

PGZ
18/05/2011, 10h13
Steph9

merci pour le lien. En fait j'utilise déjà cette méthode mais pour cette partie là je ne maîtrise pas le nombre de tableaux, je ne peux donc pas créer les tableaux en avance dans le modèle Word...