Dim NewObjet As Struct1
 
NewObjet = New Struct1
NewObjet.Nom = "Toto"
NewObjet.Age = 145
Me.ListBoxNom.Items.Add(NewObjet)

Dim NewObjet As Struct1
 
Idx = Me.ListBoxNom.SelectedIndex
NewObjet = New Struct1
NewObjet.Age = Me.TextBoxAge.Text
NewObjet.Ville = Me.TextBoxVille.Text
Me.ListBoxNom.Items.Remove(Me.ListBoxNom.SelectedItem)
Me.ListBoxNom.Items.Insert(Idx, NewObjet)

Dim NewObjet As Struct1
 
NewObjet = CType(Me.ListBoxNom.SelectedItem, Struct1)
NewObjet.Age = Me.TextBoxAge.Text
NewObjet.Ville = Me.TextBoxVille.Text
Me.ListBoxNom.Items.Item(Me.ListBoxNom.SelectedIndex) = NewObjet

Private Sub LVCredits_MouseMove(sender As Object, e As MouseEventArgs) Handles LVCredits.MouseMove
        Dim InfoBulle As New System.Windows.Forms.ToolTip
        Dim tooltipText As String = ""
        Dim info As ListViewHitTestInfo = LVCredits.HitTest(e.X, e.Y)
 
        If info.Item IsNot Nothing Then
            ' info-bulle pour l'élément ou sous-élément survolé
            If info.SubItem IsNot Nothing Then
                tooltipText = info.Item.Text & "  " & info.SubItem.Text
            End If
            Label1.Text = tooltipText
            InfoBulle.SetToolTip(LVCredits, tooltipText)
        Else
            InfoBulle.SetToolTip(LVCredits, "")
        End If
 
    End Sub

 
 
