Macro, ouvrir un fichier dans repertoire Résolu

Question

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.

gbinforme · Answer

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:	est\"    ' à adapter à ton répertoire
fic = Dir(rep)
While fic <> ""
    der = fic
    fic = Dir
Wend
Workbooks.Open (rep & der)
End Sub

Macro, ouvrir un fichier dans repertoire

1 réponse

Votre réponse

Newsletters