Ouvrir le dernier fichier

Bonjour,

J'ai fait une facturation.

Je souhaite maintenant faire une macro dans les devis qui ouvre là dernière facture. (le dernier ficher)

J'ai trouvé plein de scripts mais il plante tous . Erreur syntaxe...etc

merci d'avance

Bonjour,

Lorsque tu dis le dernier ... que cela signifie-t-il précisément ...???

Aurais-tu un fichier qui a toujours le même nom ... mais qui serait mis à jour à intervalles réguliers ... ce qui t'obligerait à devoir utiliser le fichier ... le plus récent ... ???

Bonjour,

J'ai trouvé comment ouvrir le fichier le plus récent:

'Declare the variables

Dim MyPath As String

Dim MyFile As String

Dim LatestFile As String

Dim LatestDate As Date

Dim LMD As Date

'ton répertoir, à modifier en fonction de ce que tu veux

MyPath = "C:\Users\guy\Desktop\piot\facture\\"

'Make sure that the path ends in a backslash

If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"

'Get the first Excel file from the folder

MyFile = Dir(MyPath & "*.xls", vbNormal)

'If no files were found, exit the sub

If Len(MyFile) = 0 Then

MsgBox "No files were found...", vbExclamation

Exit Sub

End If

'Loop through each Excel file in the folder

Do While Len(MyFile) > 0

'Assign the date/time of the current file to a variable

LMD = FileDateTime(MyPath & MyFile)

'If the date/time of the current file is greater than the latest

'recorded date, assign its filename and date/time to variables

If LMD > LatestDate Then

LatestFile = MyFile

LatestDate = LMD

End If

'Get the next Excel file from the folder

MyFile = Dir

Loop

'Open the latest file

Workbooks.Open MyPath & LatestFile

Voilà, merci.

Bonjour,

Merci d'avoir partagé la solution avec le Forum ..