Ouvertue de fichiers (pdf, word, excel) et page web sous VBA par liens hypertexte dans Excel
Bonjour :)
je suis débutant sur VBA... et dans le cadre d'un projet de mémoire je développe un outil de management de connaissance pour mon entreprise.
l'outil que je créer tourne sous Excel 2010 et pour le faire fonctionner j'utilise une macro VBA pour différentes fonctions comme :
- ouvrir un fichier pdf
- ouvrir un fichier excel
- ouvrir un fichier word
- ouvrir une page web
Dans la logique de l'outil tous les liens sont dans une feuille séparer de la ou je veux qu'il y ai l'interaction.
ex : 1ere feuille : processus détaillé avec la possibilité de sélectionner parmi une liste déroulante les fichiers que je veux ouvrir et 2ème feuille : liste des fichier possible d'ouvrir avec leurs lien dans la colonne a coté.
seulement petit problème je n'arrive pas à trouver comment lui faire chercher le lien vers la page web et je n'arrive pas non plus à lui faire ouvrir un document pdf.
voici ce que j'ai réussi à faire :
Code:
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 |
Si vous pouvez m'aider c'est super je dois rendre le projet dans 15 jours et je désespère.... :(
