Ouverture fichier avec macro

Bonjour

Je n'arrive pas a finaliser ma macro qui me permet d'ouvrir le dernier fichier modifié dans un dossier ...

Voici la ou j'en suis:

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:\.........\" ' chemin d'accès du répertoire
ChangeFileOpenDirectory = Chemin

Documents.Open Filename = DernierFichier(Chemin)     -----> erreur à cette étape

End Sub

est ce que vous voyez d'où ça peut provenir ?

Merci d'avance pour votre aide

Bonjour,

A tester :

Function DernierFichier(Chemin As String) As String
Dim Fichier$, lastFile$, DerniereDate As Date
Fichier = Dir(Chemin)
Do While Fichier <> ""
    If FileDateTime(Chemin & Fichier) > DerniereDate Then
        lastFile = Chemin & Fichier
    End If
    Fichier = Dir()
Loop
DernierFichier = lastFile
End Function

Sub OuvrirDernierDoc()
Dim Chemin$
Chemin = "C:\.........\" ' chemin d'accès du répertoire
Documents.Open DernierFichier(Chemin)   
End Sub

A+

Bonjour

J'obtiens la même erreur ... objet requis.

Si je fais un pas à pas sur OuvrirDernierDoc() il passe correctement sur la fonction et elle s'effectue correctement. mais ensuite il retourne dans OuvrirDernierDoc et là j'ai l'erreur objet requis....

bonjour,

Si tu expliquais plutôt ce que tu voudrais faire.

Ici c'est un forum Excel : "Documents.Open" est une expression issue du VBA Word...

Tu essaies d'ouvrir un fichier Word avec Excel ou un fichier Excel avec Word ?

A+

Bonjour

Pardon si je n'ai pas suffisament expliqué mon problème.

J'ai un fichier excel qui doit être mis à jour le matin.

Pour cela j'ai acces un dossier dans lequel se trouve plusieurs fichier .csv (qui s'ouvre directement avec excel).

Mon but est de pouvoir ouvrir le dernier fichier modifié se trouvant dans ce dossier car les informations necessaires à la MAJ se trouve dans ce fichier.

Pour essayer de trouver où est mon erreur j'ai créé un nouveau module avec :

Documents.Open Filename = "C:\......\fichier.csv

En choisissant un des fichier du dossier

Mais même de ce manière il n'arrive pas à l'ouvrir ...

Bonsoir,

Modifier de la manière suivante :

Function DernierFichier(Chemin As String) As String
Dim Fichier$, lastFile$, DerniereDate As Date
Fichier = Dir(Chemin)
Do While Fichier <> ""
    If FileDateTime(Fichier) > DerniereDate Then
        lastFile = Fichier
    End If
    Fichier = Dir()
Loop
DernierFichier = lastFile
End Function

Sub OuvrirDernierDoc()
Dim Chemin$
Chemin = "C:\......\*.csv"
Workbooks.Open DernierFichier(Chemin)
End Sub

A+

Rechercher des sujets similaires à "ouverture fichier macro"