Discussion :

[pierrepourlesforums]

---

Bonjour,
novice en vba (depuis hier), voici ma question et son contexte.
je veux générer un rapport Word à partir d’un tableau excel, et ne parviens pas à mettre en forme le texte qui sera dans le fichier word.

Le tableau est du type

A	B	C
blabla	224	aaa38
blibli	236	bbb37

La sortie attendue est sous word :

(page1)
A
Blabla
B
224
C
Aaa38
(page2)
A
Blibli
B
236
C
Bbb37

Mon souci est la mise en forme des ‘A’, ‘B’ et ‘C’. Comment faire pour que ceux-ci soient en gras + bleu + centré ?

ci-dessous mon code actuel (qui nécessite d’ailleurs peut-être un peu d’optimisation).
--

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
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
Sub TestEcrireTemplate()
 
 
Dim MonWord As Object
    Set MonWord = CreateObject("Word.Application")
    ' Création d'un nouveau document :
    MonWord.Documents.Add
    ' Ecriture du texte dans ce nouveau document :
    Dim nLine As Integer
    Dim nColumn As Integer
    Dim strValueTitle As String
    Dim strValueSpecificProject As String
    Dim nMaxLine As Integer
    Dim nMaxColumn As Integer
 
    'A MODIFIER PAR UN COUNT
    nMaxLine = 3
    nMaxColumn = 4
 
    For nLine = 2 To nMaxLine
        For nColumn = 1 To nMaxColumn
        'read the value from the cell
        strValueTitle = Cells(1, nColumn)
 
        'Format the value
        'write the value to the document
        MonWord.Selection.TypeText Text:=strValueTitle
 
        ' ICI : MISE EN FORME QUI NE FONCTIONNE PAS
        'With Text
        '    .Font.Bold = True
        'End With
 
        'move to the next line
        MonWord.Selection.TypeParagraph
 
 
        'read the value from the cell
        strValueSpecificProject = Cells(nLine, nColumn)
        'write the value to the document
        MonWord.Selection.TypeText Text:=strValueSpecificProject
        'move to the next line
        MonWord.Selection.TypeParagraph
 
        Next nColumn
 
    'move to next page
    MonWord.Selection.InsertBreak
 
    Next nLine
 
    ' Sauvegarde de ce document ainsi créé :
    MonWord.ActiveDocument.SaveAs "~\test.doc"
    ' Fermeture de ce document :
    MonWord.ActiveDocument.Close
    Set MonWord = Nothing
 
End Sub

--

Merci de votre aide !
Pierre

[78chris]

Bonjour

Créer un style dans Word et l'appliquer (ou bien utiliser un style déjà défini) : on ne formate plus au marteau et au burin, on utilise les styles faits pour cela...

Dans ton cas ce semble être un titre donc utilise le style Titre 1, éventuellement adapté au préalable au look voulu...

Le VBA c'est bien mais connaître les possibilité et règles d'utilisation des logiciels est un préalable pour bien automatiser...

[pierrepourlesforums]

Bonjour,

merci d'avoir pris le temps de répondre, mais appliquer un style ne répond à mon besoin.
Ce document excel est partagé entre plusieurs collègues.
Je souhaite donc que chacun puisse générer un document word dès qu'il le souhaite à parti des informations de ce fichier excel.

L’utilisation de vba dans mon cas va bien plus loin que cet aspect de format, et ma question partagée sur ce forum ne porte que sur un extrait d'un projet plus complet.

Bien cordialement

Pierre

[78chris]

Re

et qu'est-ce qui empêche le VBA de paramétrer le style du document ? Ton descriptif ne contredit en rien mes explications...

Le style de paragraphe appartient au document pas au poste de travail...

[clementmarcotte]

Et puis la propriété Text d'un objet selection ne correspond pas un objet. Donc, on applique pas de mise en forme au texte, mais à la sélection. Donc:

Code :

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

1
2
3
4
5
 
 ' ICI : MISE EN FORME QUI NE FONCTIONNE PAS
        'With Text
        '    .Font.Bold = True
        'End With

ne marchera jamais


Mais :

Code :

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

1
2
3
4
5
With selection.font
 
---
 
end with

ou

Code :

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

1
2
3
With selection.style
---
end with

Cela devrait mieux passer


Selection.style

Selection.font


Font


Style

P.S. Quand l'IntelliSense reste endormie, ou qu'elle ne donne pas le mot-clef attendu; c'est généralement signe qu'il y a quelque chose qui cloche.

[pierrepourlesforums]

Bonjour,
merci d'avoir pris le temps de me répondre.
Je suis arrivé à bout de mon code, notamment grâce à la lecture de ce tuto
http://tatiak.canalblog.com/archives.../35132611.html
Pierre