export tableur avec mise en forme conditionnelle dans word

**maxicobra** · 14/05/2013, 18h02

Alors mon tableau s'exporte très bien dans word à l'aide de signet.
Mais souci, mes mises en formes conditionnelles n'y apparaissent pas! (les point vert/jaune/rouge).

je ne sais pas du tout comment palier au problème.

Voilà 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
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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
Sub exportableur()
 
    Dim oWord As Word.Application
    'Créer une instance de word
   Set oWord = CreateObject("Word.Application")
 
'Copier une plage depuis Excel
 Sheets("tableur cas A ").Select
    Range("A2:F28").Select
 Selection.Copy
 
'Ouvrir un nouveau document
 oWord.Documents.Open "C:\Users\Thibault\Desktop\ondelio\protocole anfr (hf)\livrable brut.docx"
 
    'rendre le document word visible
    oWord.Visible = True
 
    'cherche le signet dans la feuille word
  oWord.Selection.Goto What:=wdGoToBookmark, Name:="Signet"
 'Option du format de page et de mise en page du word
oWord.WordBasic.PageSetupMargins Tab:=0, PaperSize:=0, TopMargin:="3", _
        BottomMargin:="1", LeftMargin:="1", RightMargin:="2", Gutter:="2", _
        PageWidth:="29.7", PageHeight:="21", Orientation:=1, FirstPage:=0, _
        OtherPages:=0, VertAlign:=0, ApplyPropsTo:=2, FacingPages:=0, _
        HeaderDistance:="1", FooterDistance:="1", SectionStart:=1, _
        OddAndEvenPages:=0, DifferentFirstPage:=0, Endnotes:=0, LineNum:=0, _
        CountBy:=0, TwoOnOne:=0, GutterPosition:=0, LayoutMode:=0, DocFontName:= _
        "", FirstPageOnLeft:=0, SectionType:=12, FolioPrint:=0, ReverseFolio:=0, _
        FolioPages:=1
 
 
  'Coller la plage dans Word
  oWord.Selection.PasteAndFormat (wdPasteDefault)
 
  'Sélection du tableau créé dans word
    oWord.Selection.Tables(1).Select
 
'Mise en page du tableau dans word afin qu'il passe sur une seule page
    oWord.Selection.Rows.HeightRule = wdRowHeightAtLeast        'Hauteur de ligne positionnée sur : "huateur de au moins"
    oWord.Selection.Rows.Height = CentimetersToPoints(0.6)     'Hauteur de ligne equivalente à : 0.1
    With oWord.Selection.ParagraphFormat                        'Mise en forme paragraphe
        .SpaceBeforeAuto = False
        .SpaceAfter = 1
        .SpaceAfterAuto = True                                  'Espacement : Auto
        .LineSpacingRule = wdLineSpaceSingle                    'Espacement entre ligne : simple
        .LineUnitAfter = 0                                      'Espacement entre paragraphe : 0
    End With
  oWord.Selection.Tables(1).AutoFitBehavior wdAutoFitWindow       'Fonction auto ajust du tableau dans la page word
   'aligne le tableau au milieu de la page
  oWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
Sheets("tableur cas A ").Select
 
    Range("A29:F55").Select
Selection.Copy
 
 
 
    'rendre le document word visible
    oWord.Visible = True
 
    'cherche le signet dans la feuille word
  oWord.Selection.Goto What:=wdGoToBookmark, Name:="Signet1"
 'Option du format de page et de mise en page du word
oWord.WordBasic.PageSetupMargins Tab:=0, PaperSize:=0, TopMargin:="2", _
        BottomMargin:="1", LeftMargin:="1", RightMargin:="2", Gutter:="2", _
        PageWidth:="29.7", PageHeight:="21", Orientation:=1, FirstPage:=0, _
        OtherPages:=0, VertAlign:=0, ApplyPropsTo:=2, FacingPages:=0, _
        HeaderDistance:="1", FooterDistance:="0", SectionStart:=1, _
        OddAndEvenPages:=0, DifferentFirstPage:=0, Endnotes:=0, LineNum:=0, _
        CountBy:=0, TwoOnOne:=0, GutterPosition:=0, LayoutMode:=0, DocFontName:= _
        "", FirstPageOnLeft:=0, SectionType:=12, FolioPrint:=0, ReverseFolio:=0, _
        FolioPages:=1
 
 
  'Coller la plage dans Word
  oWord.Selection.PasteAndFormat (wdPasteDefault)
 
  'Sélection du tableau créé dans word
    oWord.Selection.Tables(1).Select
 
