Sub TraitFichierDA()
Dim Reponse As Integer 'Tjrs Integer pour les réponses MsgBox
Dim MoisPrec As String 'sert à ouvrir le mois précédent aujourd'hui
'Ouvrir le fichier DA du mois en cours
Reponse = MsgBox("Voulez-vous traiter les données du mois dernier ?" & _
Chr(10) & "Assurez-vous que le fichier est bien dans le répertoire :" & _
"Fichiers Jasper DAppels", vbYesNo + vbQuestion)
If Reponse = vbYes Then
'eviter erreurs: reponse vide, fichier existe pas, annuler et fermeture croix
On Error Resume Next
MoisPrec = "=PROPER(TEXT(DATE(YEAR(TODAY()), MONTH(TODAY())-1,DAY(TODAY())),""aa mm""))"
Workbooks.Open Filename:= _
"G:\PFS\Documents de travail\Fichiers Jasper DAppels\" & _
"DA " & "MoisPrec" & ".XLSX"
End If
End Sub