Inserer une condition pour gerer les fichiers inexistants

Salut le forum

Je souhaite intégrer une condition dans le code ci-dessous :

Merci de me dispenser du fichier joint svp.

Mais avant voici mon besoin : j’ai un dossier qui contient plusieurs fichiers.

Le code ci-dessous permet d’ouvrir chaque fichier par clic d’un bouton de commande et de copier une plage donnée et de passer au fichier suivant.

Je souhaite que lorsque le fichier à traiter ne s’y trouve pas, qu’un message s’affiche suivi de l’arrêt du traitement.

Sachant que le fichier à traiter correspond au nom du bouton de commande (Sheets("MENU_DA").Cmde.Caption).

Sub Ouv_Classeur_Copier()

'cette macro permet d'ouvrir chaque fichier d'un user

' pour copier sa plage C13:M61 et le coller sur sa feuille

' du classeur principal

Set wk1 = ThisWorkbook

sh = Sheets("MENU_DA").Cmde.Caption

spath = "C:\Users\" & Environ("username") & "\Desktop\TEST\"

sFile = Sheets("MENU_DA").Cmde.Caption & ".xlsm"

    wk1.Sheets(sh).Unprotect "dac2017"

    If sh = "" Then MsgBox "Fichier inexistant pour l'utilisateur" & sh: Exit Sub

    Workbooks.Open Filename:=spath & sFile

    Range("C13:M61").Copy

    wk1.Sheets(sh).Range("C13").PasteSpecial Paste:=xlValues

Application.DisplayAlerts = False

ActiveWorkbook.Close Savechanges:=False

    wk1.Sheets(sh).Protect "dac2017"

Application.DisplayAlerts = False

End Sub

Bonjour

If Len(Dir(sPath & sFile)) = 0 Then MsgBox "Fichier inexistant pour l'utilisateur" & sFile: Exit Sub

A voir

Bye