"Losange" | J'apporte une précision à ma question. j'arrive à ouvrir PowerPoint via | access mais pas à exécuter une macro contenu dans ppt avec access
L'ouvrir ne sert à rien, un simple "Shell()" suffit, mais cela démarre juste le programme sans que tu aies la main...
Et pour justement pouvoir "piloter" PP il faut le faire via l'automation!
"Losange"
| J'apporte une précision à ma question. j'arrive à ouvrir PowerPoint via
| access mais pas à exécuter une macro contenu dans ppt avec access
L'ouvrir ne sert à rien, un simple "Shell()" suffit, mais cela démarre
juste le programme sans que tu aies la main...
Et pour justement pouvoir "piloter" PP il faut le faire via l'automation!
"Losange" | J'apporte une précision à ma question. j'arrive à ouvrir PowerPoint via | access mais pas à exécuter une macro contenu dans ppt avec access
L'ouvrir ne sert à rien, un simple "Shell()" suffit, mais cela démarre juste le programme sans que tu aies la main...
Et pour justement pouvoir "piloter" PP il faut le faire via l'automation!
Je me suis mal exprimé, quand je precise que j'arrive à ouvrir PowerPoint c'est par l'automation.
Voici le code que j'utilise
Sub test() Dim Ppt As PowerPoint.Presentation
Set Ppt = objppt.Presentations.Open(Ouvrir) Ppt.Slides(1).Shapes.Paste Ppt.Slides(1).Shapes("Picture 5").Select
End Sub
Ensuite je bloque. Le but final de ma question est de pouvoir enregistrer l'image, que j'ai auparavant selectionnée, au format .jpg. J'arrive à le faire avec powerpoint mais pas via access d'où ma question.
Cordialement Losange
"3stone" a écrit dans le message de news:
Salut,
"Losange" | J'apporte une précision à ma question. j'arrive à ouvrir PowerPoint via | access mais pas à exécuter une macro contenu dans ppt avec access
L'ouvrir ne sert à rien, un simple "Shell()" suffit, mais cela démarre juste le programme sans que tu aies la main...
Et pour justement pouvoir "piloter" PP il faut le faire via l'automation!
Je me suis mal exprimé, quand je precise que j'arrive à ouvrir PowerPoint
c'est par l'automation.
Voici le code que j'utilise
Sub test()
Dim Ppt As PowerPoint.Presentation
Set Ppt = objppt.Presentations.Open(Ouvrir)
Ppt.Slides(1).Shapes.Paste
Ppt.Slides(1).Shapes("Picture 5").Select
End Sub
Ensuite je bloque. Le but final de ma question est de pouvoir enregistrer
l'image, que j'ai auparavant selectionnée, au format .jpg.
J'arrive à le faire avec powerpoint mais pas via access d'où ma question.
Cordialement
Losange
"3stone" <home@sweet_home.be> a écrit dans le message de
news:u3xP7c3NIHA.820@TK2MSFTNGP06.phx.gbl...
Salut,
"Losange"
| J'apporte une précision à ma question. j'arrive à ouvrir PowerPoint via
| access mais pas à exécuter une macro contenu dans ppt avec access
L'ouvrir ne sert à rien, un simple "Shell()" suffit, mais cela démarre
juste le programme sans que tu aies la main...
Et pour justement pouvoir "piloter" PP il faut le faire via l'automation!
Je me suis mal exprimé, quand je precise que j'arrive à ouvrir PowerPoint c'est par l'automation.
Voici le code que j'utilise
Sub test() Dim Ppt As PowerPoint.Presentation
Set Ppt = objppt.Presentations.Open(Ouvrir) Ppt.Slides(1).Shapes.Paste Ppt.Slides(1).Shapes("Picture 5").Select
End Sub
Ensuite je bloque. Le but final de ma question est de pouvoir enregistrer l'image, que j'ai auparavant selectionnée, au format .jpg. J'arrive à le faire avec powerpoint mais pas via access d'où ma question.
Cordialement Losange
"3stone" a écrit dans le message de news:
Salut,
"Losange" | J'apporte une précision à ma question. j'arrive à ouvrir PowerPoint via | access mais pas à exécuter une macro contenu dans ppt avec access
L'ouvrir ne sert à rien, un simple "Shell()" suffit, mais cela démarre juste le programme sans que tu aies la main...
Et pour justement pouvoir "piloter" PP il faut le faire via l'automation!
"Losange" | Je me suis mal exprimé, quand je precise que j'arrive à ouvrir PowerPoint | c'est par l'automation. | | Voici le code que j'utilise | | Sub test() | Dim Ppt As PowerPoint.Presentation | | Set Ppt = objppt.Presentations.Open(Ouvrir) | Ppt.Slides(1).Shapes.Paste | Ppt.Slides(1).Shapes("Picture 5").Select | | End Sub | | Ensuite je bloque. Le but final de ma question est de pouvoir enregistrer | l'image, que j'ai auparavant selectionnée, au format .jpg. | J'arrive à le faire avec powerpoint mais pas via access d'où ma question.
Déjà que, en temps normal, il faut sauver en "page html" pour que PP séparer les images et sons du reste...
Tu as des milliers de PPS à traiter pour vouloir faire cela avec Access ?
"Losange"
| Je me suis mal exprimé, quand je precise que j'arrive à ouvrir PowerPoint
| c'est par l'automation.
|
| Voici le code que j'utilise
|
| Sub test()
| Dim Ppt As PowerPoint.Presentation
|
| Set Ppt = objppt.Presentations.Open(Ouvrir)
| Ppt.Slides(1).Shapes.Paste
| Ppt.Slides(1).Shapes("Picture 5").Select
|
| End Sub
|
| Ensuite je bloque. Le but final de ma question est de pouvoir enregistrer
| l'image, que j'ai auparavant selectionnée, au format .jpg.
| J'arrive à le faire avec powerpoint mais pas via access d'où ma question.
Déjà que, en temps normal, il faut sauver en "page html" pour que PP séparer
les images et sons du reste...
Tu as des milliers de PPS à traiter pour vouloir faire cela avec Access ?
"Losange" | Je me suis mal exprimé, quand je precise que j'arrive à ouvrir PowerPoint | c'est par l'automation. | | Voici le code que j'utilise | | Sub test() | Dim Ppt As PowerPoint.Presentation | | Set Ppt = objppt.Presentations.Open(Ouvrir) | Ppt.Slides(1).Shapes.Paste | Ppt.Slides(1).Shapes("Picture 5").Select | | End Sub | | Ensuite je bloque. Le but final de ma question est de pouvoir enregistrer | l'image, que j'ai auparavant selectionnée, au format .jpg. | J'arrive à le faire avec powerpoint mais pas via access d'où ma question.
Déjà que, en temps normal, il faut sauver en "page html" pour que PP séparer les images et sons du reste...
Tu as des milliers de PPS à traiter pour vouloir faire cela avec Access ?
Pas des milliers non mais le faire de manière automatique sans aucune intervention de ma part.
Cordialement Losange
"3stone" a écrit dans le message de news:%
Salut,
"Losange" | Je me suis mal exprimé, quand je precise que j'arrive à ouvrir PowerPoint | c'est par l'automation. | | Voici le code que j'utilise | | Sub test() | Dim Ppt As PowerPoint.Presentation | | Set Ppt = objppt.Presentations.Open(Ouvrir) | Ppt.Slides(1).Shapes.Paste | Ppt.Slides(1).Shapes("Picture 5").Select | | End Sub | | Ensuite je bloque. Le but final de ma question est de pouvoir enregistrer | l'image, que j'ai auparavant selectionnée, au format .jpg. | J'arrive à le faire avec powerpoint mais pas via access d'où ma question.
Déjà que, en temps normal, il faut sauver en "page html" pour que PP séparer les images et sons du reste...
Tu as des milliers de PPS à traiter pour vouloir faire cela avec Access ?
Pas des milliers non mais le faire de manière automatique sans aucune
intervention de ma part.
Cordialement
Losange
"3stone" <home@sweet_home.be> a écrit dans le message de
news:%23QtNELGOIHA.2000@TK2MSFTNGP05.phx.gbl...
Salut,
"Losange"
| Je me suis mal exprimé, quand je precise que j'arrive à ouvrir
PowerPoint
| c'est par l'automation.
|
| Voici le code que j'utilise
|
| Sub test()
| Dim Ppt As PowerPoint.Presentation
|
| Set Ppt = objppt.Presentations.Open(Ouvrir)
| Ppt.Slides(1).Shapes.Paste
| Ppt.Slides(1).Shapes("Picture 5").Select
|
| End Sub
|
| Ensuite je bloque. Le but final de ma question est de pouvoir
enregistrer
| l'image, que j'ai auparavant selectionnée, au format .jpg.
| J'arrive à le faire avec powerpoint mais pas via access d'où ma
question.
Déjà que, en temps normal, il faut sauver en "page html" pour que PP
séparer
les images et sons du reste...
Tu as des milliers de PPS à traiter pour vouloir faire cela avec Access ?
Pas des milliers non mais le faire de manière automatique sans aucune intervention de ma part.
Cordialement Losange
"3stone" a écrit dans le message de news:%
Salut,
"Losange" | Je me suis mal exprimé, quand je precise que j'arrive à ouvrir PowerPoint | c'est par l'automation. | | Voici le code que j'utilise | | Sub test() | Dim Ppt As PowerPoint.Presentation | | Set Ppt = objppt.Presentations.Open(Ouvrir) | Ppt.Slides(1).Shapes.Paste | Ppt.Slides(1).Shapes("Picture 5").Select | | End Sub | | Ensuite je bloque. Le but final de ma question est de pouvoir enregistrer | l'image, que j'ai auparavant selectionnée, au format .jpg. | J'arrive à le faire avec powerpoint mais pas via access d'où ma question.
Déjà que, en temps normal, il faut sauver en "page html" pour que PP séparer les images et sons du reste...
Tu as des milliers de PPS à traiter pour vouloir faire cela avec Access ?