excel 2003 macro

[bdragon]

Bonjour,
Je souhaite faire une macro qui m'ouvre le dernier fichier enregistré.

Il sont au format suivant:

1 toto.xls
2 titi.xls
3 blablabla.xls
4 pouette pouette.xls
5 pierre richard.xls
6 un caniche jaune.xls

Si vous avez des idées...

Merci et à bientôt
-----

[Pauldair]

Bonjour,

Voici le code:

NomDuDernierFichierEnregistré = Application.RecentFiles(1).Name

La documentation est là: http://msdn.microsoft.com/en-us/libr...ice.15%29.aspx

Cordialement.

[bdragon]

Merci
Mais je n'y arrive pas.
Si je fait ça:
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 10/12/2014 par guy
'

'
Workbooks.Open Filename:="C:\Users\guy\Deskto p\piot\facture\5 .xls"
End Sub

ça fonctionne et m'ouvre mon fichier.
Mais ou je dois placer cette commande pour qu'il m'ouvre le dernier fichier plutôt que le 5.xls ?

Merci d'avance

[bdragon]

J'ai essayé ça

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 10/12/2014 par guy
'

'
ChDir ("C:\Users\guy\Desktop\piot\fa cture\")
NomDuDernierFichierEnregistré = _
Application.RecentFiles(1).Nam e
End Sub

mais fonctionne pas

Merci d'avance à tous

[A voir en vidéo sur Futura]

[Pauldair]

La variable NomDuDernierFichierEnregistré contient le nom et le path du dernier fichier enregistré, donc:

NomDuDernierFichierEnregistré = _
Application.RecentFiles(1).Name
Workbooks.Open Filename:=NomDuDernierFichierEnregistré

Je ne sais plus si VBA admet un nom de variable accentué, le cas échéant nomme ta variable: NomDuDernierFichierEnregistre sans E accent aigu à la fin.

Cordialement.

[bdragon]

ChDir ("C:\Users\guy\Desktop\piot\fa cture\")
Application.RecentFiles(1).Ope n

ça ouvre un fichier, mais pas le dernier.

Merci

[Pauldair]

Et avec :

Application.RecentFiles(1).Name.Open

[bdragon]

merci pour cette réponse rapide

donc je dois utiliser ceci
NomDuDernierFichierEnregistré = _
Application.RecentFiles(1).Nam e
Workbooks.Open Filename:=NomDuDernierFichierE nregistré

Mais comment je m'en sers ?
(je n'ai jamais fait de vba, juste des macros)

[bdragon]

Application.RecentFiles(1).Nam e.Open

don ne une erreur de compilation

Merci

[bdragon]

nouvel essai avec :

Sub Macro1()

ChDir ("C:\Users\guy\Desktop\piot\fa cture\")
NomDuDernierFichierEnregistré = _
Application.RecentFiles(1).Nam e
Workbooks.Open Filename:=NomDuDernierFichierE nregistré
End Sub

Il m'ouvre toujours le 5 .xls, mais pas le dernier

Grrr
merci

[Pauldair]

As tu essayé sans le "é" dans le nom de la variable ?

Sinon essaie avec:

NomDuDernierFichierEnregistr = _
Application.RecentFiles(1).Name
Workbooks.Open Filename:=NomDuDernierFichierEnregistr

[bdragon]

ouais ouais, mais idem

merci

[Pauldair]

Le problème est sans doute que Application.RecentFiles(1) recense le dernier fichier consulté et non le dernier fichier sauvegardé.

As-tu regardé la documentation sur mon premier Post ?

[bdragon]

oui mais c'est en anglais.
donc je pige rien.
mais tu a sans doute raison.

2 minutes plus tard...
Je confirme, tu as raison !
je viens de le vérifier
merci

[Pauldair]

Pour ouvrir le dernier fichier Excel sauvegardé dans un répertoire, tu as un script ici:

http://www.xl-central.com/open-the-l...-a-folder.html

Cordialement.

[bdragon]

Ouaisssssssss

merci !
cool
ça marche !