Bonjour à toutes et à tous,
J'ai une macro qui fait ce qui doit être fait, mais j'aimerai apporter une modification pour qu'elle soit parfaite (ou presque...), en revanche mes connaissances s'arrête là, ou les vôtres commencent
Au niveau de la ligne "MsgBox xTemp", la macro me sort le nom du fichier le plus récent (ce que je veux), et si je clique sur "OK", il me l'ouvre. Jusqu'ici on est d'accord.
J'aimerai pouvoir cliquer sur "Annuler" auquel cas la macro n'ouvrira pas le fichier.
Mais je ne sais vraiment pas comment faire, j'ai essayé d'adapter des choses trouver sur le web, mais rien de probant...
Merci pour votre aide
J'ai une macro qui fait ce qui doit être fait, mais j'aimerai apporter une modification pour qu'elle soit parfaite (ou presque...), en revanche mes connaissances s'arrête là, ou les vôtres commencent
Code:
Sub CherchePlusRecentDaily()
Dim xChemin
Dim xFichier
Dim xTemp
Dim xDatHeur
Dim Z As String
Dim T As String
Dim S As String
Z = Sheets("TABLE").Range("I14").Value
xChemin = Z
xFichier = Dir(xChemin & "*.xlsx") 'Definit le type de fichier (ici xls)
xTemp = xFichier
xDatHeur = FileDateTime(xChemin & xFichier)
Do While xFichier <> ""
If FileDateTime(xChemin & xFichier) > xDatHeur Then
xTemp = xFichier
xDatHeur = FileDateTime(xChemin & xFichier)
End If
xFichier = Dir
Loop
MsgBox xTemp
Range("I19") = xTemp
ActiveSheet.Calculate
T = Sheets("TABLE").Range("I15").Value
Workbooks.Open (T), 0
Windows("Modul-Reporting.xlsm").Activate
End SubAu niveau de la ligne "MsgBox xTemp", la macro me sort le nom du fichier le plus récent (ce que je veux), et si je clique sur "OK", il me l'ouvre. Jusqu'ici on est d'accord.
J'aimerai pouvoir cliquer sur "Annuler" auquel cas la macro n'ouvrira pas le fichier.
Mais je ne sais vraiment pas comment faire, j'ai essayé d'adapter des choses trouver sur le web, mais rien de probant...
Merci pour votre aide