Discussion :

[mattwo]

Bonjour,

Dans le cadre d'un projet d'entreprise, je dois produire un guide dans l'élaboration d'étude de maîtrise d'oeuvre. Pour cela j'ai choisi d'utilisé PPT. Jusqu'à maintenant j'ai pu bidouiller tout ce que je voulais faire en VBA (Transitions, etc...). Mais là je me trouve face à une impasse. Je souhaiterais donner la possibilité à l'utilisateur d'insérer un PDF dans la présentation pour qu'il puisse le comparer aux informations écrites dans le PPT. Donc en gros, insérer une visionneuse PDF dans la présentation. Apparemment, c'est presque possible puisqu'un PDF peut être insérer mais le problème est que l'on ne peut pas naviguer dedans sans l'ouvrir sous Adobe. Est-il possible de bidouiller quelque chose pour débloquer la visionneuse de PPT afin de pouvoir naviguer dans le PDF.

Je sais qu'il existe des logiciels qui peuvent convertir ou bidouiller le PDF pour que ça fonctionne mais étant donner que ce futur outil sera accessible à tous les collaborateurs, Je ne vais pas leur demander de télécharger l'éventuel logiciel et qu'à chaque fois il traite le fichier pour l'insérer dans le PPT.

Avez vous une piste pour m'éclairer ?

[mattwo]

Pour ceux que ça intéresse, j'ai trouvé une solution détourné au problème pas parfaite mais honorable tout de même... Il suffit d'empêcher l'ouverture du diapo en plein écran mais en mode fenêtré. Donc cela permet de jongler entre les différents fichiers et le PPT sans recommencer la présentation ! Et Je trouve que c'est du coup moins lourd à utiliser qu'en plein écran.

J'attend tout de même vos propositions qui peuvent aider d'autres personnes et agrandir aussi mes connaissances dans le domaine !

[kiki29]

Salut, est-ce que cela pourra t'aider : Visualisation d'un fichier PDF dans une UserForm

[mattwo]

Ah malgré mes recherches je n'avais pas trouvé ce poste.. Voilà qui correspond exactement à ce que je recherchais ! Merci beaucoup ! Je test ça très vite et reviens vers vous si je n'y arrive pas. Je met quand même le poste en résolu !


PS : Dans le code : SelFichierPDF, la variable Thisworkbook ne correspond pas à PPT il me semble. Du coup le code ne fonctionne pas, ou du moins ne fais rien quand je le lance. J'ai essayer de le remplacer par Application, slideshowsettings, ou activepresentation, mais rien n'y fait. Je trouve pas la variable correspondant à PPT

[clementmarcotte]

Bonjour,

Dans le code : SelFichierPDF, la variable Thisworkbook ne correspond pas à PPT il me semble. Du coup le code ne fonctionne pas, ou du moins ne fais rien quand je le lance. J'ai essayer de le remplacer par Application, slideshowsettings, ou activepresentation, mais rien n'y fait. Je trouve pas la variable correspondant à PPT

Si c'est cette ligne qui cause problème:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    ChDir ThisWorkbook.Path

Chdir est pour Change directory (changer de dossier) et n'est là que pour que GetOpenFilename s'ouvre avec le dossier en cours. En fait, tu peux y mettre le dossier de ton choix.

par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ChDir "C:\Windows"
ChDir "C:\Copie"

peuvent tout aussi bien être utilisés, pour autant que le dossier existe. L'idéal étant sans doute le chemin d'accès au fichier; ce que thisworkbook fournit la plupart du temps.

J'ai regardé en vitesse, sans trop vérifier, (en fait j'ai juste mis path dans la fenêtre de recherche de l'aide de VBA Powerpoint, pas celle de Powerpoint et j'ai retrouvé presentation.path qui donne le chemin d'accès à la présentation en cours. Pour peu que je puisse me rendre compte, application.path devrait donner le même résultat sauf si "l'application" est une macro complémentaire. Parce que, contrairement à Excel ou à Word, une macro "ordinaire" dans une présentation PowerPoint donnée, ne peut pas agir dans une autre présentation; sauf dans le cas d'une macro complémentaire. Règle générale, dans PowerPoint, une présentation donnée, et ses macros, sont "étanches" face à une autre présentation avec ses propres macros.

[kiki29]

Salut, cela n'était pas précisé mais il y a un minimum d'adaptation à faire ....

par exemple GetOpenFilename qui n'existe pas sous ppt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub SelFichierPDF()
Dim FD As FileDialog
    ChDir ActivePresentation.Path
    Set FD = Application.FileDialog(Type:=msoFileDialogOpen)
    With FD
        .AllowMultiSelect = False
        .InitialFileName = "*.pdf"
        If .Show = -1 Then LoadPDF .SelectedItems(1), 1
    End With
    Set FD = Nothing
End Sub

De plus le code de Visualisation d'un fichier PDF dans une UserForm présente l'avantage de supprimer l'apparition du message suivant : Cette application est sur le point d'initialiser des contrôles ActiveX potentiellement non sûrs

A lire également à propos des versions d'Acrobat Reader

[mattwo]

Ah ben oui du coup ça marche nickel ! Merci Kiki et Clement ! Je vais maintenant chercher à autoriser la navigation entre le userform et la présentation (Puisque je ne peux que naviguer sur le PDF).

[mattwo]

Pour ceux que ça intéresse, j'ai trouvé la solution. J'ai ajouter un bouton bascule qui permet d'afficher ou non le userform à volonté dont le code est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub ToggleButton1_Change()
    If ToggleButton1.Value = True Then
        UserForm1.Show 0
 
    Else: ToggleButton1.Value = False
        UserForm1.Hide
    End If
End Sub

Pour permettre la navigation pendant l'affichage du userform, il suffit de le rendre non-modal en intégrant la variable "0" à Show comme dans le code ci-dessus. (Expliquer dans ce tuto : Utiliser les UserForm en VBA)

Merci encore a kiki et Clement pour votre aide !