Lancer Excel à partir de PPT [Résolu]

[toma65]

Bonjour, contrairement à un autre sujet du forum,
je cherche à faire l'inverse, c'est à dire lancer mon fichier excel via powerpoint mais tout ce que j'ai essayé ne fonctionne pas.

merci

[Philippe JOCHMANS]

Bonjour

Et qu'à tu essayé, mets nous le code pour voir ce que tu as fait.

Starec

[toma65]

Code :

1
2
3
sub openxl ()
workbooks.Open FileName:="c:\mes documents\fichier.xls"
end sub

avant j'avais essayé

Code :

1
2
3
sub openxl ()
application.workbooks.Open ("c:\mes documents\fichier.xls")
end sub

[Nosty]

je pense que c'est workbooks qui n'est pas bon étant donné qu'il ne sait pas d'un fichier word ^^' (dites le moi si je me trompe)
Mais essai d'ouvrir un fichier Word avec ce code et si ça marche alors l'erreur viendra forcément de workbooks.

Donc il faudrait que tu trouves quel est la bonne expression pour lancer un fichier Excel.

[Philippe JOCHMANS]

Bonjour

Essaye ce code

Code :

1
2
3
4
5
6
7
8
9
Private Sub DémoPilotageExcel()
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim i as long
    Dim vtemp As Variant   
 
    'J'initialise mes variables
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\Chemin\Feuille.xls")

en cochant la référence Excel dans l'éditeur VBA

Starec

[toma65]

J'ai essayé workbooks avec un doc word, ca ne marche pas non plus
et là j'ai réessayé avec ce code mais ca marche toujours pas

Code :

1
2
3
4
5
Dim xl As Excel.Application
 
Sub openxl()
xl.workbooks.Open "c:\mes documents\fichier.xls"
End Sub

avec les parenthèses aussi ca change rien

[SilkyRoad]

bonjour

Code :

 ca ne marche pas non plus

quel est le message d'erreur et sur quelle ligne?


michel

[toma65]

Bonjour,

Je viens de revérifier le code qu'a posté Starec, j'avais mal vérifié puisque ça marche en fait. Le seul soucis c'est que physiquement ça ne lance pas excel.
Je me suis aperçu que ça marchais quand j'ai lancé le fichier sous excel et qu'on me disait que le fichier était déjà ouvert.
Moi j'ai besoin que ça lance vraiment excel, c'est surement pas grand chose.
Merci

[toma65]

J'ai trouvé!
Effectivement c'était pas grand chose.
Il suffisait de rajouter :

Code :

xl.Visible = True

Merci à tous

J'ai plus que mon problème de liaison à régler dans l'autre sujet