XL 2019 chemin de fichier vba

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Novembre 2020

• #2

Bonjour Matlatarte,
Normalement cela devrait marcher.
Juste avant le GetObject, mettez :

VB:

msgbox ThisWorkbook.Path & "\" & "Diapo.pptm"

Le message vous dira ce qu'il a compris du chemin. Est il correct ?
Peut être une piste.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 14 Novembre 2020

• #3

Bonjour,

matlatarte à dit:

Bonsoir, j'ai un code qui fait appel à un fichier qui est dans le même dossier que le fichier excel:

GetObject(ThisWorkbook.Path & "\" & "Diapo.pptm")

le problème est que cela fonctionne très bien sur mon pc (bureau) mais dès que je déplace ce dossier (avec tout dedans...) en question sur un autre ordi le fichier "Diapo" n'est plus retrouvé !

Cliquez pour agrandir...

Si tu double-cliques sur le fichier "Diapo.pptm" sur cet autre ordi, il s'ouvre correctement ?

 

Vote positif 0 Vote négatif

M

matlatarte

XLDnaute Junior

• 14 Novembre 2020

• #4

Bonjour, oui je viens de tester avec messagebox le chemin est correcte... j'ai essayé à la racine c: même problème; le fichier s'ouvre bien sur l'ordi en question si je le lance directement... je ne vois vraiment pas...

 

Vote positif 0 Vote négatif

M

matlatarte

XLDnaute Junior

• 14 Novembre 2020

• #5

pour info erreur 432

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Novembre 2020

• #6

Bonjour,
Erreur 432 : Impossible de trouver le nom de fichier ou de classe pendant une opération Automation

Impossible de trouver le nom de fichier ou de classe pendant une opération Automation (Erreur 432)

Rubrique de référence sur Office VBA

docs.microsoft.com

Ca nous avance guère.😉
Donc soit il ne reconnait pas le chemin, soit il ne peut ouvrir Powerpoint.
Essayez ça, ça devrait ouvrir Powerpoint :

VB:

Sub Essai()
    Set ppt = CreateObject("PowerPoint.Application")
    ppt.Visible = True
End Sub

ou ça :

Code:

Sub Essai()
    Set ppt = CreateObject("PowerPoint.Application")
    GetObject (ThisWorkbook.Path & "\" & "Diapo.pptm")
    ppt.Visible = True
End Sub

Sinon je donne ma langue au chat. 😳

 

Vote positif 0 Vote négatif

M

matlatarte

XLDnaute Junior

• 14 Novembre 2020

• #7

même problème... les 2 codes marchent sur mon ordi et que le premier marche sur l'autre...

 

Vote positif 0 Vote négatif

M

matlatarte

XLDnaute Junior

• 14 Novembre 2020

• #8

et même en remplaçant
ThisWorkbook.Path par le chemin direct = même problème...

 

Vote positif 0 Vote négatif

M

matlatarte

XLDnaute Junior

• 14 Novembre 2020

• #9

pour info si fichier .pptm cela ne fonctionne pas si fichier .ppsm fonctionne !

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Novembre 2020

• #10

Est ce que sur le second PC dans PowerPoint les macros sont activées ?
C'est la différence entre ppst et ppsm.

 

Vote positif 0 Vote négatif

M

matlatarte

XLDnaute Junior

• 14 Novembre 2020

• #11

oui je précise bien ppsm (et non ppst) et pptm

 

Vote positif 0 Vote négatif