Que l'exportation en pdf comprenne toutes les formes dans le tableau

Bonsoir,

Lorsque je clique sur le bouton "Enregistrer en PDF", j'aimerais que toutes les formes soient prises en compte, y compris celle entourée en rouge...

Or ça me donne ce résultat là et il manque les "formes" créées ==>

Voici le code en question dans le module3 :

Sub M_PDF_Stats()

     Dim FileN$, Maintenant, AppShell

     Maintenant = Format(Now, "yyyymmdd_hhmmss")
     s = Dossier                             'fonction pour déterminer le nom du dossier pour sauvegarder le pdf
     If vbNo = MsgBox("le pdf sera sauvegardé dans le dossier : " & vbLf & s & vbLf & vbLf & "si vous voulez un autre dossier choississez ""Non""", vbYesNo, "Nom du dossier") Then
          s = ChoisirDossier
     End If

     If s = "" Then MsgBox "dossier inconnu": Exit Sub
     FileN = s & "\@_" & Maintenant & ".pdf"     'chemin pour BsAlv

     With Range("Podiums")
          Set c = .Offset(0)     'plage à exporter ver le pdf

          Application.PrintCommunication = False
          With .Parent.PageSetup
               .PrintArea = c.Address
               .LeftMargin = Application.CentimetersToPoints(1)
               .RightMargin = Application.CentimetersToPoints(1)
               .TopMargin = Application.CentimetersToPoints(1)
               .BottomMargin = Application.CentimetersToPoints(1)
               .HeaderMargin = Application.InchesToPoints(0)
               .FooterMargin = Application.InchesToPoints(0)
               '.Orientation = xlPortrait on ne choisit plus l'orientation
               .CenterHorizontally = True

               '.Zoom = False

               .FitToPagesTall = 0
               .FitToPagesWide = 1

          End With
          FileN = Replace(Replace(FileN, "@", "Stats"), "Maintenant", Format(Now, "yymmdd_hhmmss"))
          c.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FileN, OpenAfterPublish:=True
     End With
     Shell_LaunchWindowsExplorer Left(FileN, InStrRev(FileN, "\") - 1)
End Sub

Merci de m'avoir lu

Sur le bouton "Débloquer ou Quitter", tapez vodoraix pour tt débloquer.

Et mot de passe pour débloquer les feuilles ==> seb

Comme je l'avais écrit dans mes sujets précédents tous les noms de familles sont une pure invention, sortis de ma mémoire, au hasard de mes 26 années professionnelles. Et sans lien avec les prénoms ni aucune date de naissance, je vous rassure

Bonne soirée

 With Range("Podiums")
          Set c = .Offset(-1).Resize(.Rows.Count + 1)     'plage à exporter ver le pdf***************************************
          .Parent.Shapes("ZoneTexte 2").OLEFormat.Object.PrintObject = msoTrue 'imprimer ce forme !!!************************
          Application.PrintCommunication = False

          With .Parent.PageSetup
               .PrintArea = c.Address
               .LeftMargin = Application.CentimetersToPoints(1)
               .RightMargin = Application.CentimetersToPoints(1)
etc
  

Dans ta macro, après ce "With Range("Podiums")", il faut changer les 2 lignes suivantes (lignes avec "*****")

Bonsoir Bart' et merci beaucoup, c'est parfait, comme d'hab