BESOIN D'AIDE ... !!! Insersion fichier dans une cellule specefic avec bouton valider

[slimenslouma]

Bonjour tout le monde , je suis dans la ***** et j'ai besoin de l'aide vraiment , je prépare un sujet PFE et je dois avoir un outils de suivi et tracabilité , bref , je cherche comment inserer un fichier depuis mon ordinateur dans la cellule approprié au formulaire ajout avec le bouton ajout ,
j'ai utilisé cette procédure
Private Sub importer_Click()




'Get file path
fpath = Application.GetOpenFilename("All Files,*.*", Title:="Select file")
If LCase(fpath) = False Then Exit Sub

'Insert file

ActiveSheet.OLEObjects.Add _
Filename:=fpath, _
Link:=False, _
DisplayAsIcon:=True, _
IconFileName:="excel,pdf,word.exe", _
IconIndex:=0, _
IconLabel:=extractFileName(fpath)


End Sub


Public Function extractFileName(filePath)
Dim i As Integer
Dim e As Integer
i = 5

Cells(2, i).Select

If Cells(2, i) = "" Then i = i + 1




End Function



et pour le formulaire ajout cette procedure qui marche parfaitement


'****************************
'procedure permettant le rajout d'une nouvelle personne
' à la fin de base de données
'*******************************
Private Sub btnvalider_Click()
' Declaration variable
Dim i As Integer
' Affectation variable
i = 1
' on boucle chacune des cellules de la colonne B ( Nom )
Do While Cells(i, 1) <> ""
Cells(i, 1).Offset(1, 0).Select
i = i + 1 'on incrémente le compteur de la boucle while



Loop


' affichage dans la base de donnée des infos provenant du formulaire
ActiveCell.Value = Me.txtmatricule
ActiveCell.Offset(0, 1) = Me.txtNom.Value
ActiveCell.Offset(0, 2) = Me.txtPrenom.Value
ActiveCell.Offset(0, 3) = Me.txtAge.Value


Unload Me






End Sub


vraiment j'ai besoin d'aide ....

 

[Peter_SSs]

Traduit par Google:
Bienvenue à MrExcel
Nous avons un forum spécial pour les questions non en anglais, donc je l'ai déplacé là.

 

[slimenslouma]

Merci beaucoup