Hello la communauté.
Suite à mon projet de bdd.
j'ai ce code qui affiche la doc technique d'un composant a l'aide de deux champs la liste déroulante "Fabricant_ID" et "Reference_Fabricant"
Le test de présence du fichier PDF est fait, mais je souhaiterai si pas de doc :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Private Sub BP_Ouvrir_DocPDF_Click() Dim Nom_Fichier_PDF As String Dim Chemin As String 'On rempli la variable pour le chemin di fichier Chemin = CurrentProject.Path & Chemin_DossierDocumentations & Nom_Fichier_PDF 'MsgBox Chemin 'On rempli la variable avec le nom de fichier Nom_Fichier_PDF = Me.Fabricant_ID.Column(1) & "-" & Me.Reference_Fabricant.Value & ".pdf" 'MsgBox Nom_Fichier_PDF 'ShellExecute 0, "open", Nom_Fichier_PDF, "", Chemin, 0 'On test la présence du fichier If Dir(Chemin & "\" & Nom_Fichier_PDF) = "" Then MsgBox "La datasheet de " & Nom_Fichier_PDF & vbCrLf & " n'est pas stockée sur cet ordinateur", vbInformation + vbOKOnly, "Application datasheet" Else ShellExecute 0, "open", Nom_Fichier_PDF, "", Chemin, 0 End If End Sub
1) aller sur internet la rechercher.
2) Si je l'a trouve, tester l'ouverture du PDF
3) Le storer avec les données des deux champs dans le dossier prévue.
Es-ce que cela est possible?
D’ailleurs je me dit qu’il serait judicieux que je rajoute dans les tables concernées un champs «*doc_pdf*» avec le chemin du fichier, comme pour les photos.
Merci
Bonne journée.
Le Lighteux
Partager