lancer une macro excel a partir d'un fichier powerpoint

Version imprimable

Bonjour,

je sais comment importer des valeurs des textes d'un fichier powerpoint dans un classeur excel

parcontre je ne sais pas comment lancer un macro du fichier excel après l'importation des texte.

voici comment j'importe les valeurs:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 ' Ouverture d'Excel Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Set xlApp = CreateObject("Excel.Application") Dim Nom_Fichier As Variant ' Ouverture du fichier Excel devant recevoir les informations Nom_Fichier = ActivePresentation.Path & "\Cinematique.xls" Set xlBook = xlApp.Workbooks.Open(Nom_Fichier) xlApp.Sheets(1).Cells(1, 2) = texte_Name
et là j'aimerai qu'un macro du fichier excel se lance

merci par avance pour votre aide

Yves

14/06/2010, 15h58
Invité

Bonjour

Regardes du coté de la méthode Run de ton objet application Excel.

Philippe

vous pensez a ecrire ca comme ca?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
' Ouverture d'Excel
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = CreateObject("Excel.Application")
 
Dim Nom_Fichier As Variant
 
' Ouverture du fichier Excel devant recevoir les informations
Nom_Fichier = ActivePresentation.Path & "\Cinematique.xls"
Set xlBook = xlApp.Workbooks.Open(Nom_Fichier)
 
xlApp.Sheets(1).Cells(1, 2) = texte_Name
 
xlApp.Application.Run "'Cinematique.xls'!Macro1"

14/06/2010, 18h19
yvespi
j'ai essayé en écrivant:
Code:

1 2 xlBook.application.Run "Cinematique.xls!calcul_system"
et j'ai une erreur d'execution '1004':

Impossible de trouver la macro 'Cinematique.xls!calcul_system'
14/06/2010, 19h05
Invité

Re

Essayes

Code:

xlApp.Run "Macro1"

Philippe
14/06/2010, 19h15
yvespi

toujours la meme erreur...
impossible de trouver la macro 'calcul_system'

pourtant dans mon fichier excel, la macro s'appelle bien calcul_system()
14/06/2010, 19h24
Invité

Re

C'est bien une routine Sub ?

Philippe
14/06/2010, 19h27
yvespi

ah oui.

elle est de la forme:

Sub calcul_system()

End Sub
14/06/2010, 22h33
PPz78

Dans le fil de discussion suivant ici

je viens de déposer un exemple de requête à une macro Excel depuis PowerPoint
15/06/2010, 09h37
yvespi

bonjour,

j'ai essayé en ecrivant

Code:

ChaineRun = "Cinematique.xls!calcul_system"

je n'ai pas de message d'erreur mais la macro ne s'est pas lancé pour autant...

Yves
15/06/2010, 15h48
yvespi

bon alors, sans avoir rien changé par rapport aux précédants essais la solution de philippe:

Code:

xlApp.Run "Macro1"

marche nikel...

merci beaucoup