Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Ajouter un docuement PDF a une donnee

FaruSZ

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Supporter XLD
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)
VB:
ws.Cells(11, Fin_Col_Forma).Value = Date_A_Extraire
 

FaruSZ

XLDnaute Occasionnel
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…