Macro, ouvrir un fichier dans repertoire

Résolu
HELP -  
 HELP -
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.
Configuration: Windows XP Internet Explorer 7.0

1 réponse

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    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
    1
    1. HELP
       
      c'est parfait, c'est exactement ca que je voulais.
      Merci
      0

Discussions similaires

Ouvrir un fichier .pub sans Publisher
baissaoui -
baissaoui -

0 réponse