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 : 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
Si vous pouvez m'aider c'est super je dois rendre le projet dans 15 jours et je désespère....