XL 2013 Aide pour compléter macro

[Kaizers]

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 🙄

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 Sub

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 🙂

 

[pierrejean]

Re : Aide pour compléter macro

Bonjour

A tester:

Remplacer

MsgBox xTemp

par

reponse = MsgBox("Ouvrir " & xTemp, vbYesNo)
If reponse = 7 Then Exit Sub

 

[Kaizers]

Re : Aide pour compléter macro

Bonjour

A tester:

Remplacer

MsgBox xTemp

par

reponse = MsgBox("Ouvrir " & xTemp, vbYesNo)
If reponse = 7 Then Exit Sub

Merci c'est exactement ça, j'ai appris une nouvelle chose, merci beaucoup 🙂