XL 2019 Impression automatique en vba

[michelf]

Bonjour, je suis en phase finale de la création d'un bulletin scolaire.
J'ai une macro qui me permet de les générer tous en format pdf.
Je voudrais, à la place (ou en plus) pouvoir les imprimer tous... Je pensais utiliser .printout mais je ne sais pas comment l'intégrer dans (ou en +) de la macro ci-dessous.
Quelqu'un peut-il m'aider, merci d'avance


Sub ImpressionDesBulletins()
Dim c As Range
For Each c In Worksheets("Elèves").Range("A3:A24")
Worksheets("Bull").Cells(1, 8).Value = c.Value
' ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=
Worksheets("Bull").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Temp\" & c.Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Next

End Sub

 

[michelf]

Je reviens vers vous pour vous dire encore merci et qu'une autre personne m'a suggérer pour "derlig" ceci:
Derlig = Worksheets("Elèves").Range("A" & Rows.Count).End(xlUp).Row
Donc, juste remettre la feuille Elèves avant le reste
Encore un tout grand merci

 

[Etoto]

Si ton code fonctionne très bien et que la seule chose que tu veux masquer est le débogage, esaie ça

Sub Creerpdf()
'
' pdf Macro
'

Dim c As Range
Dim Derlig As Integer
Derlig = Range("A" & Rows.Count).End(xlUp).Row
On error resume next
For Each c In Worksheets("Elèves").Range("A1:A" & Derlig)

Worksheets("Bulletin Virgi").Cells(1, 9).Value = c.Value
Worksheets("Bulletin Virgi").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Document\Docs Excel\Bulletins de Virgi\PDF-Bull-Virgi\" & c.Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:="True", IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Next

Sheets("Bulletin Virgi").Activate
Cells(1,9).Activate
Cells(1,9).Value = "e1"
On error GoTo 0

End Sub

Sub Creerpdf()

'

' pdf Macro

'


Dim c As Range

Dim Derlig As Integer

Derlig = Worksheets("Elèves").Range("A" & Rows.Count).End(xlUp).Row

On error resume next

For Each c In Worksheets("Elèves").Range("A1:A" & Derlig)


Worksheets("Bulletin Virgi").Cells(1, 9).Value = c.Value

Worksheets("Bulletin Virgi").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"D:\Document\Docs Excel\Bulletins de Virgi\PDF-Bull-Virgi\" & c.Value & ".pdf" _

, Quality:=xlQualityStandard, IncludeDocProperties:="True", IgnorePrintAreas _

:=False, OpenAfterPublish:=False


Next


Sheets("Bulletin Virgi").Activate

Cells(1,9).Activate

Cells(1,9).Value = "e1"

On error GoTo 0


End Sub

 

[michelf]

Voilà, tout fonctionne bien sur mon pc : parfait !!
Hélas, ma belle-fille travaille sur Mac et là, catastrophe au niveau mise en page, tout est chamboulé et quand je travaille pour remettre les sauts de page au bon endroit, la manœuvre est à recommencer à chaque réouverture!!! Qui sait s'il y a un moyen de conserver ma mise en page en passant de PC à Mac ??? Merci d'avance!

 

[kiki29]

Salut, en fouillant sur le site de Ron de Bruin ?
En commençant par qqch comme ceci : Test if it is a Mac or a Windows Machine et y insérer les mep Mac et PC cela dans Workbook_Open()
Accessoirement si Ralentissement macro après impression PDF.
Excel a beau être né sur Mac, restera la défenestration du Mac.

 

[michelf]

Salut, en fouillant sur le site de Ron de Bruin ?
En commençant par qqch comme ceci : Test if it is a Mac or a Windows Machine et y insérer les mep Mac et PC cela dans Workbook_Open()
Accessoirement si Ralentissement macro après impression PDF.
Excel a beau être né sur Mac, restera la défenestration du Mac.

Pas trouvé la réponse mais merci d'avoir essayé; je laisse tomber.

 

[kiki29]

Salut, tu ne trouveras que rarement une solution "toute cuite", as-tu essayé :

En commençant par qqch comme ceci : Test if it is a Mac or a Windows Machine et y insérer les MEP Mac et PC cela dans Workbook_Open() par exemple ?

A voir également : ici

 

[michelf]

Salut, tu ne trouveras que rarement une solution "toute cuite", as-tu essayé :

A voir également : ici

Je ne cherche pas du tout de solution toute cuites je suis juste un "amateur" qui travaille par essais et erreurs et là j'ai, me semble-t-il, atteint mon niveau d'incompétence. Je ne serai pas en mesure de tester : je n'aurai plus accès au mac pendant un certain temps. Merci d'avoir cherché