Discussion :

[adragon]

Bonjour à toutes et à tous

Mon souci est :

J'enregistre des factures.
Elles sont nommées comme ceci

1 nomduclient
2 nonduclientsuivent
3 etcetc

et je dois ouvrir la dernière enregistré.
j'ai essayé ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Macro1()
 
ChDir ("C:\Users\guy\Desktop\piot\facture\")
NomDuDernierFichierEnregistr = _
Application.RecentFiles(1).Name
Workbooks.Open Filename:=NomDuDernierFichierEnregistr
End Sub

mais ça m'ouvre toujours le 5 alors que j'en ai fait plusieurs après.

Si vous avez des idées.
Je vous en serai reconnaissant

j'édite pour ajouter que en fait, il m'ouvre le dernier fichier consulté !
si je consulte le 7, il m'ouvrira le 7 ... et que ChDir ("C:\Users\guy\Desktop\piot\facture\") ne sert à rien

[Invité]

bonjour regarde ça: http://excel.developpez.com/telechar...te-de-creation

[XLRATOR]

Bonjour,
Une autre approche qui forcerait Excel à ouvrir votre dernière facture enregistrée, celle d'une clé registre VB ET VBA exemple:

1. Sous l'evenemt AfterSave de votre Classeur mettre le code qui suit:
   

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1
   2
   SaveSetting appname:="MTSS", Section:="Settings", Key:="LatestSaved", Setting:=ThisWorkbook.Path & "\" & ThisWorkbook.Name
   'MTSS, Settings, et LatestSaved peuvent être n'importe quelle chaine de caractére

   Cette Procédure crée une clé registre dans le chemin suivant:
   HKEY_CURRENT_USER\Software\VB and VBA Program Settings, ou la modifie si elle existe déjà
   
   
2. Sous un bouton Control ou dans un module mettre le code suivant:
   

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1
   2
   3
   4
   Dim str As String, lf As String
   str = Application.RecentFiles(1).Path & "\" & Application.RecentFiles(1).Name 'Utile pour la toute prmiére exécution du code.
   lf = GetSetting(appname:="MTSS", Section:="Settings", Key:="LatestSaved", Default:=str)
   Workbooks.Open lf

Pas testé mais ça devrait marcher.

Cordialement.
Karim