Discussion :

[yvespi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour

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

Philippe

[yvespi]

vous pensez a ecrire ca comme ca?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[yvespi]

j'ai essayé en écrivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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'

[Invité]

Re

Essayes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlApp.Run "Macro1"

Philippe

[yvespi]

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

pourtant dans mon fichier excel, la macro s'appelle bien calcul_system()

[Invité]

Re

C'est bien une routine Sub ?

Philippe

[yvespi]

ah oui.

elle est de la forme:

Sub calcul_system()

End Sub

[PPz78]

Dans le fil de discussion suivant ici


je viens de déposer un exemple de requête à une macro Excel depuis PowerPoint

[yvespi]

bonjour,

j'ai essayé en ecrivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    ChaineRun = "Cinematique.xls!calcul_system"

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

Yves

[yvespi]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlApp.Run "Macro1"

marche nikel...

merci beaucoup