Passage de vb6 vers pdf [Résolu]

jus2mandarine 62 Messages postés vendredi 5 juin 2015Date d'inscription 23 septembre 2017 Dernière intervention - 5 sept. 2016 à 15:38 - Dernière réponse : vb95 1386 Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut 12 décembre 2017 Dernière intervention
- 13 sept. 2016 à 20:54
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 

5 réponses

Répondre au sujet
ucfoutu 18022 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 13 décembre 2017 Dernière intervention - 5 sept. 2016 à 17:48
0
Utile
4
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

jus2mandarine 62 Messages postés vendredi 5 juin 2015Date d'inscription 23 septembre 2017 Dernière intervention - 5 sept. 2016 à 18:10
Thank's to you !

ça me va déjà !

COOL
ucfoutu 18022 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 13 décembre 2017 Dernière intervention > jus2mandarine 62 Messages postés vendredi 5 juin 2015Date d'inscription 23 septembre 2017 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).
jus2mandarine 62 Messages postés vendredi 5 juin 2015Date d'inscription 23 septembre 2017 Dernière intervention > ucfoutu 18022 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 13 décembre 2017 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.
vb95 1386 Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut 12 décembre 2017 Dernière intervention > jus2mandarine 62 Messages postés vendredi 5 juin 2015Date d'inscription 23 septembre 2017 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

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.