'Mise en page du tableau dans word afin qu'il passe sur une seule page
    oWord.Selection.Rows.HeightRule = wdRowHeightAtLeast        'Hauteur de ligne positionnée sur : "huateur de au moins"
    oWord.Selection.Rows.Height = CentimetersToPoints(0.6)     'Hauteur de ligne equivalente à : 0.1
    With oWord.Selection.ParagraphFormat                        'Mise en forme paragraphe
        .SpaceBeforeAuto = False
        .SpaceAfter = 1
        .SpaceAfterAuto = True                                  'Espacement : Auto
        .LineSpacingRule = wdLineSpaceSingle                    'Espacement entre ligne : simple
        .LineUnitAfter = 0                                      'Espacement entre paragraphe : 0
    End With
  oWord.Selection.Tables(1).AutoFitBehavior wdAutoFitWindow       'Fonction auto ajust du tableau dans la page word
   'aligne le tableau au milieu de la page
  oWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
 
 
 
  Sheets("tableur cas A ").Select
    Range("G2:K28").Select
 Selection.Copy
 
'Ouvrir un nouveau document
 oWord.Documents.Open "C:\Users\Thibault\Desktop\ondelio\protocole anfr (hf)\livrable brut.docx"
 
    'rendre le document word visible
    oWord.Visible = True
 
    'cherche le signet dans la feuille word
  oWord.Selection.Goto What:=wdGoToBookmark, Name:="Signet2"
 'Option du format de page et de mise en page du word
oWord.WordBasic.PageSetupMargins Tab:=0, PaperSize:=0, TopMargin:="3", _
        BottomMargin:="1", LeftMargin:="1", RightMargin:="2", Gutter:="2", _
        PageWidth:="29.7", PageHeight:="21", Orientation:=1, FirstPage:=0, _
        OtherPages:=0, VertAlign:=0, ApplyPropsTo:=2, FacingPages:=0, _
        HeaderDistance:="1", FooterDistance:="1", SectionStart:=1, _
        OddAndEvenPages:=0, DifferentFirstPage:=0, Endnotes:=0, LineNum:=0, _
        CountBy:=0, TwoOnOne:=0, GutterPosition:=0, LayoutMode:=0, DocFontName:= _
        "", FirstPageOnLeft:=0, SectionType:=12, FolioPrint:=0, ReverseFolio:=0, _
        FolioPages:=1
 
 
  'Coller la plage dans Word
  oWord.Selection.PasteAndFormat (wdPasteDefault)
 
  'Sélection du tableau créé dans word
    oWord.Selection.Tables(1).Select
 
'Mise en page du tableau dans word afin qu'il passe sur une seule page
    oWord.Selection.Rows.HeightRule = wdRowHeightAtLeast        'Hauteur de ligne positionnée sur : "huateur de au moins"
    oWord.Selection.Rows.Height = CentimetersToPoints(0.6)     'Hauteur de ligne equivalente à : 0.1
    With oWord.Selection.ParagraphFormat                        'Mise en forme paragraphe
        .SpaceBeforeAuto = False
        .SpaceAfter = 1
        .SpaceAfterAuto = True                                  'Espacement : Auto
        .LineSpacingRule = wdLineSpaceSingle                    'Espacement entre ligne : simple
        .LineUnitAfter = 0                                      'Espacement entre paragraphe : 0
    End With
  oWord.Selection.Tables(1).AutoFitBehavior wdAutoFitWindow       'Fonction auto ajust du tableau dans la page word
   'aligne le tableau au milieu de la page
  oWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
Sheets("tableur cas A ").Select
 
    Range("G29:K55").Select
Selection.Copy
 
 
 
    'rendre le document word visible
    oWord.Visible = True
 
    'cherche le signet dans la feuille word
  oWord.Selection.Goto What:=wdGoToBookmark, Name:="Signet3"
 'Option du format de page et de mise en page du word
oWord.WordBasic.PageSetupMargins Tab:=0, PaperSize:=0, TopMargin:="2", _
        BottomMargin:="1", LeftMargin:="1", RightMargin:="2", Gutter:="2", _
        PageWidth:="29.7", PageHeight:="21", Orientation:=1, FirstPage:=0, _
        OtherPages:=0, VertAlign:=0, ApplyPropsTo:=2, FacingPages:=0, _
        HeaderDistance:="1", FooterDistance:="0", SectionStart:=1, _
        OddAndEvenPages:=0, DifferentFirstPage:=0, Endnotes:=0, LineNum:=0, _
        CountBy:=0, TwoOnOne:=0, GutterPosition:=0, LayoutMode:=0, DocFontName:= _
        "", FirstPageOnLeft:=0, SectionType:=12, FolioPrint:=0, ReverseFolio:=0, _
        FolioPages:=1
 
 
  'Coller la plage dans Word
  oWord.Selection.PasteAndFormat (wdPasteDefault)
 
  'Sélection du tableau créé dans word
    oWord.Selection.Tables(1).Select
 
