Ajouter un docuement PDF a une donnee

[FaruSZ]

Bonjour le forum,
Je travail sur une base de donees ou j'afficher une liste de formation avec les dates et les documents associés.
Je veux ajouter un document PDF/word/ photo….. a chaque formation.
On sélectionne la formation a partir d'une liste qui s'affiche dans un userform, puis on clique sur un bouton pour ajouter le document.
J'a écrit ce code mais le pb c'est que il me crée une nouvelle donnée avec le même nom de la formation que j'a sélectionné et il rajoute le document mais il garde pas la date.

Private Sub Sub_Ajout_Mdp_Forma_Click()
If Me.ListBox_Form_Intern.ListIndex = -1 Then
MsgBox ("Pour ajouter le mode de preuve veuillez choisir une formation")
Else
Set ws = ActiveWorkbook.Worksheets(Personne)
Nom_Forma = Me.ListBox_Form_Intern.List(Me.ListBox_Form_Intern.ListIndex, 0)
Fin_Col_Forma = ws.Cells(10, 256).End(xlToLeft).Column
ws.Cells(10, Fin_Col_Forma).Value = Nom_Forma
Cells(10, Fin_Col_Forma + 1).Select
ws.Activate
repertoire = Application.GetOpenFilename()
ws.Cells(12, Fin_Col_Forma + 1) = repertoire
End If
End Sub

Que dois je modifier pour qu'il me garde la date.
Le lien wetransfer pr le fichier :
Instruction : Cliquer sur le service, gestion compte, personnel, selectionner la 1ere personne puis le profile s'affiche

Merci

 

[sylvanu]

Bonjour FruSZ,
En tout cas vous pouvez devenir formateur pour les UserForm.
Si par date vous parlez de la date d'obtention ligne 11, c'est normal puisque vous ne remplissez que la ligne 10 (Formation) et la ligne 12 (Lien), vous n'écrivez rien en ligne 11 (Date)

ws.Cells(11, Fin_Col_Forma).Value = Date_A_Extraire

 

[FaruSZ]

Bonjour FruSZ,
En tout cas vous pouvez devenir formateur pour les UserForm.
Si par date vous parlez de la date d'obtention ligne 11, c'est normal puisque vous ne remplissez que la ligne 10 (Formation) et la ligne 12 (Lien), vous n'écrivez rien en ligne 11 (Date)

ws.Cells(11, Fin_Col_Forma).Value = Date_A_Extraire

Merci, oui jai oublie de rajouter une ligne pour ajouter la date:
Date_Forma= Me.ListBox_Form_Intern.List(Me.ListBox_Form_Intern.ListIndex, 1)
ws.Cells(11, Fin_Col_Forma).Value = CDate(Date_Forma)

ca marche

 

[sylvanu]

Vous avez été plus rapide que moi !
Bonne journée.

 

[FaruSZ]

Vous avez été plus rapide que moi !
Bonne journée.

Lol oui, merci et bonne journee