Renommer un fichier en utilisant VBA

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.

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+

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.