XL 2019 chemin de fichier vba

[matlatarte]

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é !

quelqu'un a t-il déjà ce problème ?

 

[sylvanu]

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

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

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

 

[TooFatBoy]

Bonjour,

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é !

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

 

[matlatarte]

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...

 

[matlatarte]

pour info erreur 432

 

[sylvanu]

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 :

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

ou ça :

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

Sinon je donne ma langue au chat.

 

[matlatarte]

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

 

[matlatarte]

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

 

[matlatarte]

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

 

[sylvanu]

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

 

[matlatarte]

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