Discussion :

[devalender]

Bonjour a tous
je veux Exporter une feuille excel vers le format PDF. j'ai parcouru une bonne partie du forum sans trouver satistfaction pour un code valide qui marche :
voici mon code qui génère une erreur :

Code WL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
cnFormatPdf est un entier = 0
mach est une chaîne = "C:\IMPORTEX\MES_RECUS\test2.pdf"

MONEXCEL est un objet OLE "Excel.Application" // créer l'objet dynamique
monclasseur1 est un objet OLE dynamique
monclasseur1 = MONEXCEL>>workbooks>>open("C:\IMPORTEX\MES_RECUS\test1.xlsx") // ouvre le classeur 
monclasseur1>>Sheets("TEST1F1")>>Select // sélectionne ma feuille

monclasseur1>>ActiveSheet>>ExportAsFixedFormat(cnFormatPdf,mach) // code pour l'exportation

Vous avez appelé la méthode Automation 'ExportAsFixedFormat'.
En tentant d'invoquer la méthode <ExportAsFixedFormat> ou de lire la propriété <ExportAsFixedFormat>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 80070057, Un ou plusieurs arguments sont invalides : '

En regardant dans la documentation de ExportAsFixedFormat() après avoir lancer un enregistrement de macro voici le code obtenue :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Macro1()
'
' Macro1 Macro
'
 
'
    ChDir "C:\IMPORTEX\MES_RECUS"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\IMPORTEX\MES_RECUS\test1.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

J'ai donc essayer d'adapter une peu mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
monclasseur1>>Sheets("TEST1F1")>>Select
monclasseur1>>ActiveSheet>>ExportAsFixedFormat(cnFormatPdf,mach,0,OLEvrai,OLEFaux,OLEFaux)

Mais malheureusement j'ai toujours le même code d'erreur.

Merci de m'aiguiller.

[Beeze]

Bonjour,

ExportAsFixedFormat exporte un Workbook avec l'index



J aurai plutôt essayer ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

monclasseur1>>workbooks(1)>>worksheets("TEST1F1")>>ExportAsFixedFormat(cnFormatPdf,mach)

[frankgth]

Bonjour,

Moi j'utilise ce code là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaFeuille>>ExportAsFixedFormat(0, sDOC_EXCEL + i + ".pdf", OLEIgnore, OLEVrai, OLEFaux)

Et ça fonctionne très bien.

[devalender]

Bonjour Beeze

ExportAsFixedFormat exporte un Workbook avec l'index
J aurai plutôt essayer ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

monclasseur1>>workbooks(1)>>worksheets("TEST1F1")>>ExportAsFixedFormat(cnFormatPdf,mach)

Je viens juste d’essayer ce code mais j'ai une erreur :

Vous avez appelé la méthode Automation 'workbooks'.
Erreur 80020006, Nom inconnu

Question, Que représente ici le (1) devant workbooks ?

Merci je cherche toujours !

[devalender]

Bonjour frankgth

Moi j'utilise ce code là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaFeuille>>ExportAsFixedFormat(0, sDOC_EXCEL + i + ".pdf", OLEIgnore, OLEVrai, OLEFaux)

Et ça fonctionne très bien.

j'ai testé ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
monclasseur1>>Sheet>>ExportAsFixedFormat(0,"C:\IMPORTEX\MES_RECUS\test1.pdf",OLEIgnore, OLEVrai, OLEFaux)

mais toujours une erreur !

Erreur 80070057, Un ou plusieurs arguments sont invalides : '
En tentant de lire la propriété <ExportAsFixedFormat>, l'objet Automation/ActiveX

Je suppose que sDOC_EXCEL + i + ".pdf" constitue le nom du fichier pdf ?

Merci

[Beeze]

Bonjour Beeze



Je viens juste d’essayer ce code mais j'ai une erreur :


Question, Que représente ici le (1) devant workbooks ?

Merci je cherche toujours !

C est l index de l objet
https://docs.microsoft.com/fr-fr/off...excel.workbook

[devalender]

ok je vois je vais explorer d'autres solutions dans ce sens !
merci

[Beeze]

T as essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MONEXCEL>>workbooks(1)>>worksheets("TEST1F1")>>ExportAsFixedFormat(cnFormatPdf,mach)

[devalender]

Je viens juste de tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MONEXCEL>>workbooks(1)>>worksheets("TEST1F1")>>ExportAsFixedFormat(cnFormatPdf,mach)

'Erreur 80070057, Un ou plusieurs arguments sont invalides : '
En tentant de lire la propriété <ExportAsFixedFormat>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 80020003, Le membre demandé n'existe pas'

Ça commence vraiment a m’inquiéter. il n’existerai pas une autre façon de le faire ?

Merci

[devalender]

il s'agit surement d'un problème de paramètre mais je ne vois pas exactement lequel

[frankgth]

Bonjour frankgth
Je suppose que sDOC_EXCEL + i + ".pdf" constitue le nom du fichier pdf ?

Oui c'est ça.
Et là je ne vois pas trop pourquoi ça ne marcherais pas chez toi désolé.

[frenchsting]

Je m’immisce dans cette conversation : Un problème de version Excel ?

Sinon, il y la possibilité de passer par logiciel tiers, genre pdf creator.

[devalender]

BONJOUR frenchsting

Je m’immisce dans cette conversation : Un problème de version Excel ?

Oui surement je suis en train de voir.
j'ai la version 2017 et 2013 les deux installer sur la même machine. Donc dans mon code je dois surement savoir quelle version de Excel Choisir ?
je cherche dans ce sens. c'est pas facile !

Sinon, il y la possibilité de passer par logiciel tiers, genre pdf creator.

Peut tu éclairer ma lanterne ?

Merci

[frenchsting]

PDF creator permet "d'imprimer" des pdf. C'est une imprimante virtuelle. Il faut trouver une version portable et les bons paramètres.

[frankgth]

Je m’immisce dans cette conversation : Un problème de version Excel ?

C'est pas impossible effectivement. Je suis sur un office 365 personnellement.