Alors, on est pas loin. adapté à mon fichier le code ressemble à cela :
Public Sub ajout_photo()
Dim dervaleur_a As Integer
dervaleur_a = Range("a65000").End(xlUp).Rows
Do
num_article = InputBox("Indiquer le numéro de l'article", "Quel article?")
If num_article = "" Then
Exit Sub
Else
With Application.FileDialog(msoFileDialogOpen) 'choisir un fichier
.AllowMultiSelect = False
If .Show = -1 Then
dervaleur_a = dervaleur_a - 1 ' la premiere ligne libre
Sheets("photo_doc").Cells(dervaleur_a, 1) = num_article
Sheets("photo_doc").Cells(dervaleur_a, 2) = .SelectedItems(1) 'on copie le nom du fichier
End If
End With
End If
Exit Sub
Loop While num_article = "" Or num_article > dervaleur
End Sub
Cela colle bien le numéro d'article ainsi que le chemin de l'image mais 2 lignes en dessous de la dernière vide... et je comprends pas trop pourquoi.
Par ailleurs je ne comprends pas ces lignes de code :
.AllowMultiSelect = False
If .Show = -1 Then
dervaleur_a = dervaleur_a - 1 ' la premiere ligne libre
pourquoi - 1 ?
Merci encore à toi.
Oliv