Discussion :

[tinange]

Bonjour à tous,

Je cherche à générer depuis un fichier excel et divers userform un document word. J'utilise pour cela VBA sans souci.
Seul problème la mise en page du document qui est particulière (voir en annexe). Il se décompose d'un premier tableau (une ligne 2 colonnes) avec la première case encadrée dans lequel on intègre les données clients (depuis fichier excel) sur la droite la date et le numero d'offre de prix sont présent (générés depuis excel sans souci). Puis par la suite en dessous un texte classique.
Mon problème quand j'ouvre le document "type" vide, je n'arrive pas a acceder à ce tableau pour taper mon texte.
Autrement dit tous les textes se mettent les uns derrière les autres dans la première case du tableau comment positionner l'écriture du texte?

Voici une partie de mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
With WordObj.Selection
        .Alignment = wdAlignParagraphRight
        .Font.Size = 11
        .Font.Italic = False
        .TypeText Text:="A l'attention de : "
        .TypeParagraph
        .TypeText Text:=CStr(Range("F5").Value)
        .TypeParagraph
        .TypeText Text:=CStr(Range("F6").Value)
        .TypeParagraph
        .TypeText Text:=CStr(Range("F7").Value)
        .TypeParagraph
        .TypeText Text:=CStr(Range("F8").Value)
        .TypeParagraph
        .TypeText Text:=CStr(Range("F9").Value)
        .TypeParagraph
        .TypeText Text:=CStr(Range("F10").Value)
        .TypeParagraph
      End With

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
With WordObj.Selection
        .Font.Size = 11
        .Font.Italic = False
        .TypeText Text:=CStr(Range("F11").Value)
        .TypeParagraph
        .TypeText Text:="Annecy, le " + Format(Date, "dd/mm/yyyy")
        .TypeParagraph
        .Font.Bold = True
        .Font.Underline = True
        .Font.Size = 15
        .TypeText Text:="OFFRE DE PRIX " + Format(Date, "YYYYMMDD") + "-01"
        .Font.Size = 11
        .TypeParagraph
        .Font.Bold = False
        .Font.Underline = False
        .TypeText Text:="description"  'a créer
        .TypeParagraph
        .InlineShapes.AddPicture Filename:= _
            "C:\Users\jessica.meudec\Pictures\logo.png", LinkToFile:=False, _
            SaveWithDocument:=True ' ajout d'une image a adapter plus tard
     End With

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
With WordObj.Selection
     .Font.Size = 11
     .Font.Italic = False
     .TypeParagraph
     .TypeText Text:="Madame, Monsieur," 
     .TypeParagraph
     End With

Quels sont les propriétés pour accéder à ce tableau, j'ai essayé des WordObj.Tables(1) mais rien?
De plus, comment fait-on pour aligner une partie de texte à droite?
Y a-t-il une propriété pour écrire une partie de texte sur 2 colonnes?

Merci d'avance de votre aide et je m'excuse si ce sujet a déjà été traité mais je n'ai rien trouvé.

[MaelB]

Hum... Et bien, pourquoi ne pas faire la même mise en page mais sous Excel?

Personnellement c'est ce que j'ai fait. Le code est (très) lourd, je n'ai toujours pas trouvé comment l'alléger mais j'ai réussi à faire ma mise en page sans problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Private Sub Imprimer()
 
'Macro pour imprimer les infos du Userform dans la mise en page Excel
 
'Copier la feuille type (elle sera nommer ici "F(2)")
ActiveWorkbook.Sheets("F").Copy Before:=ActiveWorkbook.Sheets("Feuil1")
 
 
'Envoyer les infos sur la copie de la feuille F
With Worksheets("F(2)")
    .Range("E6").Value = "UNITE: " & Label_Unite.Caption
    .Range("E8").Value = "NOM PRENOM: " & TextBox_Nom.Value
    .Range("T8").Value = "SEMAINE: S " & Cbo_Semaine.Value
 
'etc...
 
End With
 
'Impression centrée sur la page A4
With Worksheets("F(2)")
    .PageSetup.PrintArea = "$A$1:$U$81"
    .PageSetup.CenterHorizontally = True
    .PageSetup.CenterVertically = True
    .PageSetup.Zoom = False
    .PageSetup.FitToPagesWide = 1
    .PageSetup.FitToPagesTall = 1
    .PrintOut
End With
 
'Suppression de la page crée
ActiveWindow.SelectedSheets.Delete
 
End Sub

Voilà, j'espère t'avoir aidé!