Bonjour,
Je voudrais savoir comment faire pour concaténer du texte dans un pieds de page.
ci dessous le code complet
Private Sub bt_imprimer_Click()
Dim datedeb As Date, datefin As Date
Dim ddeb As Single, dfin As Single
Dim lignefin As Double
If tb_datedeb = "" Or tb_datefin = "" Then
MsgBox ("Veuillez saisir la date de début et de fin")
Exit Sub
End If
datedeb = CDate(Format(tb_datedeb, "dd/mm/yyyy"))
datefin = CDate(Format(tb_datefin, "dd/mm/yyyy"))
If datefin < datedeb Then
MsgBox ("La date de fin ne peut être inferieure à la date de début.")
Exit Sub
End If
ddeb = datedeb
dfin = datefin
Sheets("Planning").Activate
Range("E4").AutoFilter Field:=6, Criteria1:=" >= " & ddeb, Operator:=xlAnd, Criteria2:=" <= " & dfin
'Mise en page
lignefin = Range("F4").End(xlDown).Row
Columns("C:E").EntireColumn.Hidden = True
Columns("K:L").EntireColumn.Hidden = True
Columns("CA:CH").EntireColumn.Hidden = True
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$4"
.PrintTitleColumns = "$B:$N"
.CenterHeader = _
"&""Arial,Gras," & "PLANNING du " & Format(datedeb, "d mmm") & " au " & Format(datefin, "d mmm yyyy")
.CenterFooter = "Imprimer le &D"
.RightFooter = "&P/&N"
' .LeftFooter = "activesheets("Paramétrages")range("F2") & " " & range("G2") & " "& range("H2") & " " & range("I2") & " " & range("J2") & " " &range("K2")"
.PrintArea = "$B$4:$CI$" & lignefin
.PaperSize = xlPaperA4
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.5)
.Orientation = xlLandscape
End With
Unload usf_Imprimer
Worksheets("Planning").PrintPreview
''Remise en l'etat
Worksheets("Planning").AutoFilterMode = "False"
Columns("K:L").EntireColumn.Hidden = False
'Selection.AutoFilter Field:=6
End Sub
Dans l'espoir que qqu m'aide ...
AU plaisir de vous lire.
P.S : J'ai posté le meme sur comment ca marche, mais personne ne me répond alors j'ouvre les horizons.