Problème d'alerte après exécution de macro

Bonjour,

J'ai une macro qui copie les fichiers d'un autre classeur dans une feuille de mon classeur actif, les filtre et met le filtre dans une autre feuille de mon classeur actif ! J'avais un message qui faisait qu'il fallait à chaque fois valider la copie, j'ai essayé de l'enlever en utilisant Application.DisplayAlerts. Et maintenant j'ai une autre boîte de dialogue qui s'affiche, cela m'arrive quelques fois même avec d'autres fichiers ! Est ce du au fait que j'ai mal utilisé la fonction sinon que pourrais je essayer d'autre ?

Pièce jointe 184723

Merci d'avance pour votre aide

Bonjour,

Sans voir ton code, c'est difficile à dire.
Est-ce que tu n'aurais pas oublié un MsgBox à quelque part ?

Non, non, je l'ai vérifié encore et encore ! ça ne gêne pas le résultat mais je me demande si ça ne poserait pas de problèmes un jour ou l'autre et c'est aussi un travail à rendre à quelqu'un qui s'en servira donc je pense qu'il faut que j'enlève ce problème ! :aie:

Est-ce que tu sais où apparaît ce message vide ?
Sinon, quand il arrive, fais Ctrl-Pause pour aller dans le débogage et voir si tu ne retrouverais pas l'endroit où ça arrive.
Ou encore y aller en pas à pas (F8)

Si tu trouves l'endroit, mets le bout de code en question pour qu'on puisse évaluer le problème.

Je ne saisis pas ce que tu entends par mettre le filtre dans une autre feuille...(?)

J'ai fait les actions que tu m'as suggéré apparemment l'erreur viendrait du "On error goto 0" mais elle ne disparait pas lorsque je le mets en argument :aie: !Pièce jointe 184742

Citation:

---

Envoyé par parmi

Je ne saisis pas ce que tu entends par mettre le filtre dans une autre feuille...(?)

---

Je veux dire par là copier les données du filtre dans une autre feuille, le problème viendrait apparemment de la fonction qui me fait la copie !

Merci pour votre aide

Si tu retires ton

Code:

---

MsgBox Err.Description

---

ça raconte quoi ? :aie:

Citation:

---

Envoyé par aziz1015

Non, non, je l'ai vérifié encore et encore ! ça ne gêne pas le résultat mais je me demande si ça ne poserait pas de problèmes un jour ou l'autre et c'est aussi un travail à rendre à quelqu'un qui s'en servira donc je pense qu'il faut que j'enlève ce problème ! :aie:

---

bonsoir,

apparemment tu as mal vérifié l'on retrouve ton instruction msgbox sur ta dernière copie d'écran... n'aurais tu pas oublié un "Else" ..?

D'accord avec bbil.
Le MsgBox s'affiche toujours, même s'il n'y a pas d'erreur.

bonjour

la bonne blague

Code:

---

1 2 3 4

if error=0 then..... msgbox err.description on error goto 0 end function

---

il n'y a pas quelque chose qui te gene a toi ??

moi je sais pas mais une gestion d'erreur avec message perso est generalement prevu en cas d'erreur pas du contraire
a moins d'avoir dans le message "salut tout c'est bien passé tu peut enregistrer voili voilou!!"
mais perso j'en vois pas l'interet

edit:
je suis bete
et meme mieux c'est tout a fait normal que le message apparaisse quand meme il n'est pas a l'interieur de la condition if
donc il s'execute
le message viendra meme si la figure de toto est bleue

Citation:

---

if toto a la figure rouge then son nez s'allonge
msgbox nez de toto

---

le message n'aparraitra que si la figure de toto est rouge

Citation:

---

if toto a la figure rouge then
son nez s'allonge
msgbox nez de toto
end if

---

a bon entendeur

Merci à tous pour votre aide ! Même après avoir ajouté le End if rien ne change et pire j'ai une erreur de compilation, le filtre se fait même plus et encore quand j'y ajoute in "else". Quelqu'un pourrait il m'expliquer pourquoi ?

Cordialement

Code:

---

1 2 3 4 5 6

If Err = 0 Then FiltreActif = True MsgBox Err.Description On Error GoTo 0 End If

---

Citation:

---

Envoyé par joe.levrai

Si tu retires ton

Code:

---

MsgBox Err.Description

---

ça raconte quoi ? :aie:

---

Impeccable ! Merci

Citation:

---

Envoyé par aziz1015

Merci à tous pour votre aide ! Même après avoir ajouté le End if rien ne change et pire j'ai une erreur de compilation, le filtre se fait même plus et encore quand j'y ajoute in "else". Quelqu'un pourrait il m'expliquer pourquoi ?

Cordialement

Code:

---

1 2 3 4 5 6

If Err = 0 Then FiltreActif = True MsgBox Err.Description On Error GoTo 0 End If

---

---

tu a rien compris azis

non seulement le if mais tout ce qu'il y a apres then doit etre en dessous
je t'ai fait un model avec les"TOTO" c'est pourtant pas compliqué
enfin oui si tu veux supprime

Code:

---

1 2 3 4 5

If Err <> 0 Then FiltreActif = True msgBox Err.Description On Error GoTo 0 End If

---

voila ce qu'il fallait mettre!!!!!!
si il y a pas d'erreur rieb sinon description

enfin.....