Bonjour,


Je ne suis pas un programmeur et j'aurais besoin de votre aide afin de comprendre pourquoi mon code ne fonctionne pas. J'imprime en PDF un rapport qui a la date et l'heure comme nom de fichier. Je veux renommer le fichier avec le nom du rapport et le numéro de dossier (qui est sur le formulaire). Voici mon code:

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
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
 
    Dim stDocName As String
    Dim Directory As String
    Dim Newdir As String
    Dim Filename As String
    Dim Newname As String
    Dim newfille As String
    Dim Dossier As String
 
    stDocName = "Dossier privé - Confirmation"
    DoCmd.OpenReport stDocName, acNormal
    Dossier = [Dossier]
    Directory = "C:\adjudex\documents\temp\"
    Newdir = "C:\adjudex\documents\"
    Filename = Directory & Dir("C:\adjudex\documents\temp", vbNormal)
    Newname = Newdir & Dossier & "Dossier_privé_Confirmation.pdf"
    Name Filename As Newname
 
Exit_Command1_Click:
    Exit Sub
Quand l'exécution est terminée, le fichier demeure avec son nom original, mais ily a un répertoire créé du nim de Dossier_privé_Confirmation.pdf

Pourriez-vous m'aider? Merci d'avance.