Passage de vb6 vers pdf [Résolu]

jus2mandarine 94 Messages postés vendredi 5 juin 2015Date d'inscription 15 octobre 2018 Dernière intervention - 5 sept. 2016 à 15:38 - Dernière réponse : vb95 1683 Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut 11 octobre 2018 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 

Votre réponse

5 réponses

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

jus2mandarine 94 Messages postés vendredi 5 juin 2015Date d'inscription 15 octobre 2018 Dernière intervention - 5 sept. 2016 à 18:10
Thank's to you !

ça me va déjà !

COOL
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 11 avril 2018 Dernière intervention > jus2mandarine 94 Messages postés vendredi 5 juin 2015Date d'inscription 15 octobre 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).
jus2mandarine 94 Messages postés vendredi 5 juin 2015Date d'inscription 15 octobre 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.
vb95 1683 Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut 11 octobre 2018 Dernière intervention > jus2mandarine 94 Messages postés vendredi 5 juin 2015Date d'inscription 15 octobre 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

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.