Afficher un msgbox à la place d'une erreur

Bonsoir,

J'aimerais afficher un msgbox à la place de l'erreur.

L'usf me permet de lister le contenu des dossiers facture et devis.

Lorsque j'ai un des dossier vide j'ai cette erreur.

J'aimerais afficher un message comme :

"Le dossier "Facture ou devis" (en fonction du bouton choisis) est vide"

Extraire l'archive dans c:

Merci d'avance.

A+

Bonsoir,

code à tester et à adapter à tes besoins.

Private Sub BOuvrir_Click()
Application.DisplayAlerts = False
On Error Resume Next
Workbooks.Open (chemin & Liste.Text)
If Err <> 0 Then
MsgBox "Le dossier 'Facture ou devis' (en fonction du bouton choisi) est vide."
On Error GoTo 0
End If
Application.DisplayAlerts = True
Me.Hide
End Sub

Bonjour,

Merci pour le code

J'aimerais améliorer un petit truck,

Lorsque je clic sur le bouton "Facture"

Afficher ce message si dossier vide :

Le dossier facture est vide

Pareil pour le dossier devis

Le dossier devis est vide

C'est possible à faire

là, je passe la main car je ne sais pas me servir des usf

Merci quand même

J'attends une autre solution

A+