Tableau dans pied de page

[Toubabou]

Bonsoir à tous,

Je voudrais insérer le tableau se trouvant dans le fichier joint en pied de page. Pourriez vous m'aider?

Amitiés

Toubabou

 

[phlaurent55]

Re : Tableau dans pied de page

Bonjour Toubabou

voir fichier joint
il suffisait de convertir le tableau en image et mettre cette image dans le pied de page


à+
Philippe

 

[Toubabou]

Re : Tableau dans pied de page

Bonsoir phlaurent55,

Je viens d'essayer, super c'est exactement ce que je recherchais. Je t'en remercie et te souhaite un bon WE.


Jean -Marie

 

[Regueiro]

Re : Tableau dans pied de page

Bonsoir le Forum
Voici avec du VBA

Sub ImagePlageCellules()
Dim F As Worksheet
Dim Répertoire As String
Dim img As Shape
Set F = Worksheets("Feuil1")
Répertoire = ActiveWorkbook.Path & "\" & "Monimage.jpg"
With F
    'La plage de cellules A4:F6 est copiée dans le Presse-papiers en tant qu'image.
    .Range("A4:F6").CopyPicture
    'L'image est collée dans la feuille active
    .Paste
End With
' renomme l'image
Selection.Name = "Image 1"
    'Selection.CopyPicture
   Set img = F.Shapes("Image 1")
   
F.ChartObjects.Add(0, 0, img.Width, img.Height).Chart.Paste
F.ChartObjects(1).Chart.Export Filename:=Répertoire, FilterName:="jpg"
F.ChartObjects(1).Delete
  img.Delete
      ActiveSheet.PageSetup.CenterFooterPicture.Filename = Répertoire

With ActiveSheet.PageSetup
        .CenterFooter = "&G"
End With
End Sub