afficher un msgbox à la place d'une erreur

[RONIBO]

Bonsoir,

J'aimerais afficher un msgbox à la place de cette 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+

 

[Tirou]

Re : afficher un msgbox à la place d'une erreur

En fait non, le Hide (anglais cacher) ne sert qu'à ... cacher ... Du coup, il est encore présent en arrière plan

 

[laetitia90]

Re : afficher un msgbox à la place d'une erreur

bonjour tous 🙂🙂🙂 l'ami Efgé🙂
on pourrait partir sur une gestionnaire d'erreurs
exemple

On Error Resume Next
Workbooks.Open (chemin & Liste.Text)
If Err = 0 Then
MsgBox " code 1"
Else
MsgBox " code 2"
End If
On Error GoTo 0

 

[Si...]

Re : afficher un msgbox à la place d'une erreur

salut

on pourrait n'avoir qu'un UsF.

 

[RONIBO]

Re : afficher un msgbox à la place d'une erreur

Re,

Merci pour les explication. 🙂

@Si... : On peut utiliser dans Option bouton

Un pour le dossier facture et un autre pour le dossier devis?

 

[Si...]

Re : afficher un msgbox à la place d'une erreur

re

pourquoi pas ?

 

[RONIBO]

Re : afficher un msgbox à la place d'une erreur

re,

Merci beaucoup,

Juste quelque questions :

Comment on l'adapte ? Car sans rien touché ça fonctionné

chemin = "C:\Excel Download\" & Nom & "\" ' C:\Excel Download\ à adapter

LeFichier = Dir(chemin & "*.*") '*.* à adapter : *.xls, *.xlsm ...

Comment on fait pour demander la correction? ça marche comment

'ici, on peut rajouter la demande de correction du chemin

A+

 

[RONIBO]

Re : afficher un msgbox à la place d'une erreur

Bonjour,

Up

 

[Si...]

Re : afficher un msgbox à la place d'une erreur

salut

avec retard mais comme c'était fait, voici un exemple joint.