Recherche fichier csv puis ouverture

Question

Je souhaiterai faire une recherche du dernier fichier .csv dans un dossier donné, l'afficher dans une boite de dialogue, ensuite je souhaiterai afficher le chemin d'accès de celui-ci et enfin l'ouvrir dans une feuille excel (à partir de la ligne 10). Je bloque sur l'affichage du chemin d'accès, quelqu'un d'entre vous pourrait-il m'aider, je n'ai rien trouvé sur le forum et je précise que je débute en VBA. Je mets le début du code qui fonctionne ci-dessous D'avance merci Sub Cherche() Dim Répert1 As Object Dim Syst_fic As Object Dim Fic1 As Object Dim Fic_nom As String Dim Fic_acces As Date Dim Plus_recent_nom As String Dim Plus_recent_date As Date Dim Répertoire1 As String Set Syst_fic = CreateObject("Scripting.FileSystemObject") 'Nom du répertoire à scanner Répertoire1 = Environ("TEST CSV") & "C:\Users\*\*\*" Set Répert1 = Syst_fic.GetFolder(Répertoire1) For Each Fic1 In Répert1.Files Fic_nom = Fic1.Name 'on ne s'interresse qu'au fichier ".csv" If Right(LCase(Fic_nom), 4) = ".csv" Then Fic_acces = Fic1.datelastaccessed If Fic_acces &gt; Plus_recent_date Then Plus_recent_date = Fic_acces Plus_recent_nom = Fic_nom End If End If Next If Plus_recent_nom &lt;&gt; "" Then MsgBox "le fichier le plus récent est : " & Plus_recent_nom Else MsgBox "Pas de fichier trouvé" End If End Sub...

X Cellus · Answer

Ci-dessous un lien ou le code peut te servir. Note que ton répertoire ou sous-répertoire doit avoir ses fichiers classés par date la plus récente. Ce qui facilite le choix. N'oublie pas le Chdir en haut de la macro pour une recherche locale https://forum.excel-pratique.com/viewtopic.php?f=2&t=138766 Bons tests, bonne continuation...