Posez votre question Signaler

Passage de vb6 vers pdf [Résolu]

jus2mandarine 78 Messages postés vendredi 5 juin 2015Date d'inscription 31 juillet 2018 Dernière intervention - 5 sept. 2016 à 15:38 - Dernière réponse : vb95 1636 Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut 16 août 2018 Dernière intervention
- 13 sept. 2016 à 20:54
Visual Basic 6 Posez votre question Signaler
Bonjour,
J'aimerai savoir quel est le code que je dois utiliser pour passer de vb6 à un fichier pdf.
En général, lorsque je faire un passage de vb6 vers Excel je saisi le code ci-dessous:
Private Sub cmdExporter_Click()
Dim i, j, k, l As Integer
'On Error GoTo errxcel
Dim xlo As Object
Set xlo = CreateObject("Excel.Application")
DoEvents
xlo.Visible = True

xlo.Workbooks.Open App.Path & ".\imprimer\Bon de commande achat.xlsx"

xlo.Workbooks(1).Sheets(1).Cells(10, 3) = txtRefAchat
xlo.Workbooks(1).Sheets(1).Cells(11, 3) = txtNumFournisseur
xlo.Workbooks(1).Sheets(1).Cells(12, 3) = txtNomduFournisseur
xlo.Workbooks(1).Sheets(1).Cells(12, 6) = txtAdresse
xlo.Workbooks(1).Sheets(1).Cells(16, 2) = txtDésignation
xlo.Workbooks(1).Sheets(1).Cells(16, 7) = txtQuantité

End Sub
Mais je na sais pas comment ça se passe entre vb6 et un fichier pdf.

Please, help me !
Afficher la suite 

Votre réponse

Répondre au sujet

5 réponses

Signaler Commenter la réponse de ucfoutu
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 11 avril 2018 Dernière intervention - 5 sept. 2016 à 17:48
0
Merci
Bonjour,
Excel accepte l'automation. Je ne connais qu'acrobat en ce qui concerne la création d'un pdf. Or, cette appli ne connaît à ma connaissance pas l'automation.
Mais tu dis que tu sais piloter (donc utiliser l'automation) VBA/Excel.
Le plus simple ne serait-il alors pas pour toi d'enregistrer le classeur ainsi obtenu en fichier pdf ? (ce que te permet une instruction VBA que tu peux voir en utilisant l'enregistreur de macro de Excel). Il te suffirait alors d'appliquer, depuis VB6, cette instruction à l'objet Excel (la feuille concernée) que tu as créée en automation).
Pour ton info : voici un exemple de ce que donne l'enregistreur de macro : 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\glo.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

Signaler Commenter la réponse de jus2mandarine
jus2mandarine 78 Messages postés vendredi 5 juin 2015Date d'inscription 31 juillet 2018 Dernière intervention - 5 sept. 2016 à 18:10
Thank's to you !

ça me va déjà !

COOL
Signaler Commenter la réponse de ucfoutu
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 11 avril 2018 Dernière intervention > jus2mandarine 78 Messages postés vendredi 5 juin 2015Date d'inscription 31 juillet 2018 Dernière intervention - 5 sept. 2016 à 19:05
"Merci" est plus joli et moins "à côté de la plaque" que "Thanks" (surtout si pas d'apostrophe indue).
Si résolu : discussion à libérer (un clic sur le tag RESOLU au niveau de ton premier message).
Signaler Commenter la réponse de jus2mandarine
jus2mandarine 78 Messages postés vendredi 5 juin 2015Date d'inscription 31 juillet 2018 Dernière intervention > ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 11 avril 2018 Dernière intervention - 13 sept. 2016 à 16:01
Bonjour,

Merci pour la remarque et l'esquisse de solution.

Malheureusement cette solution ne correspond pas à mes attentes.

J'ai approfondi mes recherches et j'ai compris que cela est faisable avec l'objet DataReport ou avec l'application Cristal Report.

Moi, pour résoudre mon problème j'ai utilisé l'application Cristal Report qui propose plus d'options.

Merci.
Signaler Commenter la réponse de vb95
vb95 1636 Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut 16 août 2018 Dernière intervention > jus2mandarine 78 Messages postés vendredi 5 juin 2015Date d'inscription 31 juillet 2018 Dernière intervention - 13 sept. 2016 à 20:54
Bonsoir
Si résolu : discussion à libérer (un clic sur le tag RESOLU au niveau de ton premier message) comme te l'as demandé ucfoutu
Merci
Commenter la réponse de ucfoutu

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Les tops du mois