Bonjour et merci pour la note,
si tu veux faire directement le drop sur la picturebox il faut faire ainsi.
tu autorise le drop dans le load de la form

        PictureBox1.AllowDrop = True

  et ensuite c'est comme le textbox

Private Sub PictureBox1_DragEnter1(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragEnter
        e.Effect = DragDropEffects.Copy
    End Sub

  Try


            ' recupere la donnée
            Dim strFiles
            'Variable qui contiendra un tableau contenant les fichiers


            'on recupere le drop dans le tableau
            strFiles = e.Data.GetData(DataFormats.FileDrop)
            strFiles = e.Data.GetData(DataFormats.Html)


            ' on recupere le début de l'adresse de l'image
            Dim débutadresse = Split(strFiles, "src=")
            ' ensuite on ne prend que la source
            ' prend le guillemet
            Dim guillemet = Chr(34)
            Dim adresse = Split(débutadresse(1), guillemet)
            ' prend le nom de l'image pour l'enregistrement
            Dim imaged = Split(adresse(1), "/")
            Nomdelimage = imaged(UBound(imaged))
            PictureBox1.Image = RecupFichierImageInternet(adresse(1))
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub


Voilà bonne prog.

Trés sympa comme code.

Ça a l'air pas mal mais un zip serait le bienvenue pour éviter de refaire tous les boutons, listbox........
Merci

Bonjour,
je trouve dommage d'utiliser Excel juste pour imprimer une listview car pour une appli cela oblige l'utilisateur à avoir excel.
De plus suivant les pc la pagination risque d'être différente.

Bonjour,
je voulais regarder ce code mais je pense qu'il a été fait en vb 2008?
car je n'arrive pas a l'ouvrir en vb 2005.

Sympa, il manque juste un apercu de la taille de la brosse

Bien mais ne fonctionne pas bien m?me avec ton exemple, la longitude de ta ligne 11 n'est pas bonne.
En comparant avec poiedit et d'autres fichiers ov2 c'est la m?me chose des longitudes ne sont pas bonnes.
Un peu complique ta m?thode pour remettre ta valeur hexa en decimal.
tu peux faire directement ceci
Function Tranformeendecimale(ByVal a)
        Dim tempo As Integer = 0
        For i As Integer = 1 To Len(a)

            Dim c As String = Mid(a, i, 1)
            If c = "A" Then c = 10
            If c = "B" Then c = 11
            If c = "C" Then c = 12
            If c = "D" Then c = 13
            If c = "E" Then c = 14
            If c = "F" Then c = 15
            tempo += c * 16 ^ (Len(a) - i)

        Next
        Tranformeendecimale = tempo

    End Function

Je met 6 pour encourager la bonne volonté, je suis d'accord avec FREMYCOMPANY mais je trouve que 4 est un peu sévère car il est mis dans le niveau débutant et il a au moins le mérite d'avoir été fait.

Ta source a l'air sympa mais je n'arrive pas a l'ouvrir avec vb2005?

Merci Kite37, tu as raison je suis un peu fainéant pour mes variables et ce n'est pas une bonne chose, promis je vais essayer de faire attention.