Pourriez-vous m'indiquer comment ouvrir un document=20
PowerPoint sous VBA, svp? Je sais comment faire pour=20
ouvrir un fichier Word comme montr=E9 dans le site de=20
Raymond SENEQUE. En voici le code :
Public Function Word_Ouvrir(Document_Path As String) As=20
Boolean
On Error GoTo HandleErr
Set App =3D CreateObject("Word.Application")
App.Documents.Open Document_Path
App.Visible =3D True
Word_Ouvrir =3D True
Set App =3D Nothing
Exit Function
HandleErr:
Word_Ouvrir =3D False
Exit Function
End Function
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonsoir.
de mémoire (pas testé)
Dim ppApp As New PowerPoint.Application Dim prsPres As PowerPoint.Presentation Set prsPres = ppApp.Presentations.Open("seneque.ppt") ppApp.Visible = True ppApp.Quit Set prsPres = Nothing Set ppApp = Nothing voir aide en ligne. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Diep" a écrit dans le message de news:13dee01c4448c$afe4bc90$ bonjour,
Pourriez-vous m'indiquer comment ouvrir un document PowerPoint sous VBA, svp? Je sais comment faire pour ouvrir un fichier Word comme montré dans le site de Raymond SENEQUE. En voici le code :
Public Function Word_Ouvrir(Document_Path As String) As Boolean On Error GoTo HandleErr Set App = CreateObject("Word.Application") App.Documents.Open Document_Path App.Visible = True Word_Ouvrir = True Set App = Nothing Exit Function HandleErr: Word_Ouvrir = False Exit Function End Function
Merci pour votre aide!
Bonsoir.
de mémoire (pas testé)
Dim ppApp As New PowerPoint.Application
Dim prsPres As PowerPoint.Presentation
Set prsPres = ppApp.Presentations.Open("seneque.ppt")
ppApp.Visible = True
ppApp.Quit
Set prsPres = Nothing
Set ppApp = Nothing
voir aide en ligne.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Diep" <quang-diep.pham@rcibanque.com> a écrit dans le message de
news:13dee01c4448c$afe4bc90$a601280a@phx.gbl...
bonjour,
Pourriez-vous m'indiquer comment ouvrir un document
PowerPoint sous VBA, svp? Je sais comment faire pour
ouvrir un fichier Word comme montré dans le site de
Raymond SENEQUE. En voici le code :
Public Function Word_Ouvrir(Document_Path As String) As
Boolean
On Error GoTo HandleErr
Set App = CreateObject("Word.Application")
App.Documents.Open Document_Path
App.Visible = True
Word_Ouvrir = True
Set App = Nothing
Exit Function
HandleErr:
Word_Ouvrir = False
Exit Function
End Function
Dim ppApp As New PowerPoint.Application Dim prsPres As PowerPoint.Presentation Set prsPres = ppApp.Presentations.Open("seneque.ppt") ppApp.Visible = True ppApp.Quit Set prsPres = Nothing Set ppApp = Nothing voir aide en ligne. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Diep" a écrit dans le message de news:13dee01c4448c$afe4bc90$ bonjour,
Pourriez-vous m'indiquer comment ouvrir un document PowerPoint sous VBA, svp? Je sais comment faire pour ouvrir un fichier Word comme montré dans le site de Raymond SENEQUE. En voici le code :
Public Function Word_Ouvrir(Document_Path As String) As Boolean On Error GoTo HandleErr Set App = CreateObject("Word.Application") App.Documents.Open Document_Path App.Visible = True Word_Ouvrir = True Set App = Nothing Exit Function HandleErr: Word_Ouvrir = False Exit Function End Function
Merci pour votre aide!
Diep
Bonjour Raymond,
La 1ère instruction ne fonctionne pas avec comme message d'erreur : 'Erreur de compilation : Type défini par l'utilisateur non défini' Pourrais-tu m'aider sur ce point? D'avance merci! Diep
-----Message d'origine----- Bonsoir.
de mémoire (pas testé)
Dim ppApp As New PowerPoint.Application Dim prsPres As PowerPoint.Presentation Set prsPres = ppApp.Presentations.Open("seneque.ppt") ppApp.Visible = True ppApp.Quit Set prsPres = Nothing Set ppApp = Nothing voir aide en ligne. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Diep" a écrit dans le message de
news:13dee01c4448c$afe4bc90$ bonjour,
Pourriez-vous m'indiquer comment ouvrir un document PowerPoint sous VBA, svp? Je sais comment faire pour ouvrir un fichier Word comme montré dans le site de Raymond SENEQUE. En voici le code :
Public Function Word_Ouvrir(Document_Path As String) As Boolean On Error GoTo HandleErr Set App = CreateObject("Word.Application") App.Documents.Open Document_Path App.Visible = True Word_Ouvrir = True Set App = Nothing Exit Function HandleErr: Word_Ouvrir = False Exit Function End Function
Merci pour votre aide!
.
Bonjour Raymond,
La 1ère instruction ne fonctionne pas avec comme message
d'erreur : 'Erreur de compilation : Type défini par
l'utilisateur non défini'
Pourrais-tu m'aider sur ce point?
D'avance merci!
Diep
-----Message d'origine-----
Bonsoir.
de mémoire (pas testé)
Dim ppApp As New PowerPoint.Application
Dim prsPres As PowerPoint.Presentation
Set prsPres = ppApp.Presentations.Open("seneque.ppt")
ppApp.Visible = True
ppApp.Quit
Set prsPres = Nothing
Set ppApp = Nothing
voir aide en ligne.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Diep" <quang-diep.pham@rcibanque.com> a écrit dans le
message de
Pourriez-vous m'indiquer comment ouvrir un document
PowerPoint sous VBA, svp? Je sais comment faire pour
ouvrir un fichier Word comme montré dans le site de
Raymond SENEQUE. En voici le code :
Public Function Word_Ouvrir(Document_Path As String) As
Boolean
On Error GoTo HandleErr
Set App = CreateObject("Word.Application")
App.Documents.Open Document_Path
App.Visible = True
Word_Ouvrir = True
Set App = Nothing
Exit Function
HandleErr:
Word_Ouvrir = False
Exit Function
End Function
La 1ère instruction ne fonctionne pas avec comme message d'erreur : 'Erreur de compilation : Type défini par l'utilisateur non défini' Pourrais-tu m'aider sur ce point? D'avance merci! Diep
-----Message d'origine----- Bonsoir.
de mémoire (pas testé)
Dim ppApp As New PowerPoint.Application Dim prsPres As PowerPoint.Presentation Set prsPres = ppApp.Presentations.Open("seneque.ppt") ppApp.Visible = True ppApp.Quit Set prsPres = Nothing Set ppApp = Nothing voir aide en ligne. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Diep" a écrit dans le message de
news:13dee01c4448c$afe4bc90$ bonjour,
Pourriez-vous m'indiquer comment ouvrir un document PowerPoint sous VBA, svp? Je sais comment faire pour ouvrir un fichier Word comme montré dans le site de Raymond SENEQUE. En voici le code :
Public Function Word_Ouvrir(Document_Path As String) As Boolean On Error GoTo HandleErr Set App = CreateObject("Word.Application") App.Documents.Open Document_Path App.Visible = True Word_Ouvrir = True Set App = Nothing Exit Function HandleErr: Word_Ouvrir = False Exit Function End Function
Merci pour votre aide!
.
Raymond [mvp]
Il faut cocher la référence à microsoft powerpoint.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Diep" a écrit dans le message de news:1655601c447a9$a25bd930$ Bonjour Raymond,
La 1ère instruction ne fonctionne pas avec comme message d'erreur : 'Erreur de compilation : Type défini par l'utilisateur non défini' Pourrais-tu m'aider sur ce point? D'avance merci! Diep
Il faut cocher la référence à microsoft powerpoint.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Diep" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1655601c447a9$a25bd930$a001280a@phx.gbl...
Bonjour Raymond,
La 1ère instruction ne fonctionne pas avec comme message
d'erreur : 'Erreur de compilation : Type défini par
l'utilisateur non défini'
Pourrais-tu m'aider sur ce point?
D'avance merci!
Diep
Il faut cocher la référence à microsoft powerpoint.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Diep" a écrit dans le message de news:1655601c447a9$a25bd930$ Bonjour Raymond,
La 1ère instruction ne fonctionne pas avec comme message d'erreur : 'Erreur de compilation : Type défini par l'utilisateur non défini' Pourrais-tu m'aider sur ce point? D'avance merci! Diep
Excuse-moi de ne pas être précis dans mon précédent message : à la compilation du code, la ligne : 'Dim ppApp As New PowerPoint.Application' provoque le message 'Erreur de compilation : Type défini par
l'utilisateur non défini'. T'as dû pensé que je n'ai pas cohé le nom du fichier PowerPoint!
Merci de ta réponse!
-----Message d'origine----- Bonjour Raymond,
La 1ère instruction ne fonctionne pas avec comme message d'erreur : 'Erreur de compilation : Type défini par l'utilisateur non défini' Pourrais-tu m'aider sur ce point? D'avance merci! Diep
-----Message d'origine----- Bonsoir.
de mémoire (pas testé)
Dim ppApp As New PowerPoint.Application Dim prsPres As PowerPoint.Presentation Set prsPres = ppApp.Presentations.Open ("seneque.ppt")
ppApp.Visible = True ppApp.Quit Set prsPres = Nothing Set ppApp = Nothing voir aide en ligne. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Diep" a écrit dans le message de
news:13dee01c4448c$afe4bc90$ bonjour,
Pourriez-vous m'indiquer comment ouvrir un document PowerPoint sous VBA, svp? Je sais comment faire pour ouvrir un fichier Word comme montré dans le site de Raymond SENEQUE. En voici le code :
Public Function Word_Ouvrir(Document_Path As String) As Boolean On Error GoTo HandleErr Set App = CreateObject("Word.Application") App.Documents.Open Document_Path App.Visible = True Word_Ouvrir = True Set App = Nothing Exit Function HandleErr: Word_Ouvrir = False Exit Function End Function
Merci pour votre aide!
.
.
Excuse-moi de ne pas être précis dans mon précédent
message : à la compilation du code, la ligne :
'Dim ppApp As New PowerPoint.Application' provoque le
message 'Erreur de compilation : Type défini par
l'utilisateur non défini'. T'as dû pensé que je n'ai pas
cohé le nom du fichier PowerPoint!
Merci de ta réponse!
-----Message d'origine-----
Bonjour Raymond,
La 1ère instruction ne fonctionne pas avec comme message
d'erreur : 'Erreur de compilation : Type défini par
l'utilisateur non défini'
Pourrais-tu m'aider sur ce point?
D'avance merci!
Diep
-----Message d'origine-----
Bonsoir.
de mémoire (pas testé)
Dim ppApp As New PowerPoint.Application
Dim prsPres As PowerPoint.Presentation
Set prsPres = ppApp.Presentations.Open
("seneque.ppt")
ppApp.Visible = True
ppApp.Quit
Set prsPres = Nothing
Set ppApp = Nothing
voir aide en ligne.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Diep" <quang-diep.pham@rcibanque.com> a écrit dans le
message de
Pourriez-vous m'indiquer comment ouvrir un document
PowerPoint sous VBA, svp? Je sais comment faire pour
ouvrir un fichier Word comme montré dans le site de
Raymond SENEQUE. En voici le code :
Public Function Word_Ouvrir(Document_Path As String) As
Boolean
On Error GoTo HandleErr
Set App = CreateObject("Word.Application")
App.Documents.Open Document_Path
App.Visible = True
Word_Ouvrir = True
Set App = Nothing
Exit Function
HandleErr:
Word_Ouvrir = False
Exit Function
End Function
Excuse-moi de ne pas être précis dans mon précédent message : à la compilation du code, la ligne : 'Dim ppApp As New PowerPoint.Application' provoque le message 'Erreur de compilation : Type défini par
l'utilisateur non défini'. T'as dû pensé que je n'ai pas cohé le nom du fichier PowerPoint!
Merci de ta réponse!
-----Message d'origine----- Bonjour Raymond,
La 1ère instruction ne fonctionne pas avec comme message d'erreur : 'Erreur de compilation : Type défini par l'utilisateur non défini' Pourrais-tu m'aider sur ce point? D'avance merci! Diep
-----Message d'origine----- Bonsoir.
de mémoire (pas testé)
Dim ppApp As New PowerPoint.Application Dim prsPres As PowerPoint.Presentation Set prsPres = ppApp.Presentations.Open ("seneque.ppt")
ppApp.Visible = True ppApp.Quit Set prsPres = Nothing Set ppApp = Nothing voir aide en ligne. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Diep" a écrit dans le message de
news:13dee01c4448c$afe4bc90$ bonjour,
Pourriez-vous m'indiquer comment ouvrir un document PowerPoint sous VBA, svp? Je sais comment faire pour ouvrir un fichier Word comme montré dans le site de Raymond SENEQUE. En voici le code :
Public Function Word_Ouvrir(Document_Path As String) As Boolean On Error GoTo HandleErr Set App = CreateObject("Word.Application") App.Documents.Open Document_Path App.Visible = True Word_Ouvrir = True Set App = Nothing Exit Function HandleErr: Word_Ouvrir = False Exit Function End Function
Merci pour votre aide!
.
.
Raymond [mvp]
je te l'avais répondu et c'est exactement la raison d'un tel message sur cette ligne.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
a écrit dans le message de news:1630c01c447bd$44bfad60$ Excuse-moi de ne pas être précis dans mon précédent message : à la compilation du code, la ligne : 'Dim ppApp As New PowerPoint.Application' provoque le message 'Erreur de compilation : Type défini par
l'utilisateur non défini'. T'as dû pensé que je n'ai pas cohé le nom du fichier PowerPoint!
Merci de ta réponse!
je te l'avais répondu et c'est exactement la raison d'un tel message sur
cette ligne.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:1630c01c447bd$44bfad60$a301280a@phx.gbl...
Excuse-moi de ne pas être précis dans mon précédent
message : à la compilation du code, la ligne :
'Dim ppApp As New PowerPoint.Application' provoque le
message 'Erreur de compilation : Type défini par
l'utilisateur non défini'. T'as dû pensé que je n'ai pas
cohé le nom du fichier PowerPoint!
je te l'avais répondu et c'est exactement la raison d'un tel message sur cette ligne.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
a écrit dans le message de news:1630c01c447bd$44bfad60$ Excuse-moi de ne pas être précis dans mon précédent message : à la compilation du code, la ligne : 'Dim ppApp As New PowerPoint.Application' provoque le message 'Erreur de compilation : Type défini par
l'utilisateur non défini'. T'as dû pensé que je n'ai pas cohé le nom du fichier PowerPoint!
