Bonjour,
A partir d'Excel j'effectue un import de données dans un PWP via le clique sur un bouton
J'ai mis des conditions pour vérifier si le PWP n'est pas déjà ouvert
Mon problème est que je n'arrive pas à faire fonctionner le BuiltinDocumentProperties pour obtenir le nom de l'utilisateur qui utilise le PWP
L'erreur tombe sur la ligne :
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 Function IsFileOpen(filename As String) Dim filenum As Integer, errnum As Integer Dim pptapp As Object Set pptapp = CreateObject("powerpoint.application") Dim oPPTApp As PowerPoint.Application Set oPPTApp = New PowerPoint.Application On Error Resume Next ' Turn error checking off. filenum = FreeFile() ' Get a free file number. ' Attempt to open the file and lock it. Open filename For Input Lock Read As #filenum Close filenum ' Close the file. errnum = Err ' Save the error number that occurred. On Error GoTo 0 ' Turn error checking back on. ' Check to see which error occurred. Select Case errnum ' No error occurred. ' File is NOT already open by another user. Case 0 IsFileOpen = False With oPPTApp .Visible = True .Presentations.Open ("S:\DSI France - PMO\FLASH_REPORT\FLASH_REPORT.pptm") .Run ("FLASH_REPORT.pptm!FLASH_REPORT") End With ' Error number for "Permission Denied." ' File is already opened by another user. Case 70 IsFileOpen = True With oPPTApp MsgBox "Le PowerPoint Flash_Report.pptm est déjà utilisé par " & _ Presentations("FLASH_REPORT.pptm").BuiltinDocumentProperties(7).value End With ' Another error occurred. Case Else Error errnum End Select End Function
Le message d'erreur est "un composant ActiveX ne peut pas créer d'objet"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 MsgBox "Le PowerPoint Flash_Report.pptm est déjà utilisé par " & _ Presentations("FLASH_REPORT.pptm").BuiltinDocumentProperties(7).value
Je ne met pas la fonction dans PWP car si il est en lecture seule je ne veux pas qu'il s'ouvre
Quelqu'un à déjà eu le cas ou a une idée ?
Merci
Bonne journée
Partager