'Mise en page du tableau dans word afin qu'il passe sur une seule page
    oWord.Selection.Rows.HeightRule = wdRowHeightAtLeast        'Hauteur de ligne positionnée sur : "huateur de au moins"
    oWord.Selection.Rows.Height = CentimetersToPoints(0.6)     'Hauteur de ligne equivalente à : 0.1
    With oWord.Selection.ParagraphFormat                        'Mise en forme paragraphe
        .SpaceBeforeAuto = False
        .SpaceAfter = 1
        .SpaceAfterAuto = True                                  'Espacement : Auto
        .LineSpacingRule = wdLineSpaceSingle                    'Espacement entre ligne : simple
        .LineUnitAfter = 0                                      'Espacement entre paragraphe : 0
    End With
  oWord.Selection.Tables(1).AutoFitBehavior wdAutoFitWindow       'Fonction auto ajust du tableau dans la page word
   'aligne le tableau au milieu de la page
  oWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
 
 
 
 'Annuler le mode couper/copier
Application.CutCopyMode = False
 
 
End Sub

Invité · 14/05/2013, 19h05

Bonjour,

Est ce que la solution pourrait passer par des captures d'écran des aires concernées au lieu des plages de cellules ?

Si oui, ce lien montre comment on transforme une capture en fichier .jpg via des objets shape et chart.
http://www.developpez.net/forums/d13...images-en-vba/

On doit pouvoir coller les objets de ce code directement dans Word.

Bon courage.

Cordialement.

**maxicobra** · 15/05/2013, 09h46

La macro ne marche pas avec moi...
Y a-t-il un code simple:
selection de cellule/en faire une image GIF/exporter dans word?

Car je fouine sur le net et je trouve rien de très interessant.

**Marc-L** · 15/05/2013, 10h05

Bonjour.

Voir l'aide VBA de la méthode CopyPicture …

**maxicobra** · 15/05/2013, 11h22

Voici le 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
20
21
22
23
24
25
Sub Tester_Exporte_Image()
 
Dim AireACopier As Range
Dim RepertoireSauvegarde As String
Dim NomDeLImageASauvegarder As String
 
  RepertoireSauvegarde = "C:\Users\Thibault\Desktop"
 
  Set AireACopier = ActiveSheet.Range("A2:K68")
  NomDeLImageASauvegarder = "Image1.jpg"
 
  Call exporte_image(AireACopier, RepertoireSauvegarde, NomDeLImageASauvegarder)
 
  Set AireACopier = Nothing
 
  Set AireACopier = ActiveSheet.Range("A69:K180")
  NomDeLImageASauvegarder = "Image2.jpg"
 
  Call exporte_image(AireACopier, RepertoireSauvegarde, NomDeLImageASauvegarder)
 
 Set AireACopier = Nothing
 
 
 
End Sub

Mais il ne m'interesse pas trop car il envoie ca dans un dossier spécifique, et moi je le veux directement dans word. N'empeche que je n'arrive à faire aucunes capteurs malgré tout avec ce code. J'ai pas touché à la selection, car je suis à l'essai pour l'instant.

Et je veux utiliser des signets pour placer dans mon word

Alors gros coup de bol ou je deviens bon lol, j'ai réussis avec ca:

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
Dim wdDoc As Word.Document
 
 Sheets("tableur cas A ").Select
    Range("A2:F28").Select
 
 
 Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
 
 
oWord.Documents.Open "C:\Users\Thibault\Desktop\ondelio\protocole anfr (hf)\livrable brut.docx"
 
oWord.Visible = True
 
 
 
oWord.ActiveWindow.ActivePane.Selection.PasteAndFormat (wdPasteDefault)      'Commande qui devrrais copier mais qui pose pb'
 
 
 
 
End Sub

Cependant j'ai une question:

J'aimerai sélectionner mon tableau en fonction du nombre de ligne que je souhaite. C'est à dire que si je prends que 20 lignes, j'indique 20 dans une cellule, et la macro me récupère cette donnée et l'utilise pour faire le tableau.
la selection n'est plus: A2:F28
mais deviendrai: A2:F"nombre dans la cellule"

Je sais pas si j'ai été suffisamment clair...

Invité · 15/05/2013, 11h38

Code :

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

Range("A2:F" & NombreASelectionner).Select

pour tester

Code :

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

1
2
3
4
5
6
7
8
9
Sub Tester()
Dim NombreASelectionner As Long
 
NombreASelectionner = 28
Range("A2:F" & NombreASelectionner).Select
 
MsgBox (Range("A2:F" & NombreASelectionner).Address)
 
End Sub

Cordialement.

export tableur avec mise en forme conditionnelle dans word

Macros et VBA Excel

Discussions similaires

Partager

Partager