Discussion :

[Markal]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Menhir]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Markal]

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 ?

[Menhir]

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.

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.

[unparia]

Bonjour
Personnellement, lorsque je vois cette "logique" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?
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.

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
rep = msgbox(...)
select case rep
  case vbyes
    ...
    ...
  case vbno
    ...
    ...
end select

[Markal]

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




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.

[Markal]

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

[Pierre Fauconnier]

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.

[eriiic]

Bonjour,

ton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorbook.Close False

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

[Markal]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[eriiic]

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

[Menhir]

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

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

[Pierre Fauconnier]

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

[Markal]

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.