[Macro] Ouvrir le dernier fichier créé

Question

Bonjour,


Je souhaiterai ,lors d'une macro d'enregistrement sous Word 2003, ouvrir le dernier fichier crée dans un répertoire.

Merci d'avance

kona78

PS : je connais rien VBA ;-)

Ivan-hoe · Answer

Bonjour Kona, 
voilà une fonction qui détermine le fichier le plus récent d'un répertoire donné. 
en dessous, une procédure qui ouvre le fichier le plus récent (en faisant appel à la fonction). 
Après, à toi d'intégrer ça dans ta macro d'enregistrement. 
A suivre...

Function DernierFichier(Chemin As String) As String
Dim Fichier As String, DerniereDate As Date
Fichier = Dir(Chemin)
Do While Fichier <> ""
    If FileDateTime(Chemin & Fichier) > DerniereDate Then
        DerniereDate = FileDateTime(Chemin & Fichier)
        DernierFichier = Fichier
    End If
    Fichier = Dir()
Loop
End Function

Sub OuvrirDernierDoc()
Dim Chemin As String
Chemin = "C:\...\...\FichiersRecus\" ' saisir ici le chemin d'accès de ton répertoire
ChangeFileOpenDirectory Chemin
Documents.Open FileName:=DernierFichier(Chemin)
End Sub

lermite222 · Answer

bonjour,
petite erreur dans la déclaration de la variable
la ligne
    Dim Chemin As String
doit être en tête du module (tout au dessus)
A+

Ivan-hoe · Answer

C'est exact. 
Merci lermite 222 pour cette correction. 
I.

[Macro] Ouvrir le dernier fichier créé

3 réponses

Votre réponse

Newsletters