Renommer un fichier en utilisant VBA

[bfaucher]

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 :

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.

[LedZeppII]

Bonjour,

C'est peut-être à cause de Dir("C:\adjudex\documents\temp", vbNormal).
Tu fais un Dir sur un dossier (temp) en ne voulant en sortie que des fichiers.
Ça ne renvoie rien.

Essaie avec Dir("C:\adjudex\documents\temp\*.pdf", vbNormal).
Là, on demande le premier fichier pdf du soud-dossier temp

A+

[robyseb]

Salut il me semble bizarre ta déclaration de [dossier]

tu écrit :

Code :

1
2
3
4
5
Dim Dossier As String
 
stDocName = "Dossier privé - Confirmation"
DoCmd.OpenReport stDocName, acNormal
Dossier = [Dossier]

si tu désire avoir un numéros qui est dans un formulaire, il me semble mal déclaré !!!
on devrait voir :

Code :

1
2
3
dossier = me.dossier 
'ou 
dossier = forms!stDocName!Dossier

Et

Code :

Filename = Directory & Dir("C:\adjudex\documents\temp", vbNormal)

devrait être

Code :

Filename = Dir("C:\adjudex\documents\temp\*.pdf", vbNormal)

comme LedZeppII te la spécifié

Donc ta déclaration Directory ne sert à rien .... Pourrait tu nous montrer un exemple du nom du fichier pdf qui a la date et l'heure comme tu le dit.