Bonjour,

Je souhaite ouvrir mon fichier "pptx" via une macro.

En plaçant le dossier sur mon bureau pas de problème.

Mais en plaçant le dossier sur sharepoint ca ne fonctionne plus.

Besoin de votre aide.

Voici le code:

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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Private Sub CommandButton1_Click()
 
 
Dim LienAgence As String
Dim Nomfichier1 As String
Set monapplication = CreateObject("Shell.Application")
 
 
Application.ScreenUpdating = False
 
LienAgence = ThisWorkbook.Path & "/"
 
Nomfichier1 = "Livret d'accueil Intérim.pptx"
Nomfichier2 = "Livret d'accueil Intérim2.pptx"
 
 
 
derniereLigne = ThisWorkbook.Sheets("Données").Cells(Rows.Count, 5).End(xlUp).Row + 1
 
    If Me.OptionButton1.Value = True Then
        ThisWorkbook.Sheets("Données").Cells(derniereLigne, 5).Value = OptionButton1.Caption
            ThisWorkbook.Sheets("Données").Cells(derniereLigne, 1).Value = Date
                End If
 
                    If Me.OptionButton2.Value = True Then
                        ThisWorkbook.Sheets("Données").Cells(derniereLigne, 5).Value = OptionButton2.Caption
                            ThisWorkbook.Sheets("Données").Cells(derniereLigne, 1).Value = Date
                                End If
 
                                    If Me.OptionButton5.Value = True Then
                                        ThisWorkbook.Sheets("Données").Cells(derniereLigne, 5).Value = OptionButton5.Caption
                                            ThisWorkbook.Sheets("Données").Cells(derniereLigne, 1).Value = Date
                                                End If
 
 
                                                Cancel = OptionButton1 + OptionButton2 + OptionButton5 = 0
                                                If Cancel Then
                                                MsgBox "Veuillez sélectionner un poste ..."
                                                Exit Sub
                                                End If
 
                                        If Me.OptionButton3.Value = True Then
                                            ThisWorkbook.Sheets("Données").Cells(derniereLigne, 7) = Me.OptionButton3.Caption
                                                UserForm1.Hide
                                                    ThisWorkbook.Sheets("Données").Range("AE2").Value = ThisWorkbook.Sheets("Données").Range("AE2").Value + 1
                                                    Exit Sub
 
                                                End If
 
                                If Me.OptionButton4.Value = True Then
                                    ThisWorkbook.Sheets("Données").Cells(derniereLigne, 7) = Me.OptionButton3.Caption
                                        End If
 
 
                            If Me.OptionButton2.Value = True Then
                        UserForm1.Hide
                    monapplication.Open (LienAgence & Nomfichier2)
 
                Else
            UserForm1.Hide
        monapplication.Open (LienAgence & Nomfichier1)
 
    End If
 
 
If Cells(derniereLigne, 3) <> "" Then
UserForm3.Show
End If
 
 
ThisWorkbook.Sheets("Données").Range("AE2").Value = ThisWorkbook.Sheets("Données").Range("AE2").Value + 1
 
 
Application.ScreenUpdating = True
 
 
End Sub