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 :
Si vous pouvez m'aider c'est super je dois rendre le projet dans 15 jours et je désespère....
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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