Discussion :

[seb-aemc]

Bonjour à tous,

J'espère avoir posté ma demande dans la bonne rubrique.

Je suis formateur et dans ce cadre nous faisons des supports de cours dédiés en powerpoint.
j'ai crée, il y a quelques années, un programme VBA qui permet de générer des présentations powerpoint depuis excel : (ajouts des diapos suivant une liste, création de sommaire, de chapitre...)
Avec ce programme, la création d'une présentation de 300 pages se fait en 5 minutes aux lieux de 4 h à la main auparavant (les secrétaires m'ont remercié :-) )

Le programme fonctionnait très bien sous office 2011 pour mac, depuis l'achat de nouvelles machines Mac (high sierra 10.13), nous avons été forcés de changer de version office : 365 actuellement.
Le programme VBA ne fonctionne plus !!!
Par différentes recherches, j'ai pu gérer les problèmes d'autorisations d'accès de la gestion "sandbox" du Mac ainsi que les chemins d'accès des fichiers qui ont changé de format (merci aux sites de Ron de Bruin).

Depuis excel 365, je peux ouvrir des présentations mais je n'ai plus accès aux objets de powerpoint (slides, textbox...), et cela alors que les références des librairies soient bien cochées.
Avec des variables espions, je vois que tout est vide (aucune variable).

Le même code sous powerpoint 365 ne génère pas de dysfonctionnement et j'ai bien accès aux objet des présentations.

Je soupçonne qu'excel n'a pas les autorisations du Mac pour accéder aux librairies de powerpoint ?

Quelqu'un a t'il eu le problème ? et comment le résoudre ?

Pour info, voici un bout de code qui fonctionne sous powerpoint 365 mais pas sous excel 365

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
Sub piloterPowerPoint()
 
    Dim CheminFichier(0) As String
    Dim Nbslide As Integer
    CheminFichier(0) = "/Users/portablesebastien/desktop/Trans PP 2011/modèles/Titre.pptx"
 
    Dim fileAccessGranted As Boolean
    Dim filePermissionCandidates
    filePermissionCandidates = CheminFichier
    fileAccessGranted = GrantAccessToMultipleFiles(filePermissionCandidates)
 
    Dim Ppa As PowerPoint.Application
    Set Ppa = New PowerPoint.Application
    Dim Ppp1 As PowerPoint.Presentation
    Set Ppp1 = Ppa.Presentations.Open(FileName:=CheminFichier(0))
    Nbslide = Ppp1.Slides.Count
    Dim Sld As Slide
    Set Sld = Ppp1.Slides(1)
    Sld.Copy
    Ppp1.Slides.Paste 2
 
 End Sub

Merci de votre aide

[Menhir]

Dans VBE > Outils > Références.

Tu dois avoir de coché une bibliothèque "Manquante", sans doute quelque chose comme "Microsoft Office XXX Object Library" correspondant à ta précédente version de PowerPoint.
Décoche-là et coche celle correspondant à ta nouvelle version.

[seb-aemc]

Bonjour,

Merci Menhir pour ta réponse.
Cependant, les bibliothèques sont bien cochées et apparemment non manquante, elles sont les même sous Excel et Powerpoint.



La seule choses qui diffère entre Excel et Powerpoint sont les priorités (sur Excel, la bibliothéque Excel et avant Powerpoint et réciproquement).
La priorité est impossible à changer : sur Excel, la bibliothèque d'objet Excel est toujours prioritaire.
Je soupçonne que sur Mac, avec la gestion sandbox, Excel ne peut pas utiliser des bibliothèques extérieurs sans autorisations, mais comment en être sûr et résoudre le problème ?

[Pierre Fauconnier]

Salut

[...]Je soupçonne que sur Mac, avec la gestion sandbox, Excel ne peut pas utiliser des bibliothèques extérieurs sans autorisations, mais comment en être sûr et résoudre le problème ?

