1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
| Private Sub Btn_Ouvrir_Schem_Elec_Click()
Dim objShell As Object, RefNotice_doc As String, RefNotice_pdf As String, Path_RefNotice As String
Path_RefNotice_Temp = ""
If IsNull(SCHEMA_ELEC) Then
MsgBox ("Veuillez entrer une référence de Schéma Electrique")
GoTo Sub3
Else
RefNotice_doc = SCHEMA_ELEC & ".doc" 'Creation du nom du fichier
RefNotice_pdf = SCHEMA_ELEC & ".pdf" 'Creation du nom du fichier
End If
'Recherche du chemin des documentation dans la table TABLE_CHEMIN_DOCUMENTATION
Path_RefNotice = DLookup("[LIEN_CHEMIN_NOTICE]", "TABLE_CHEMIN_DOCUMENTATION", "[TYPE_MACHINE] = [MACHINE]")
If Path_RefNotice = "0" Then
MsgBox "Veuillez entrer le chemin de recherche dans la table TABLE_CHEMIN_DOCUMENTATION."
GoTo Sub3
End If
'Recherche si le fichier en .pdf existe
Explorer RefNotice_pdf, Path_RefNotice
If IsNull(Path_RefNotice_Temp) Or Path_RefNotice_Temp = "" Then
GoTo Sub4
Else
Set objShell = CreateObject("Shell.Application")
objShell.Open (Path_RefNotice_Temp)
GoTo Sub3
End If
Sub4: 'Recherche si le fichier en .doc existe
Explorer RefNotice_doc, Path_RefNotice
Set fso = New Scripting.FileSystemObject
If IsNull(Path_RefNotice_Temp) Or Path_RefNotice_Temp = "" Then
MsgBox ("Le Schéma Electrique référence " & SCHEMA_ELEC & " que vous essayez d'ouvrir n'existe pas sur le serveur. Veuillez vérifier la référence que vous avez inscrite ou le nom du schéma sur le serveur.")
GoTo Sub3
Else
Set objShell = CreateObject("Shell.Application")
objShell.Open (Path_RefNotice_Temp)
End If
Sub3:
End Sub |
Partager