Discussion :

[yepAccess]

Bonsoir
jai une boucle qui me permet de generer des pdf avec pdfcreator.
Ce que je souhaite faire c'est de renommer a chaque iteration, le
fichier pdf genere.
PdfCreator me genere automatiquement un fichier test.pdf et jessaie de le renommer.
Voici ma boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
While Not rst.EOF
           ' ouverture de l'état par invoice
           Condition = "Invoice.[Invoice Number] = '" & rst![Invoice Number] & "'"
 
           DoCmd.OpenReport strReport, aMode, stFilterName, Condition
           ' impression des pages
           DoCmd.PrintOut aPage, iStart, iEnd, acHigh
           ' fermeture de l'état sans sauvegarde
           DoCmd.Close acReport, strReport, acSaveNo
           ' renommer le fichier
           Name "C:\Temp\test.pdf" As "C:\Temp\" & rst![First Name] & rst![Last Name] & ".pdf"
           rst.MoveNext
Wend

Le probleme c'est que au moment de renommer le fichier , il ne trouve pas le fichier qui prend un certain temps pour se creer.
Jai essaye de creer une fonction pause (avec GetTickCount et une boucle While) mais cette fonction "met aussi en pause" la generation du pdf donc ne resoud pas mon probleme.
Merci davance

[helas]

et ceci ?

Code :

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

1
2
3
4
5
 
Do Until Dir("C:\Temp\test.pdf")<>""
 DoEvents
Loop
Name "C:\Temp\test.pdf" As "C:\Temp\" & rst![First Name] & rst![Last Name

[yepAccess]

Ben ca ne marche pas il me retourne une erreur:
erreur 75 Path/File Access Error
???

[loufab]

Bonjour,

As-tu essayé un Doevents après la ligne de commande de génération ?

Cordialement,

Hélas j'ai été grillé par Hélas...

[yepAccess]

Vous suggerez de faire une boucle sur Doevents?
si oui avec quel condition darret?
cel aressemble a la solutionde helas mais ne marche pas erreur 75

[vodiem]

en fait il fait une boucle jusqu'à qd le nom du fichier apparait,
hors PDFCreator n'a pas forcemment fini de le crée donc le fichier doit être encore verrouillé d'ou l'erreur.

je lui propose donc de boucler sur jusqu'a qd l'erreur n'est plus mais pas possible l'erreur apparait.

on cherche à boucler sur l'ouverture du fichier en mode Write mais on n'a encore la synthaxe et obtenir les résultats de l'opération.

[Mahefasoa]

Bonsoir,
Et pourquoi pas dans ce cas de faire le changement de nom tant que le fichier désigné par le nouveau nom n'existe pas?!
C'est à dire:

Code :

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

1
2
3
4
5
6
 
On Error Resume Next
Do While Dir("C:\Temp\" & rst![First Name] & rst![Last Name] & ".pdf")<>""
   Name "C:\Temp\test.pdf" As "C:\Temp\" & rst![First Name] & rst![Last Name] & ".pdf"
   DoEvents
Loop

Dès que test.pdf existe et est disponible, le changement de nom se fait et la boucle se termine. C'est juste un idée ...

Bon courage et @+

[vodiem]

parce que Name renvoi une erreur:
je lui avait suggerer:

Code :

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

1
2
3
On Error Goto suite
suite:
Name "AncienNom" As "NouveauNom"

mais il dit qu'il a un message d'erreur: que le fichier n'existe pas

On a trouvé une solus d'après le Code de PDFCreator:
mettre un delai
c'est un peu mieux que la solus de cafeine d'après le tuto qui se base sur la date de creation du pdf...et ne gère pas le prb de l'envoi succéssif.

mais je pense que l'idéal c'est l'échec sur l'ouverture en écriture, qu'on a abandonner mais je suis prenant pour ceux qui savent.

peut être:

Code :

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

1
2
3
4
On Error Goto suite
suite:
Resume Next
Name "AncienNom" As "NouveauNom"

Aurait été mieux?

[yepAccess]

L'ideee etait d'obtenir des fichiers pdf nominatif. En effet il sagit de l'impression de factures client et donc l'on souhaitait nommer chaque fichier par le nom du client: Michel.pdf ...etc
Au lieu d'essayer de renommer le fichier une fois creer, nous avons utilise les options d'enregistrement automatique de pdfCreator. Avant chaque impression, on dis a pdfCreator d'enregistrer automatiquement le fichier sous le nom de : nomclient.pdf et on change cette propriete avant chaque impression:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
While Not rst.EOF
                            pdfFileName = rst![First Name] & rst![Last Name] '& ".pdf"
                            With pdfjob
 
                            .cStart "/NoProcessingAtStartup"
                            .cOption("UseAutosave") = 1
                            .cOption("UseAutosaveDirectory") = 1
                            .cOption("AutosaveDirectory") = "C:\temp\"
                            .cOption("AutosaveFilename") = pdfFileName
                            .cOption("AutosaveFormat") = 0
                            .cClearCache
 
                            End With
.... 'IMPRESSION

Ceci ne resolvait pas notre probleme de temp de creation du fichier pdf.Nous avons utilise pour cela la propriete pdfjob.cOutputFilename de pdfCreator, avec une boucle While:

Code :

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

1
2
3
4
5
               C = 0
                Do While (pdfjob.cOutputFilename = "") And (C < (maxTime * 1000 / sleepTime))
                C = C + 1
                Sleep 200
                Loop

En plus de cela il faut ensuite attemdre environ 2s pour que pdfCreator ne soit plus en memoire et donc "libere" le fichier:

Code :

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

1
2
3
4
5
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
....
 
Sleep 2000 ' Wait until PDFCreator is removed from memory

Remarque: declaration de la variable pdfjob

Code :

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

1
2
    Dim pdfjob As PDFCreator.clsPDFCreator
    Set pdfjob = New PDFCreator.clsPDFCreator

MERCI A TOUS ET BONNE SEMAINE