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
| Option Explicit
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub PDF_Ordres()
Dim NomFichier
Dim tempo
Dim cel
'les lignes ci-dessous devront être présente en entête du module
'Option Explicit
'Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
'(ByVal hwnd As Long, ByVal lpOperation As String, _
'ByVal lpFile As String, ByVal lpParameters As String, _
'ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'tempo = ActiveCell.Value
tempo = Left(ActiveCell.Value, 10)
NomFichier = "g:\DOCU\R&D\Ordres d'essais\" + tempo + ".pdf"
'NomFichier = "g:\DOCU\R&D\Ordres d'essais" + ActiveCell.Value + ".pdf"
'NomFichier1 = "g:\DOCU\Lignes Produit\Dossiers Personnels\Philippe M\Normalisation\NORMES\Normes-pdf\" + ActiveCell.Value + ".pdf"
' ActiveWorkbook.FullName
If Dir(NomFichier) <> "" Then
ShellExecute 0, "open", NomFichier, "", "", 0
Else
If Dir(NomFichier) = "" Then
NomFichier = "g:\DOCU\R&D\Ordres d'essais\" + tempo + ".pdf"
ShellExecute 0, "open", NomFichier, "", "", 0
NomFichier = "g:\DOCU\R&D\Ordres d'essais\" + tempo + ", ordre d'essai.pdf"
ShellExecute 0, "open", NomFichier, "", "", 0
NomFichier = "g:\DOCU\R&D\Ordres d'essais\" + tempo + "e.pdf"
ShellExecute 0, "open", NomFichier, "", "", 0
Else
MsgBox "Chemin ou fichier introuvable."
End If
End If
NomFichier = "g:\DOCU\R&D\Ordres d'essais\" + ActiveCell.Value + ".pdf"
If Dir(NomFichier) <> "" Then
ShellExecute 0, "open", NomFichier, "", "", 0
Else
End If
End Sub |
Partager