Message d'erreur à la conversion .xls vers .pdf

Version imprimable

05/02/2009, 13h28
samson_02

Message d'erreur à la conversion .xls vers .pdf

Bonjour à toutes et à tous... :D

Je rencontre un problème lorsque j'effectue la conversion d'une feuille excel 2003 vers PDF. La feuille à convertir contient, entre autres, une image bitmap.
Lors de la conversion avec PDFCreator, via module vba, l'opération se déroule sans problème, mais le processus ne semble pas vouloir stopper et génère une erreur qui dit:

"Microsoft Office Excel is waiting for another application to complete an OLE action"

En français ça donne : " Microsoft Office Excel attend qu'une autre application termine une action OLE"

Pourriez-vous m'indiquer ce qui pourrait générer cette erreur svp, afin que je puisse la corriger...
Merci d'avance.... :D :D
05/02/2009, 13h33
Maxence HUBICHE

Ma boule de cristal m'indique que tu as un souci, et qu'un jour, peut-être, tu iras jusqu'à nous montrer un peu de code, voire même, à nous indiquer qu'après avoir fait du pas à pas tu as repéré sur quelle ligne le processus semble s'arrêter.

Mais je suis vraiment novice en divination.
Peut-être que je me trompe :?

OK OK... :D :D

Voice le code qui convertit la feuille :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub PDF_convert()
 
Dim jobPDF As Object
Dim NomPDF As String
Dim RepertoirePDF As String
Dim ClientPDF As String
Dim CheminPDF As String
Dim nom As String
 
Set F1 = Sheets("F_Edit")
Set F2 = Sheets("detail")
 
CheminPDF = "C:\WO_MOB_PDF\"
nom = F1.Range("B2")
 
    'MsgBox "" & nom
 
NomPDF = "REPORT-" & nom & ".pdf"
    'MsgBox "" & NomPDF
 
If IsEmpty(ActiveSheet) Then Exit Sub
 
Set jobPDF = CreateObject("PDFCreator.clsPDFCreator")
ActiveSheet.Name = "detail"
    'MsgBox "" & ActiveSheet.Name
 
'With jobPDF
'.cOption("UseAutosave") = 1
'.cOption("UseAutoSaveDirectory") = 1
'.cOption("AutoSaveDirectory") = CheminPDF
'.cOption("AutoSaveFileName") = NomPDF
'.cOption("AutoSaveFormat") = 0
 
'End With
 
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
 
jobPDF.cClose
Set jobPDF = Nothing
 
End Sub

C'est une adaptation d'un code que j'ai trouvé...
En ce" qui concerne le pas à pas , je n'ai sais pas comment on le pratique... :D:D:D, je suis tout disposé à apprendre... :D :D :oops:

05/02/2009, 13h49
ouskel'n'or

Regarde ici, Godzestla propose une syntaxe qui fonctionne ;)
05/02/2009, 13h56
samson_02

OK merci, vais tenter avec ce code...et je te fais un "feedback"... :D :D

J'ai essayé cette solution.... Le problème OLE semble résolu, cependant j'ai du remplacer la ligne :

Code:

If IsEmpty(Selection.UsedRange) Then Exit Sub

par:

Code:

If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub

Pour que cela fonctionne correctement...
Pour le reste tout fonctionne comme prévu... :D :D

Voici mon code final:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub Conv_PDF()
 
Dim ImpPDF As Object
Dim NomPDF As String
Dim RepertoirePDF As String
Dim ClientPDF As String
Dim CheminPDF As String
Dim SheetPDF As String
 
CheminPDF = "C:\WO_MOB_PDF\"   'Chemin de sauvegarde
ClientPDF = Sheets("F_Edit").Range("B2").Value  'récupération du nom
NomPDF = ClientPDF & ".pdf"
RepertoirePDF = NomPDF
Sheets(Array("detail")).Select  'sélection de feuille
 
If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub
Set ImpPDF = CreateObject("PDFCreator.clsPDFCreator")
With ImpPDF
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Impossibilité d'initialiser PDFCréator !", vbCritical + vbOKOnly, "PDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = CheminPDF
.cOption("AutosaveFilename") = RepertoirePDF
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until ImpPDF.cCountOfPrintjobs = 1
DoEvents
Loop
ImpPDF.cPrinterStop = False
Do Until ImpPDF.cCountOfPrintjobs = 0
DoEvents
Loop
ImpPDF.cClose
Set ImpPDF = Nothing
 
End Sub

Merci beaucoup pour vos conseil à tous... :D :D :D