afficher un msgbox à la place d'une erreur

Efgé

XLDnaute Barbatruc

• 29 Août 2013

• #2

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

Bonjour RONIBO
Avec une variable public.
Cordialement

 

Pièces jointes

• Test(2).xls

  74 KB · Affichages: 45
• Test(2).xls

  74 KB · Affichages: 44
• Test(2).xls

  74 KB · Affichages: 47

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 29 Août 2013

• #3

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

Bonjour,

Merci pour ton fichier 🙂

Je rencontre un petit bug

Considérons le fichier Facture vide, lorsque je clic sur le bouton facture comme prévu le message Apparaît
Mais lorsque je clique sur le bouton Devis directement, il me dit que le dossier vide alors qu'il y a des fichiers à l'intérieur 🙁

(Je suis obligé de quitter tous les USF pour corriger ce bug)

A+

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 29 Août 2013

• #4

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

Re
Après tests, je n'ai pas de problèmes de ce type.
Désolé
Cordialement

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 29 Août 2013

• #5

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

re,

c'est peu être à cause de la version je pense,

Quelqu'un d'autre peut tester?

a+

 

Vote positif 0 Vote négatif

T

Tirou

XLDnaute Occasionnel

• 29 Août 2013

• #6

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

Le problème vient du nom du chemin que tu donnes.


Il est défini par 2 lignes :

Code:

...
chemin = "C:\Excel Download\Devis\"
...
new_chemin (chemin)
...
Function new_chemin(Chemin_a_ouvrir As String) As String
...
LeFichier = Dir(Chemin_a_ouvrir & "\*.*")
...

Donc, si on récapitule, ton chemin d'accès est "C:\Excel Download\Devis\\" (plus le "*.*" que je ne sais pas ce que c'est, si ce n'est un smiley). Bref, normal qu'excel ne trouve rien.

Remplaces juste ton LeFichier = Dir(Chemin_a_ouvrir & "\*.*") par LeFichier = Dir(Chemin_a_ouvrir) et ça marche mieux.

Par ailleurs, ton chemin en dur est relou pour ceux qui souhaitent t'aider, tu peux remplacer chemin = "C:\Excel Download\Devis\" par

Code:

chemin = Thisworkbook.path & "\Excel Download\Devis\"

pour que ceux qui ouvrent décompressent ton fichier zip n'aient pas à aller trifouller pour que ce qui est censé marcher fonctionne correctement. (faire de même avec la déclaration du chemin Facture)

En PJ une version rezippée avec les modifications présentées (quoique 1 étage de moins dans l'arborescence de fichier), pour les prochains qui voudront aider

 

Pièces jointes

• Test.zip

  38 KB · Affichages: 21
• Test.zip

  38 KB · Affichages: 19
• Test.zip

  38 KB · Affichages: 18

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 29 Août 2013

• #7

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

Re,

Bonjour Tirou.

Merci pour les explications,

mais ça n'a pas résolu mon problème 🙁

 

Vote positif 0 Vote négatif

T

Tirou

XLDnaute Occasionnel

• 29 Août 2013

• #8

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

Mmm, y compris avec le dossier rezipé ? erf

Tu es bien sous excel 2007? sous windows?

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 29 Août 2013

• #9

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

Re,

Oui même avec le dossier dézipé

Je suis bien sous Windows et office 2007

 

Vote positif 0 Vote négatif

T

Tirou

XLDnaute Occasionnel

• 29 Août 2013

• #10

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

Du coup, je me retrouve comme efgé : pas de bug chez moi, je ne vois pas comment le corriger :s

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 29 Août 2013

• #11

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

Re,

Voici étape par étape ce que je fais pour avoir ce bug

Cliquer sur l'icone vert.
Cliquer sur Facture
Cliquer sur "Ouvrir la facture sélectionnée
Le message box apparait bien (Le dossier facture est vide...)
Cliquer sur OK
Re-cliquer sur l'icone vert
Et cette fois ci on clique sur Devis
Et la rien apparait (alors que je devrait avoir des fichier)

A+

 

Vote positif 0 Vote négatif

T

Tirou

XLDnaute Occasionnel

• 29 Août 2013

• #12

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

Ok vu.

Tes précédents userforms étaient cachés, du coup, la procédure d'initialisation ne se relançait pas en cliquant sur le dossier vert.

J'ai forcé la fermeture complète des userforms, histoire de bien tout réinitialiser.

 

Pièces jointes

• Excel Download.zip

  34.6 KB · Affichages: 25
• Excel Download.zip

  34.6 KB · Affichages: 25
• Excel Download.zip

  34.6 KB · Affichages: 23

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 29 Août 2013

• #13

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

Re,

Merci,

comment tu as fais pour pas que les usf ne reste pas cachés?

 

Vote positif 0 Vote négatif

T

Tirou

XLDnaute Occasionnel

• 29 Août 2013

• #14

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

La commande unload Me permet de fermer l'userform (me étant l'userform dans lequel tu écris ce code)

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 29 Août 2013

• #15

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

Re

Merci pour l'info 🙂

Et les me.hide? C'est la même chose non?

 

Vote positif 0 Vote négatif