excel et Pdf

[rvkgb]

Bonjour le forum,

Je fais un tableau chaque jour ou je note des résultats d'analyses.
Tous les soirs, je transforme ce tableau en Pdf.
Y a t-il une astuce pour qu'à la fermeture du fichier, la conversion en Pdf se fasse automatiquement?

merci de vos réponses
rvkgb

 

[Guest]

Re : excel et Pdf

Bonjour RvKgb,

Avec PDFCreator comme imprimante virtuelle:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ActivePrinter = "PDFCreator sur Ne00:"
    ThisWorkbook.PrintOut
End Sub

A bientôt

 

[rvkgb]

Re : excel et Pdf

Bonjour Hasco,

merci pour la réponse mais ou je le colle ce maudit code? Débutant oblige;-)
rvkgb

 

[rvkgb]

Re : excel et Pdf

Re,

Çà y est, j'ai trouvé.😀
Si un jour, je veux le désactiver, je l'efface ou y a t-il une autre manip?
rvkgb

 

[jeanpierre]

Re : excel et Pdf

Bonjour rvkgb, Hasco,

Pour désactiver, sans effacer, il te suffit de mettre, devant chaque ligne, une apostrophe ( le ' ), comme on le fait pour un commentaire.

Bon après-midi.

Jean-Pierre

 

[rvkgb]

Re : excel et Pdf

Bonjour jeanpierre,

Ca c'est fastoche.............merci beaucoup et bon après midi.
rvkgb

 

[rvkgb]

Re : excel et Pdf

Bonjour le forum,

Le code fonctionne très bien mais j'ai une question subsidiaire:
Si mon fichier contient plusieurs feuilles que je veux aussi en Pdf, seule la première est sélectionnée.
Y a t-il une astuce pour avoir un Pdf pour tous les onglets.
Merci de votre aide
rvkgb

 

[Guest]

Re : excel et Pdf

Bonjour Rvkgb,

Avec pdfCreator

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ActivePrinter = "PDFCreator sur Ne00:" 
   ThisWorkbook.PrintOut From:=1, To:=Sheets.Count
End Sub

Si tu veux rétablir l'imprimante par défaut avant fermeture du classeur:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Imprimante as string
Imprimante=Application.ActivePrinter
Application.ActivePrinter = "PDFCreator sur Ne00:"
ThisWorkbook.PrintOut From:=1, To:=Sheets.Count
Application.ActivePrinter=Imprimante
End Sub

A bientôt

 

[rvkgb]

Re : excel et Pdf

Bonjour Hasco, merci pour ta contribution rapide et efficace.
A bientôt
rvkgb