Merci & Conversion excel en .pdf

mutzik

XLDnaute Barbatruc

• 24 Mai 2006

• #2

Bonjour Mako,

Il existe chez Adobe un convertisseur freeware qui installe une imprimante virtuelle sur ton système
Dès que tu choisis cette 'imprimante' pdf, cela va exporter ton fichier dans un fichier .pdf

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 24 Mai 2006

• #3

Bonjour

tiens regarde ce fil où je donne un code pour récuperer d'abord le nom de l'imprimante active avant de transformer en pdf puis remettre l'ancienne imprimante

Lien supprimé

Bon courage

 

Vote positif 0 Vote négatif

M

Mako

XLDnaute Nouveau

• 24 Mai 2006

• #4

Merci pour ton code pascal,

Dim monimprimante

monimprimante = ActivePrinter 'récupérer imprimante active

For aa = 0 To 9
Nom = 'PDF sur ne0' & aa & ':'
On Error Resume Next
Application.ActivePrinter = Nom
If ActivePrinter = Nom Then Exit For
Next.

'Là ta conversion en PDF puis

ActivePrinter = monimprimante 'remettre imprimante active

Si je comprend bien il faut mettre un code pour convertir en PDF apres 'Next.', je t avoue que je suis incapable d en faire un ...
😱

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 24 Mai 2006

• #5

Re

En plus simple ce que tu peux faire c'est à l'ouverture de ton fichier récupérer le nom de ton imprimante active puis de la remettre au début du code de chaque clic d'impresson

Il faut déclarer Public ta variable dans un MODULE

Public MonImprimante as string


Dans le Thisworkbook

Private Sub Workbook_Open()

MonImprimante = ActivePrinter 'récupérer imprimante active


Puis au début du code avant l'impression

ActivePrinter = MonImprimante 'remettre imprimante active

 

Vote positif 0 Vote négatif

M

Mako

XLDnaute Nouveau

• 24 Mai 2006

• #6

Merci, j ai compris et je crois pouvoir me debrouiller.
J ai visité ton blog, certaines photo sont tres belle, et connaissant le golf du morbihan, j y suis tres sensible.

Encore merci

 

Vote positif 0 Vote négatif

M

Mako

Guest

• 24 Mai 2006

• #7

Ca ne marche pas, des que j utilise adobe elle reste l imprimante par default...
Je vais asseyer de changer de convertisseur PDF, il doit y en avoir un qui est mieux foutu.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 24 Mai 2006

• #8

RE

Si vraiment cela modifies l'imprimante par défaut sous windows en effet cela va être problèmatique

Si cela change juste l'imprimante active voilà un code récupéré qui permet de remettre l'imprimante par défaut comme imprimante active

Option Explicit

Declare Function GetProfileStringA Lib 'KERNEL32' (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer) As Integer
Dim Printer As String
Dim Port As String

Sub Default_Printer_Port()

Dim Result As String * 255

Call GetProfileStringA('Windows', 'Device', '', Result, 254)
Printer = Left(Result, InStr(Result, ',') - 1)
Port = Mid(Result, InStr(InStr(Result, ',') + 1, Result, ',') + 1)

End Sub

Sub modif()
Default_Printer_Port
ActivePrinter = Printer & ' sur ' & Port
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

M

Mako

XLDnaute Nouveau

• 24 Mai 2006

• #9

J ai essayer et rebelotte.
C est dans windows que ca bug, maintenant c est sur.

Merci d avoir essayer de m aider

 

Vote positif 0 Vote négatif

Ti_

Nous a quitté

Repose en paix

• 24 Mai 2006

• #10

je m'immisce dans ce fil pour vous rappeler que sur Vériti, vous pouvez trouver mon programme XLS2PDF qui réalise l'interface entre Excel et PDFCreator et dont le code source est librement accessible. Et même si le code d'XLS2PDF n'est pas d'un simplicité évidente, j'y ai joint un programme d'exemple montrant comment convertir à la demande un fichier Excel ou une simple feuille (ou plusieurs) depuis un programme VBA sans pratiquement aucune autre programmation que celle que je fournis déjà

http://www.veriti.net

 

Vote positif 0 Vote négatif

F

Florence

Guest

• 22 Juin 2006

• #11

J'ai testé le programme, mais quand je le lance une 2 ème fois , PDFCREATOR ne se ferme pas et donc je suis bloquer

 

Vote positif 0 Vote négatif

Ti_

Nous a quitté

Repose en paix

• 22 Juin 2006

• #12

je te réponds ici plutôt que sur Vériti, parce que c'est plus simple que de répondre sur un espace réservé aux commentaires.
Tu dis que PDFCreator s'ouvre, mais normalement il doit rester invisible, donc tu ne dois pas le voir du tout, à moins que tu l'aies déjà ouvert auparavant 'à la main' (et si je me souviens bien, dans ce cas XLS2PDF t'annonce une erreur). J'en conclus qu'il doit y avoir une chose que tu ne fais pas correctement, ou alors tu as un problème bizarre sur ta machine.

 

Vote positif 0 Vote négatif