imprim écran et userform

[jtitin]

bonsoir à tous
mon projet avance mais là je bloque.
mon fichier est trop gros pour être mis en fichier joint.

Explications:
je fais un imprim écran sur une application
ensuite je reveins sur mon classeur et lance l'userform1. là j'argumente mes 2 boites de dialogues ainsi qu'une textbox. ensuite je lance l'archivage ce qui me permet de collé le "press papier" dans la feuille "image" et d'incrémenter la feuille "Base" par les boites de dialogues et texbox.
je cherche à ce niveau à enregistrer le nom de la Zone Nom de l'image collée en feuille "image" ?????

voici ma procédure:
Private Sub Archiver_Click()
Dim produit
Dim i, A, T, q
Dim choix
'**************************** VALIDATION DES DONNEES SAISIES **************************************
Application.ScreenUpdating = False
If TextBox1.Value = "" Then
MsgBox ("il manque les commentaires !")
Exit Sub
End If

For i = 1 To 4
T = T + Controls("optchoix" & i).Value
Next i
If T = 0 Then
MsgBox ("choisir le genre de produit")
Exit Sub
End If

With Me.listProduit
For A = 0 To .ListCount - 1
If .Selected(A) Then
If produit = "" Then
produit = .List(A)
Else
produit = produit & vbLf & .List(A)
End If
End If
Next A
If produit = "" Then
MsgBox ("désigner quel référence")
Exit Sub
End If
End With
'######ci dessous avec enregistreur de macro#########
' je colle l'image du presse papier et je la réduit

Sheets("image").Select
ActiveSheet.Paste
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 57.75
Selection.ShapeRange.Width = 76.5
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.IncrementLeft -176.25
Selection.ShapeRange.IncrementTop -51#
'#############################
For Each q In UserForm1.Frchoix.Controls
If q.Value = True Then choix = Trim(q.Caption)
Next q

num = Sheets("Base").Range("A65536").End(xlUp).Row + 1
Sheets("Base").Activate
Range("A" & num).Value = TextBox2.Value 'date
Range("F" & num).Value = TextBox3.Value 'heure
Range("B" & num).Value = choix 'produit
Range("C" & num).Value = produit 'référence
Range("D" & num).Value = TextBox1.Value 'commentaire

'### MON PROBLEME CI DESSOUS #############

' Range("E" & num).Value = ###ICI la formule pour enregistrer le nom de l'image
' ( Zone de Nom ) collée dans la feuille "image" Ex: Image 1

'###################################
Sheets("Feuil1").Activate
Unload UserForm1
UserForm1.Show
End Sub
Private Sub Annuler_Click()
Unload Me
UserForm1.Show
End Sub

'++++++++++++++++++++++++++++++++++++ I N I T I A L I S A T I O N +++++++++++++++++++++++++++++++++++
Private Sub UserForm_Initialize()
UserForm1.TextBox2.Value = Format(Now, " dd/mm/yyyy ")
Dim MyTime
MyTime = Time
UserForm1.TextBox3.Value = Time
End Sub

Private Sub optchoix1_Click()
Lig = Feuil1.Range("A65536").End(xlUp).Row
Plage = Sheets("Feuil1").Range("A2: D" & Lig).Address
listProduit.RowSource = "Feuil1!" & Plage
Col = "A"
End Sub

Private Sub optchoix2_Click()
Lig = Feuil1.Range("B65536").End(xlUp).Row
Plage = Sheets("Feuil1").Range("B2: D" & Lig).Address
listProduit.RowSource = "Feuil1!" & Plage
Col = "B"
End Sub

Private Sub optchoix3_Click()
Lig = Feuil1.Range("C65536").End(xlUp).Row
Plage = Sheets("Feuil1").Range("C2: D" & Lig).Address
listProduit.RowSource = "Feuil1!" & Plage
Col = "C"
End Sub
Private Sub optchoix4_Click()
Lig = Feuil1.Range("C65536").End(xlUp).Row
Plage = Sheets("Feuil1").Range("D2: D" & Lig).Address
listProduit.RowSource = "Feuil1!" & Plage
Col = "D"
End Sub


mon problème suivant sera de récupérer dans l'objet Image1 d'un autre userform, suite à un flitrage de la feuille base, l'image et données si rapportants


Merci pour vos conseils