Pb Objet requis

Bonjour à toutes et à tous,
J'ai monté la macro ci-dessus pour envoyer un fichier Excel via la commande sendmail.
A chaque envoi, ce message apparaît : "Oblet requis".

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub EnvoiPage() Dim Adre As String Dim Suje As String   Adre = "U02-BALosce33@cnfpt.fr" Suje = "Bon de commande"   rep = MsgBox("Valider l'envoi du bon de commande ?", vbQuestion + vbYesNo, "Envoi du bon de commande vers U02-BALosce33")   If rep = 6 Then   ThisWorkbook.Sheets("BCF").Copy ActiveWorkbook.SendMail Adre, Suje ActiveWorbook.Close False   If rep = 7 Then MsgBox ("Révise ta copie alors !!")   Application.DisplayAlerts = False   End If     End Sub

---

Ce n'est pas bloquant, le fichier par quand même, mais le fait de voir un message d'erreur apparaître à chaque fois rend le process un peu moins clean.

Merci par avance pour vos conseil !

Citation:

---

Envoyé par Markal

A chaque envoi, ce message apparaît : "Oblet requis".

---

Quelle ligne est signalée par le débugueur ?

Citation:

---

Code:

---

1 2 3 4 5 6 7 8 9

If rep = 6 Then ThisWorkbook.Sheets("BCF").Copy ActiveWorkbook.SendMail Adre, Suje ActiveWorbook.Close False   If rep = 7 Then MsgBox ("Révise ta copie alors !!")   Application.DisplayAlerts = False End If

---

---

Le second MsgBox n'a aucune chance de ce déclencher puisque rep ne peut pas être égal à 7 dans une structure If où on l'exécution ne peut entrer que s'il est égal à 6.

Bonjour Menhir,
Merci pour ta réponse.
Le débugueur ne s'enclenche pas. Le message apparaît dans l'éditeur sans rien surligner.

Je comprenais pas pourquoi la deuxième Msgbox ne se lancer pas, là de suite c'est plus clair. J'ai repris la formulation d'un cours, j'ai du mal comprendre.
Pourrais-tu me dire comment lancer du coup ma deuxième Msgbox ?

Citation:

---

Envoyé par Markal

Le débugueur ne s'enclenche pas. Le message apparaît dans l'éditeur sans rien surligner.

---

J'ai du mal à comprendre ce qui affiche le message d'erreur...
Lorsque l'éditeur signale un problème, il passe la ligne en rouge.

Citation:

---

Pourrais-tu me dire comment lancer du coup ma deuxième Msgbox ?

---

En le sortant de la structure de ton premier If.

Ou, mieux, en remplaçant les deux If par une structure Select Case.

Bonjour
Personnellement, lorsque je vois cette "logique" :

Code:

---

1 2 3 4 5

If rep = 6 Then ... If rep = 7 Then MsgBox ("Révise ta copie alors !!") ... End If

---

Comment peut-on imaginer que rep pourrait être = 7 s'il est = 6 ?:cfou:
je me dis qu'il y a des choses fondamentales à appréhender, avant d'aller au-delà. Et je ne vais alors moi-même pas au-delà non plus.

Salut.

Lorsque tu dois exécuter du code selon différentes valeurs que peut prendre une variable, tu as intérêt comme l'a mentionné Menhir à travailler avec un bloc Select Case... End Select. J'illustre cette technique ci-dessous ;)

Code:

---

1 2 3 4 5 6 7 8 9

rep = msgbox(...) select case rep case vbyes ... ... case vbno ... ... end select

---

Merci pour vos réponses, le select case fonctionne effectivement parfaitement, merci à Menhir et Pierre Fauconnier.


Pièce jointe 393537

Voilà comment le message apparaît, bien que tout fonctionne comme je veux, j'ai juste ce message qui s'affiche sans activer le débogueur.

Oulà, j'au du me planter dans l'insertion de l'image...

Et ta bonne image, elle est où ? ;)

As-tu un on error ... quelque part dans ton code en amont du code que tu as montré? Dans les options du VBE, modifie l'arrêt sur les erreurs et place-le sur "arrêt sur toutes les erreurs". Tu verras ainsi sur quelle ligne tu plantes et ce sera plus facile pour déboguer.

Bonjour,

ton

Code:

---

ActiveWorbook.Close False

---

n'agirait pas un peu trop vite ?
Essaie en mettant une petite tempo avant
eric

Effectivement, après le conseil de Pierre Fauconnier de changer le débogueur, il m'a surligner la ligne de code que m'avait indiqué eriiic... ce que vous êtes balaise messieurs.

Code:

---

1 2 3

ThisWorkbook.Sheets("BCF").Copy ActiveWorkbook.SendMail Adre, Suje ActiveWorbook.Close False

---

Il m'a donc surligner la dernière ligne du code ci-dessus.
Après quelques recherches sur ce forum, j'ai ajouté la ligne de code

Code:

---

1 2 3 4

ThisWorkbook.Sheets("BCF").Copy ActiveWorkbook.SendMail Adre, Suje Application.Wait Now + TimeValue("0:00:05") ActiveWorbook.Close False

---

Et le message d'erreur apparait... 5 seconde plus tard qu'avant...
Merci pour vos idées, je sens qu'on y est presque.

Hum


ActiveWorKbook.Close False

;)

PS: Prends l'habitude de saisir ton code en minuscule, activeworbook restera alors en minuscules => erreur, alors que activeworkbook deviendra ActiveWorkbook... Et ton erreur de frappe te sautera aux yeux... Prends aussi l'habitude de compiler avant de lancer ton code. De plus, Option Explicit n'est pas présent en début de module. Tu aurais intérêt à l'ajouter, cela t'obligerait à déclarer tes variables, et tu aurais eu un message d'erreur "variable non définie" avec activeworbook surligné en bleu.

En plus d'ajouter Option Explicit en début des modules existants, passe sur Outils/Options/Editeur et coche Obligation des variables obligatoire. Cela ajoutera Option Explicit au début de chaque nouveau module ;)

Yeah !!! C'est parfait, merci pour vos conseils et votre patience.
Je prend bien note d'écrire en minuscule.
Merci encore et bonne journée, je passe en résolu.

supprimé, plus la peine...
Bien vu Pierre :-)

C'est parfois trop gros pour qu'on le voit. :lol: Bien joué Pierre. :plusser:

Le message d'erreur était pourtant clair. On ne fait pas assez confiance aux messages d'erreurs.

Citation:

---

Envoyé par Menhir

[...]Bien joué Pierre. :plusser:[...]

---

Je n'ai pas beaucoup de mérite ;)... Juste celui d'avoir copié le code dans mon vbe qui a vite crié lors de la compilation du code...

Ca met en évidence le caractère indispensable de Option Explicit... ;)