Je ne suis pas fan de Mac, donc je n'ai pas de support de test. Cependant, tu pourrais tester un classeur vide et tenter de piloter Word en cochant la librairie Word, histoire de voir si ça peut être une question d'autorisation.

[seb-aemc]

Merci Pierre pour la piste que tu m'as donné.

Effectivement, depuis word 365 je peux piloter word 365 via VBA.
Mais je n'y pas arrivé sur excel 365

Voici le code qui fonctionne sur word et pas sur Excel

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
Sub compterNombrePagesDocWord()
 
    Dim wrdApp As Word.Application
    Set wrdApp = Word.Application
 
    Dim wrdDoc As Word.Document
    Set wrdDoc = wrdApp.Documents.Open(FileName:="/Users/portablesebastien/Documents/compensation offset.docx")
 
    Dim nbPage As Byte
 
    wrdDoc.Bookmarks("\endofdoc").Select
    nbPage = wrdDoc.BuiltInDocumentProperties("Nombre de pages")
    MsgBox "Il y a " & nbPage & " page(s) dans le document Word : " & Chr(10) & Ouvrir
 
End Sub

J'ai donc le même problème pour piloter word que powerpoint.

Je ne sais toujours pas comment résoudre ce problème.

[Pierre Fauconnier]

Jeter le Mac à la poubelle?

Plus sérieusement, cela signifie que le problème vient probablement du Mac (sécurité ou autre, je n'en sais rien).

Je n'y crois pas trop, mais une solution serait peut-être de travailler en late binding. Cela veut dire que tu déclares tes objets Word ou PPT en tant que Object puis que tu crées l'instance. Mais je le répète, je n'y crois pas trop.

Cela dit, ça m'étonnerait qu'il n'y ait pas moyen de piloter word ou powerpoint à partir d'Excel sur du Mac. Ce n'est quand même pas si inhabituel de fonctionner ainsi. (Mais ça me conforte dans l'idée que Mac, c'est le mal )

[Marc-L]

Bonjour,

juste pour confirmer les nombreux soucis rencontrés par les utilisateurs de MAC sous la version 2016,
beaucoup étant obligés de retourner sur la version 2011 …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[seb-aemc]

Le code ci-dessous fonctionne

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
Sub piloterPowerPoint2()
 
    Dim CheminFichier(0) As String
    Dim Nbslide As Integer
    CheminFichier(0) = "/Users/portablesebastien/desktop/Trans PP 2011/modèles/Titre.pptx"
 
    Dim fileAccessGranted As Boolean
    Dim filePermissionCandidates
    filePermissionCandidates = CheminFichier
    fileAccessGranted = GrantAccessToMultipleFiles(filePermissionCandidates)
 
    Dim Ppa As Object
    Set Ppa = CreateObject("PowerPoint.Application")
    Dim Ppp1 As Object
    Set Ppp1 = Ppa.Presentations.Open(FileName:=CheminFichier(0))
    Nbslide = Ppp1.Slides.Count
    Dim Sld As Slide
    Set Sld = Ppp1.Slides(1)
    Sld.Copy
    Ppp1.Slides.Paste 2
 
 End Sub

Cependant, je n'ai pas accès aux contenus des objets par des variables espions (Cf image : point d’arrêt sur la dernière ligne)



En espérant que les objets non pas trop changé depuis la version 2011 je devrais m'en sortir.

Merci

[seb-aemc]

Bonjour,

juste pour confirmer les nombreux soucis rencontrés par les utilisateurs de MAC sous la version 2016,
beaucoup étant obligés de retourner sur la version 2011 …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Malheureusement la version 2011 n'est plus compatible avec les nouveaux Mac et Office 2011 n'est plus supporté par Microsoft.

[Marc-L]

Et je compatis alors pour les utilisateurs MAC et je comprends donc mieux l'engouement
pour les solutions gratuites comme Libre Office !

Et le pourquoi d'une émulation Windows sur MAC rien que pour Office …