Discussion :

[bartimeus35]

Bonjour à tous,

Voici un exemple de mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
report_name = "E_emprunts_livres"
filter_name = "pk_user=" & p_user
 
pdf_name = "C:\tmp\bilan_emprunts_par_user.pdf"
 
 DoCmd.OpenReport report_name, acViewPreview, , filter_name, acHidden
  DoCmd.SetWarnings False
  DoCmd.OutputTo acOutputReport, report_name, acFormatPDF, pdf_name
  DoCmd.SetWarnings True
 DoCmd.Close acReport, report_name, acSaveNo

Si le pdf_name est "C:\tmp\bilan_emprunts_par_user.pdf" c'est immédiat,
Si le pdf_name est qq ch comme "\\monserveur\titi\dossier_emprunts\bilan_emprunts_par_user.pdf"=> ça met 45 secondes pour exécuter la ligne ci dessous et je peux avoir ACCES ne répond pas .... c'est flippant .

Code :

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

DoCmd.OutputTo acOutputReport, report_name, acFormatPDF, pdf_name

Je peux avoir jusqu’à 40 fois à exécuter ce bout de code .. c'est ingérable

Est ce une lenteur liées à Access ? c'est super bloquant !

Note : j'accède au serveur derrière un VPN.
Merci de vos idées et conseils .

[ONTAYG]

Bonjour,

D'un coté c'est ton PC et de l'autre le serveur avec des sous-répertoires, donc c'est souvent normal que tu ais un décalage de temps.

Je pense qu'il faut voir cela coté serveur.

ONTAYG

[deedolith]

Salut,

A tester:
1) Enregistrer temporairement l'état en local.
2) Faire une copie vers sa destination finale avec les fonctions de manipulation du système de fichiers (de préférence FSO).
3) Détruire le fichier temporaire.

Tu peux également faire un test manuel:
Copie un fichier sur le serveur via l'explorateur.

[Thumb down]

Le problème que vous rencontrez pourrait être lié aux performances liées à l'accès distant au fichier PDF via le chemin réseau (`\\monserveur\titi\dossier_emprunts\bilan_emprunts_par_user.pdf`). Les accès réseau peuvent être plus lents que les accès locaux, surtout s'il y a des problèmes de latence ou de connectivité.

Une solution pourrait être de copier d'abord le fichier PDF vers un répertoire local avant d'utiliser `DoCmd.OutputTo`. Voici une modification de votre code qui fait cela :

Code VBA :

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
Sub ExportPDF()
 
    Dim report_name As String
    Dim filter_name As String
    Dim pdf_name As String
    Dim local_pdf_name As String
 
    report_name = "E_emprunts_livres"
    filter_name = "pk_user=" & p_user
 
    ' Spécifiez le chemin local où vous souhaitez copier le PDF
    local_pdf_name = "C:\tmp\local_bilan_emprunts_par_user.pdf"
 
    ' Copie le fichier PDF vers le répertoire local
    FileCopy "\\monserveur\titi\dossier_emprunts\bilan_emprunts_par_user.pdf", local_pdf_name
 
    ' Ouvre le rapport en mode aperçu
    DoCmd.OpenReport report_name, acViewPreview, , filter_name, acHidden
 
    ' Désactive les avertissements
    DoCmd.SetWarnings False
 
    ' Exporte le rapport au format PDF
    DoCmd.OutputTo acOutputReport, report_name, acFormatPDF, local_pdf_name
 
    ' Réactive les avertissements
    DoCmd.SetWarnings True
 
    ' Ferme le rapport
    DoCmd.Close acReport, report_name, acSaveNo
 
    ' Supprime le fichier PDF local si nécessaire
    ' Commentez la ligne suivante si vous souhaitez conserver le fichier local
    Kill local_pdf_name
 
End Sub

Cette modification copie d'abord le fichier PDF distant vers un répertoire local, puis l'ouvre en mode aperçu, l'exporte au format PDF et le ferme. Vous pouvez ajuster le chemin local en fonction de vos besoins.