Private Sub CommandButton3_Click()
Dim nom, nomC2, numéro As String
Dim StrBody As String
Dim olApp As Outlook.Application
Set olApp = CreateObject("outlook.application")
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
Dim numéroF As String
Dim cherche As String
Dim Cellule As Range
Dim lig As Long
cherche = Me.ComboBox6.Value
Application.DisplayAlerts = False
Sheets("BT").Visible = True
Worksheets("BT").Activate
With Sheets("BT")
lig = Application.Match(Val(ComboBox6), .[A1:A65000], 0)
numéroF = .Cells(lig, 1)
nom = .Cells(lig, 9)
TextBox4 = Left(TextBox4, Len(TextBox4) - 2) & ":" & Right(TextBox4, 2)
.Cells(lig, 10) = TextBox4
TextBox5 = Left(TextBox5, Len(TextBox5) - 2) & ":" & Right(TextBox5, 2)
.Cells(lig, 11) = TextBox5
.Cells(lig, 12) = DTPicker1
.Cells(lig, 13) = ComboBox7
End With
Sheets("Équipements").Visible = True
Worksheets("Équipements").Activate
With Sheets("Équipements")
Range("j2:j8").Select
Selection.Find(What:=nom, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
nomC2 = ActiveCell.Offset(0, 1).Offset
End With
Application.DisplayAlerts = False
StrBody = "Bonjour," & vbCrLf & "Votre bon de travail BT" & numéroF & " est fermé" & vbCrLf & "Merci"
With olMail
.To = nomC2
.CC = ""
.Subject = "BT électronique fermé"
.Body = StrBody
.Send
End With
Set olMail = Nothing
Set olApp = Nothing
Unload Me
Sheets("BT").Visible = False
Sheets("BT électronique").Visible = False
Sheets("Équipements").Visible = False
Range("a1").Select
Worksheets("feuil1").Activate
ActiveSheet.Buttons.Add(46.5, 20.25, 110.25, 51.75).Select
Selection.OnAction = "Macro2"
Selection.Characters.Text = "COMPLÉTER UN BON DE TRAVAIL"
With Selection.Characters(Start:=1, Length:=27).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
Range("a1").Select
ActiveWorkbook.Save
End Sub