Bonjour à tous,
j'ai suivi le tutorial de cafeine pour exporter les états en PDF à l'aide de PDFCreator.
j'ai un bug récalcitrant que je n'arrive pas à enlever.
en effet, à chaque fois que je créé un PDF il me met une erreur:
"3270 - Propriété non trouvée"
en utilisant le pas à pas détaillé il me précise que l'erreur provient du code de la fonction ScanPDFFiles
j'ai fait une recherche et trouvé un sujet parlant de ce problème mais je n'ai pas trouvé de solution.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
42
43
44
45
46
47
48
49
50
51
52 Sub ScanPDFfiles() ' traitement des fichiers en file d'attente Dim strPath As String, currFile As String Dim rec As DAO.Recordset Dim fso As New FileSystemObject Dim intCount As Integer On Error GoTo scanPDF intCount = 0 strPath = CurrentDb.Properties("workPath") Set rec = CurrentDb.OpenRecordset("SELECT * FROM tblPDFdoc WHERE done = False ORDER BY tim;", dbOpenDynaset) Do While Not rec.EOF ' fonction pour trouver le fichier dont la date est la plus proche ' de la date de demande d'édition currFile = GetFirstFileName(rec!tim) If Len(currFile) > 0 Then ' si le fichier a été trouvé on le renomme fso.MoveFile strPath & currFile, strPath & rec!doc & IIf(intCount = 0, "", intCount) & ".pdf" intCount = 0 ' mise à jour de la table de la file d'attente rec.Edit rec!done = True rec.Update End If rec.MoveNext Loop rec.Close Set rec = Nothing Set fso = Nothing Exit Sub ' traitement d'erreurs scanPDF: If Err.Number = 58 Then ' si le fichier existe déjà ' on rajoute un numéro au nom ... intCount = intCount + 1 Resume Else MsgBox Err.Number & " - " & Err.Description Err.Clear Resume Next End If Set fso = Nothing End Sub
Merci de votre aide
Maxime
Partager