Public chemin , fichier, chmfichier, extension As String
Function Getcheminetfichier(DriveSpec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fichier = fso.GetbaseName(DriveSpec)
chmfichier = fso.GetParentFolderName(DriveSpec)
End Function
Function GetAnExtension(DriveSpec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
extension = fso.GetExtensionName(DriveSpec)
End Function
Function ReportFileStatus(filespec)
Dim mesext(10)
mesext(0) = "pdf"
mesext(1) = "doc"
mesext(2) = "docx"
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
For x = LBound(mesext) To UBound(mesext)
If mesext(x) = "" Then Exit For
If (fso.FileExists(filespec)) Then
Else:
filespec = chmfichier & "\" & fichier & "." & mesext(x)
End If
Next x
chemin = filespec
End Function
Sub wordpdf()
On Error Resume Next
Dim strFichier As String
strFichier = chemin
Getcheminetfichier (strFichier)
ReportFileStatus (strFichier)
GetAnExtension (chemin)
Select Case extension
Case Is = "doc"
Call ouvertureword
Case Is = "docx"
Call ouvertureword
Case Is = "pdf"
Call RunPDFWithExe
End Select
End Sub
Sub ouvertureword()
Dim objWord As New Word.Application
''ouvrir un document Word
''On Error Resume Next
objWord.Documents.Open chemin
'rendre Word visible
objWord.Visible = True
'objWord.Documents(1).Close
'quitter l'application Word
'objWord.Quit
'libérer la mémoire
Set objWord = Nothing
End Sub
Sub RunPDFWithExe()
Dim MyPath As String
Dim MyFile As String
MyPath = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"
MyFile = chemin
Shell MyPath & " " & MyFile, vbNormalFocus
End Sub