Imports Microsoft.Office.Interop
Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Runtime.InteropServices
Imports Outlook = Microsoft.Office.Interop.Outlook
Imports Microsoft.VisualBasic
 
 
Partial Class Form1
    Inherits Form
 
    '####################   S'assurer que OUTLOOK est bien actif et trouve une fenêtre  ####################
    Private Function GetSelectedMail() As Outlook.MailItem
 
        Dim app As Object = Nothing
 
        Try
            app = GetObject(, "Outlook.Application")
        Catch
            Return Nothing
        End Try
 
        If app Is Nothing Then Return Nothing
 
 
        Try
            AppActivate("Outlook")
            Threading.Thread.Sleep(150)
        Catch
            ' Outlook pas trouvé
        End Try
 
 
        Dim insp As Outlook.Inspector = Nothing
        Try
            insp = app.ActiveInspector()
        Catch
        End Try
 
        If insp IsNot Nothing Then
            Dim openedMail As Outlook.MailItem =
            TryCast(insp.CurrentItem, Outlook.MailItem)
            If openedMail IsNot Nothing Then
                Return openedMail
            End If
        End If
 
 
        Dim explorer As Outlook.Explorer = app.ActiveExplorer()
        If explorer Is Nothing Then Return Nothing
        If explorer.Selection Is Nothing OrElse explorer.Selection.Count = 0 Then Return Nothing
 
        Return TryCast(explorer.Selection(1), Outlook.MailItem)
 
    End Function
 
    'Private Function GetSelectedMail() As Outlook.MailItem
    '    Dim app As New Outlook.Application()
    '    Dim explorer As Outlook.Explorer = app.ActiveExplorer()
 
    '    If explorer Is Nothing Then Return Nothing
    '    If explorer.Selection Is Nothing OrElse explorer.Selection.Count = 0 Then Return Nothing
 
    '    Return TryCast(explorer.Selection(1), Outlook.MailItem)
    'End Function
 
    '#######################################################################################################
 
    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        For Each p As Process In Process.GetProcessesByName("MACROMAIL")
            Try
                p.Kill()
            Catch
            End Try
        Next
    End Sub
    '##############################   Format d'enregistrement   ############################################
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Ne rien faire au chargement
    End Sub
 
    '#######################################################################################################
 
 
    Private Function SanitizeFileName(fileName As String) As String
        Dim invalidChars As Char() = System.IO.Path.GetInvalidFileNameChars()
        For Each c As Char In invalidChars
            Select Case c
                Case "/"c
                    fileName = fileName.Replace(c, "-"c)
                Case ";"c, ","c
                    fileName = fileName.Replace(c, "."c)
                Case Else
                    fileName = fileName.Replace(c, "_"c) ' Remplace les autres caractères invalides par un underscore
            End Select
        Next
        Return fileName
    End Function
 
 
 
    '##################################################################
 
    Private Sub BoutonChercher_Click(sender As Object, e As EventArgs) Handles BoutonChercher.Click
 
        Dim CheminAffaire = TrouverCheminAffaire(TBNumAff.Text)
 
        If CheminAffaire <> String.Empty Then
            TBPath.Text = CheminAffaire
        Else
            MessageBox.Show("Aucune affaire trouvée.")
        End If
 
    End Sub
    Private Function TrouverCheminAffaire(numAff As String) As String
 
        If String.IsNullOrWhiteSpace(numAff) Then Return String.Empty
 
        Dim dossierRacine As String = "N:\"
        Dim anneeCourante As Integer = Date.Now.Year
        Dim anneeMin As Integer = 2010
 
        For annee As Integer = anneeCourante To anneeMin Step -1
 
            Dim dossierAnnee As String = Path.Combine(dossierRacine, "AFFAIRE " & annee)
 
            If Directory.Exists(dossierAnnee) Then
                For Each dossierAffaire As String In Directory.GetDirectories(dossierAnnee)
                    If Path.GetFileName(dossierAffaire).Contains(numAff) Then
                        Return dossierAffaire
                    End If
                Next
            End If
        Next
 
        Return String.Empty
 
    End Function
 
 
 
 
    '########################   Sélectionner le dossier manuellement  ####################################
 
    Private Sub BoutonPath_Click(sender As Object, e As EventArgs) Handles BoutonPath.Click
 
        Dim folderDialog As New FolderBrowserDialog()
 
 
        If folderDialog.ShowDialog() = DialogResult.OK Then
            TBPath.Text = folderDialog.SelectedPath ' Remplacer TBPath par le nom réel de votre TextBox
        End If
 
    End Sub
 
    '########################   Rafraîchir le nom du fichier   ############################################
 
    Private Sub BoutonRefresh_Click(sender As Object, e As EventArgs) Handles BoutonRefresh.Click
 
        Dim mailItem As Outlook.MailItem = GetSelectedMail()
 
        If mailItem Is Nothing Then
            MessageBox.Show("Veuillez sélectionner un email dans Outlook.")
            Exit Sub
        End If
 
        Dim dateFormat As String = mailItem.SentOn.ToString("yyyy MM dd")
        Dim envoyeur As String = If(mailItem.SenderEmailAddress, "Expéditeur inconnu")
 
        Dim recipients As String = ""
        If Not String.IsNullOrWhiteSpace(mailItem.To) Then
            recipients = String.Join(", ",
            mailItem.To.Split(";"c).Select(Function(s) s.Trim()))
        End If
 
        Dim cc As String = ""
        If Not String.IsNullOrWhiteSpace(mailItem.CC) Then
            cc = String.Join(", ",
            mailItem.CC.Split(";"c).Select(Function(s) s.Trim()))
        End If
 
        Dim subject As String = If(mailItem.Subject, "")
 
        Dim fileName As String = $"{dateFormat} - {envoyeur} à {recipients} - {cc} - {subject}"
        TBName.Text = SanitizeFileName(fileName)
 
    End Sub
 
 
 
 
    Private Sub BoutonSave_Click(sender As Object, e As EventArgs) Handles BoutonSave.Click
 
        If String.IsNullOrWhiteSpace(TBPath.Text) OrElse String.IsNullOrWhiteSpace(TBName.Text) Then
            MessageBox.Show("Veuillez renseigner un chemin et un nom de fichier.")
            Exit Sub
        End If
 
        Dim mailItem As Outlook.MailItem = GetSelectedMail()
 
        If mailItem Is Nothing Then
            MessageBox.Show("Veuillez sélectionner un email dans Outlook.")
            Exit Sub
        End If
 
        Dim savePath As String = Path.Combine(TBPath.Text, TBName.Text & ".msg")
 
        mailItem.SaveAs(savePath, Outlook.OlSaveAsType.olMSG)
        MessageBox.Show("Email sauvegardé avec succès !")
 
    End Sub
 
 
 
    Private Sub BoutonComm_Click(sender As Object, e As EventArgs) Handles BoutonComm.Click
 
 
        Dim CheminAffaire As String = TrouverCheminAffaire(TBNumAff.Text)
 
        If CheminAffaire <> String.Empty Then
            TBPath.Text = CheminAffaire & "1 - COMMERCIAL"
        Else
            MessageBox.Show("Aucune affaire trouvée.")
        End If
 
    End Sub
 
    Private Sub BoutonBE_Click(sender As Object, e As EventArgs) Handles BoutonBE.Click
 
 
        Dim CheminAffaire As String = TrouverCheminAffaire(TBNumAff.Text)
 
        If CheminAffaire <> String.Empty Then
            TBPath.Text = CheminAffaire & "1 - BE"
        Else
            MessageBox.Show("Aucune affaire trouvée.")
        End If
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Hide()
    End Sub
 
End Class

  ' 0) le Form reçoit les KeyDown même si un contrôle a le focus
 Me.KeyPreview = True
 
 ' 1) Handlers et visibilité initiale
 RegisterToolStripMouseEnterHandlers()
 SetEssentialToolStripVisible()
 
 ' 2) Handlers globaux et récursifs
 AddHandler MouseDown, AddressOf Controle_MouseDown
 AddHandler Me.DragEnter, AddressOf PictureBox_DragEnter
 AjouterHandlersRecursif(Me)
 
 ' 3) Chargement des images et refresh du panneau des pièces
 ChargerImagesDesPieces()
 TableauPieces1.Invalidate()
 TableauPieces1.Refresh()