Bonjour à tous,
Mon problème du jour est le suivant :
Dans le fichier ci-joint j'ai un tableau en forme de planning avec les jours de la semaine (en gris la demi journée de repos).
une fois ce planning rempli, il est exporté dans word par le code suivant :
J'aimerais fusionner les cellules représentant les demi journées de chaque jour quand la personne n'a pas de demi journée de repos (Ex: dans le fichier fourni, fusionner les celules du "matin" et de "l'après-midi" pour les jours suivants : Mardi, Mercredi, Jeudi, Vendredi).
Problème : si je le fais sous excel avant l'exportation dans word, la fusion des cellules ne garde pas tous les éléments contenus dans les deux cellules.
Une fois exporté dans Word, je ne sais pas comment faire référence aux cellules à fusionner et comment conditionner ces fusions.
Merci d'avance.
A+, Matt.
Problème : sous excel la fusion de cellule
Mon problème du jour est le suivant :
Dans le fichier ci-joint j'ai un tableau en forme de planning avec les jours de la semaine (en gris la demi journée de repos).
une fois ce planning rempli, il est exporté dans word par le code suivant :
Code:
Sub EnvoyerTableauxExcelVersWord()
Sheets("Planning travail").Activate
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
AppWord.Visible = True
Set DocWord = AppWord.Documents.Add
With AppWord.Selection
.Application.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
.TypeText Text:="SEMAINE " & semaine & "/" & Year(Date)
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.MoveLeft Unit:=wdCharacter, Count:=50, Extend:=wdExtend
.Font.Size = 16
.Font.Bold = wdToggle
With .Borders(wdBorderLeft)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth150pt
End With
With .Borders(wdBorderRight)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth150pt
End With
With .Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth150pt
End With
With .Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth150pt
End With
With .Borders
.DistanceFromTop = 0
.DistanceFromLeft = 0
.DistanceFromBottom = 0
.DistanceFromRight = 0
End With
.Application.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End With
Dim i As Single
Dim aa As Single
Dim bb As Single
aa = 3
bb = 7
For i = 1 To nbrtec Step 1
Range(Cells(aa, 2), Cells(bb, 6)).Copy
With AppWord.Selection
.Paste
.Tables(1).Rows.Alignment = wdAlignRowCenter
.Tables(1).AutoFitBehavior (wdAutoFitFixed)
.Tables(1).Range.Cells(3).WordWrap = True
.Tables(1).Range.Cells(4).WordWrap = True
End With
If i = 4 Or i = 8 Or i = 12 Then
With AppWord.Selection
.InsertBreak Type:=wdTextWrappingBreak
.InsertBreak Type:=wdTextWrappingBreak
.InsertBreak Type:=wdTextWrappingBreak
End With
End If
aa = aa + 6
bb = bb + 6
Next i
End Sub
J'aimerais fusionner les cellules représentant les demi journées de chaque jour quand la personne n'a pas de demi journée de repos (Ex: dans le fichier fourni, fusionner les celules du "matin" et de "l'après-midi" pour les jours suivants : Mardi, Mercredi, Jeudi, Vendredi).
Problème : si je le fais sous excel avant l'exportation dans word, la fusion des cellules ne garde pas tous les éléments contenus dans les deux cellules.
Une fois exporté dans Word, je ne sais pas comment faire référence aux cellules à fusionner et comment conditionner ces fusions.
Merci d'avance.
A+, Matt.
Problème : sous excel la fusion de cellule