Bonjour à tous,

Je ne sais pas si je suis dans le bon forum car mon souci concerne Excel et PowerPoint.

J'ai un fichier Excel qui me permet de lister des réunions avec les modalités (nom de la réunion, entités des participants...) et j'ai une macro qui me fait crée lien hypertexte vers des fichiers PowerPoints sur lesquels on trouve des slides se référent à une réunion.

En cliquant sur chaque lien hypertexte, je tombe sur la bonne page.

Tout fonctionnait sur Excel 2002 et nous venons de passer sur la suite 2007 (Excel, Word et PowerPoint)

Le comportement de la macro n'est plus le même : quand je clique sur le lien, le fichier PowerPoint s'ouvre mais ne s'affiche plus directement sur le bon slide.

Quelqu'un peut il me donner une piste ? Je sèche là !

Merci

Voici le code de la fonction VBA

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
Private Sub CommandButton4_Click()
 
    AutoFilterMode = False
    Range("A5").AutoFilter
 
    Bas = Range("A6").End(xlDown).Row
 
    For Ligne = 6 To Bas
        ' Met a jour le lien si un no de page est indiqué
        If Range("AF" & Ligne).Value <> "" Then
            Worksheets("Listes").Range("K2").Value = Range("AE" & Ligne).Value
            Fichier = Worksheets("Listes").Range("L2").Value
            Page = "" & Range("AF" & Ligne).Value
            ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & Ligne), _
                Address:=Fichier, SubAddress:=Page
 
        ' Supprime le lien si pas de no de page
        Else
            Range("C" & Ligne).Hyperlinks.Delete
        End If
 
        ' Corrige la mise en forme
        Set c = Range("C" & Ligne)
        With c.Interior
            .ColorIndex = Range("B" & Ligne).Interior.ColorIndex
            .Pattern = xlSolid
        End With
        c.Borders(xlDiagonalDown).LineStyle = xlNone
        c.Borders(xlDiagonalUp).LineStyle = xlNone
        With c.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlHairline
            .ColorIndex = xlAutomatic
        End With
        With c.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With c.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With c.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlHairline
            .ColorIndex = xlAutomatic
        End With
        With c.Font
            .Name = "Trebuchet MS"
            .Size = 10
        End With
 
    Next
 
End Sub