Bug annulation

Bonjour

j'utilise ce code pour envoyer des mails depuis un formulaire .

Jusqu'ici tout fonctionne très sauf que si j'annule le choix de pc jointe du mail.

le mail est envoyé malgré tout sans pc jointe

j'ai cette erreur

'envoi mail
ActiveWorkbook.Save
 Feuil3.Activate

   Dim ListeDest()
  Dim ListeComment()
  Dim i As Long
  Dim oMsgApp As Object
  Dim oMsg As Object
  Dim sListeDest As String
  Dim sFichier As String

  ChDir ThisWorkbook.Path
  'selection directement depuis l'emplacement du fichier avec filtre PDF
  sFichier = Application.GetOpenFilename("fichier pdf (*.pdf), *.pdf", , "Sélectionner le fichier à envoyer")

 On Error Resume Next
  If sFichier = "" Then
    MsgBox "Aucun fichier sélectionné, opération annulée"
    Exit Sub
  End If

  Set oMsgApp = CreateObject("Outlook.Application")

  ListeDest() = Range("tblBase[Mail]")
  ListeComment() = Range("tblBase[Commentaire]")

  For i = LBound(ListeDest(), 1) To UBound(ListeDest(), 1)
    Set oMsg = oMsgApp.CreateItem(0)
    With oMsg
      .to = ListeDest(i, 1)
      .Attachments.Add sFichier
      .Subject = "Votre ODP : " & Feuil3.Range("A17").Value & " _ " & Feuil3.Range("F10").Value
      .Body = "Bonjour" & Chr(10) & Chr(13) & _
        ListeComment(i, 1) & Chr(10) & Chr(13) '& "Bonne journée"
      .Send
    End With
    Set oMsg = Nothing
  Next

  oMsgApp.Quit
  Set oMsgApp = Nothing
  MsgBox " Mail envoyé avec succés "
  Me.Hide

je n'arrive pas à trouver d'ou vient ce bug

Merci d'avance

Bonjour,

un simple pas à pas et en regardant la valeur de sFichier tu aurais vu "Faux" en cas d'annulation.

eric

eriiic a écrit :

Bonjour,

un simple pas à pas et en regardant la valeur de sFichier tu aurais vu "Faux" en cas d'annulation.

eric

désolé eric

je suis très embêté.

je suis novice en vba .

Peut tu m'éclairer un peu stp

je viens d'enlever cette ligne

On Error Resume Next

et j'ai cette erreur :

De toute façon ce n'est pas à mettre pour cacher la poussière sous le tapis mais pour faire un traitement d'erreur correct...

If sFichier = "Faux" Then

eric

eriiic a écrit :

De toute façon ce n'est pas à mettre pour cacher la poussière sous le tapis mais pour faire un traitement d'erreur correct...

If sFichier = "Faux" Then

eric

Merci Eric