Je cherche un moyen de mettre à jour un doc PowerPoint avec des données
issues d'une base Access.
J'ai trouvé le moyen de rappatrier les données sur un doc Excel en créant
une requête de type DQY (à partir de données/Donnéesexternes/créer une
requête).
J'ai essayé de faire une macro sur PowerPoint qui irait créer un doc Excel,
appelerait cette requête, puis récupérerait le résultat pour l'utiliser dans
le doc powerpoint.
Mon Problème est que je n'arrive pas à "tuer" définivement le doc Excel.
Voici la macro simplifiée que j'essaye de faire tourner. Qq'un a t il une
idée sur ce que j'aurais pu oublier?
Merci d'avance
(Dans Outils/Référence/ Microsoft Excel 8.0 Object library est coché)
Sub Macro1()
Dim ExcelApp As Object
Set ExcelApp = CreateObject("Excel.Application")
With ExcelApp
.Workbooks.Add
With ActiveSheet.QueryTables.Add(Connection:="FINDER;U:\requête_test.dqy", _
Destination:=Range("A1"))
.FieldNames = True
.
BLABLABLA
.
.SaveData = True
End With
valeur = Cells(2, 1).Text
ExcelApp.Quit
Set ExcelApp = Nothing
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
Jean-Pierre FORESTIER
Je comprends pas bien. Mais si tu as un doc Excel, fais un copier/Coller avec liaison.La mise à jour se fera automatiquement
-- Jean-Pierre FORESTIER Microsoft MVP PowerPoint Auteur de PowerPoint 2002 chez Micro Application "Harry" a écrit dans le message news:
Bonjour,
Je cherche un moyen de mettre à jour un doc PowerPoint avec des données issues d'une base Access. J'ai trouvé le moyen de rappatrier les données sur un doc Excel en créant une requête de type DQY (à partir de données/Donnéesexternes/créer une requête).
J'ai essayé de faire une macro sur PowerPoint qui irait créer un doc Excel,
appelerait cette requête, puis récupérerait le résultat pour l'utiliser dans
le doc powerpoint.
Mon Problème est que je n'arrive pas à "tuer" définivement le doc Excel. Voici la macro simplifiée que j'essaye de faire tourner. Qq'un a t il une idée sur ce que j'aurais pu oublier?
Merci d'avance
(Dans Outils/Référence/ Microsoft Excel 8.0 Object library est coché)
Sub Macro1()
Dim ExcelApp As Object
Set ExcelApp = CreateObject("Excel.Application")
With ExcelApp .Workbooks.Add With ActiveSheet.QueryTables.Add(Connection:="FINDER;U:requête_test.dqy", _
valeur = Cells(2, 1).Text ExcelApp.Quit Set ExcelApp = Nothing
End With
Utilisation de "valeur" dans PowerPoint
End Sub
Je comprends pas bien.
Mais si tu as un doc Excel, fais un copier/Coller avec liaison.La mise à
jour se fera automatiquement
--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"Harry" <Harry@discussions.microsoft.com> a écrit dans le message news:
F3C615EE-0D5E-4E67-97A3-49C3A0932DC0@microsoft.com...
Bonjour,
Je cherche un moyen de mettre à jour un doc PowerPoint avec des données
issues d'une base Access.
J'ai trouvé le moyen de rappatrier les données sur un doc Excel en créant
une requête de type DQY (à partir de données/Donnéesexternes/créer une
requête).
J'ai essayé de faire une macro sur PowerPoint qui irait créer un doc
Excel,
appelerait cette requête, puis récupérerait le résultat pour l'utiliser
dans
le doc powerpoint.
Mon Problème est que je n'arrive pas à "tuer" définivement le doc Excel.
Voici la macro simplifiée que j'essaye de faire tourner. Qq'un a t il une
idée sur ce que j'aurais pu oublier?
Merci d'avance
(Dans Outils/Référence/ Microsoft Excel 8.0 Object library est coché)
Sub Macro1()
Dim ExcelApp As Object
Set ExcelApp = CreateObject("Excel.Application")
With ExcelApp
.Workbooks.Add
With ActiveSheet.QueryTables.Add(Connection:="FINDER;U:requête_test.dqy",
_
Je comprends pas bien. Mais si tu as un doc Excel, fais un copier/Coller avec liaison.La mise à jour se fera automatiquement
-- Jean-Pierre FORESTIER Microsoft MVP PowerPoint Auteur de PowerPoint 2002 chez Micro Application "Harry" a écrit dans le message news:
Bonjour,
Je cherche un moyen de mettre à jour un doc PowerPoint avec des données issues d'une base Access. J'ai trouvé le moyen de rappatrier les données sur un doc Excel en créant une requête de type DQY (à partir de données/Donnéesexternes/créer une requête).
J'ai essayé de faire une macro sur PowerPoint qui irait créer un doc Excel,
appelerait cette requête, puis récupérerait le résultat pour l'utiliser dans
le doc powerpoint.
Mon Problème est que je n'arrive pas à "tuer" définivement le doc Excel. Voici la macro simplifiée que j'essaye de faire tourner. Qq'un a t il une idée sur ce que j'aurais pu oublier?
Merci d'avance
(Dans Outils/Référence/ Microsoft Excel 8.0 Object library est coché)
Sub Macro1()
Dim ExcelApp As Object
Set ExcelApp = CreateObject("Excel.Application")
With ExcelApp .Workbooks.Add With ActiveSheet.QueryTables.Add(Connection:="FINDER;U:requête_test.dqy", _
