BESOIN D'AIDE ... !!! Insersion fichier dans une cellule specefic avec bouton valider
Eliminate Pivot Table Annoyances
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 3 of 3

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

  1. #1
    New Member
    Join Date
    Apr 2018
    Posts
    3
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

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

     
    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 ....
    Last edited by Peter_SSs; Apr 1st, 2018 at 08:33 AM.

  2. #2
    MrExcel MVP
    Moderator
    Peter_SSs's Avatar
    Join Date
    May 2005
    Location
    Macksville, Australia
    Posts
    36,371
    Post Thanks / Like
    Mentioned
    30 Post(s)
    Tagged
    6 Thread(s)

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

    Traduit par Google:
    Bienvenue à MrExcel
    Nous avons un forum spécial pour les questions non en anglais, donc je l'ai déplacé là.
    Last edited by Peter_SSs; Apr 1st, 2018 at 08:36 AM.
    Hope this helps, good luck.
    Peter
    Excel 365 + Excel 2010, 2007 - Windows 10, 7
    - Want to help your helpers by posting a small, copyable, screen shot directly in your post? Look here
    - If posting vba code, please use Code Tags - like this [code]Paste code here[/code] - or use the VBHTML Maker
    - Read: Forum Rules, Forum Use Guidelines, & FAQ

  3. #3
    New Member
    Join Date
    Apr 2018
    Posts
    3
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

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

      
    Merci beaucoup

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

 

 
DMCA.com