Discussion :

[maxime350]

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

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

j'ai fait une recherche et trouvé un sujet parlant de ce problème mais je n'ai pas trouvé de solution.

Merci de votre aide
Maxime

[maxime350]

A force de chercher, on fini par trouver!
Ayant passé la journée sur ce code j'ai fini par comprendre et acquérir quelques notions sur le VBA.

j'ai modifier le code en fonction de ce que je souhaite avoir et voila le résultat:

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
 
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
 
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

je n'ai plus d'erreur, donc je suis content