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 58 59 60 61 62 63
| Option Explicit
Dim objWord As New Word.Application ' ouvrir un document Word
Dim i
Dim nFic
Dim Libelle
Dim IE As New InternetExplorer ' ouvrir une page internet
Private Sub Worksheet_Change(ByVal Target As Range)
Libelle = ""
Select Case Target.Address
Case "$A$34"
Libelle = Sheets("Processus Recrutement").Cells(34, 1)
Case "$D$14"
Libelle = Sheets("Processus Recrutement").Cells(14, 4)
Case "$E$34"
Libelle = Sheets("Processus Recrutement").Cells(34, 5)
Case "$I$34"
Libelle = Sheets("Processus Recrutement").Cells(34, 9)
Case "$O$30"
Libelle = Sheets("Processus Recrutement").Cells(30, 15)
Case "$W$20"
Libelle = Sheets("Processus Recrutement").Cells(20, 23)
Case "$AA$20"
Libelle = Sheets("Processus Recrutement").Cells(20, 27)
Case "$AI$20"
Libelle = Sheets("Processus Recrutement").Cells(20, 35)
Case ""
Case Else
End Select
If Libelle <> "" Then
i = 9
While Sheets("Lien KM Process R").Cells(i, 2) <> ""
If Sheets("Lien KM Process R").Cells(i, 2) = Libelle Then
nFic = Sheets("Lien KM Process R").Cells(i, 3)
Select Case Sheets("Lien KM Process R").Cells(i, 4)
Case "web"
Case "word"
objWord.Documents.Open nFic
' rendre Word visible
objWord.Visible = True
Exit Sub
Case "excel"
Workbooks.Open Filename:=nFic
'Ouverture d'un fichier Excel
Exit Sub
Case "pdf"
Exit Sub
Case Else
End Select
End If
i = i + 1
Wend
End If
End Sub |
Partager