Macro, ouvrir un fichier dans repertoire

Résolu/Fermé

HELP - 27 août 2009 à 23:28
HELP - 27 août 2009 à 23:51

Bonjour,

Je voudrait faire une macro qui va dans un repertoire donné et ouvre le dernier fichier (dernier par ordre de nom des fichiers).

Est-ce que quelqu'un peut m'aider?

Merci.

A voir également:

Macro, ouvrir un fichier dans repertoire
Comment ouvrir un fichier epub ? - Guide
Ouvrir fichier .bin - Guide
Comment ouvrir un fichier docx ? - Guide
Fichier rar - Guide
Ouvrir un fichier .dat - Guide

1 réponse

Réponse 1 / 1

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 708
27 août 2009 à 23:43

bonjour

En espérant avoir compris correctement ta demande succincte, ceci devrait convenir

Sub ouvre()
Dim rep As String, fic As String, der As String
rep = "F:\test\"    ' à adapter à ton répertoire
fic = Dir(rep)
While fic <> ""
    der = fic
    fic = Dir
Wend
Workbooks.Open (rep & der)
End Sub

HELP
27 août 2009 à 23:51

c'est parfait, c'est exactement ca que je voulais.
Merci

Discussions similaires

"Aucune application permettant d'ouvrir cette URL"

comment donner les droits sur fichier partage