Sujet Précédent Sujet Suivant

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
A voir également:

1 réponse

Réponse 1 / 1
gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 742
 
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
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