Ouvrir excel depuis powerpoint

[Proz]

Bonsoir,

Je cherche à ouvrir un classeur excel depuis un slide powerpoint.
J'ai intégré des command button dans mon fichier powerpoint avec un code vba pour ouvrir un classeur excel mais impossible?
Quel type de code doit-on écrire?Est ce le même langage?

 

[cbea]

Re : Ouvrir excel depuis powerpoint

Bonsoir Proz,

Voici le code à mettre dans un bouton qui se trouve sur un slide :

    Dim RetVal
    
    RetVal = Shell("EXCEL.EXE", 1)

 

[Proz]

Re : Ouvrir excel depuis powerpoint



Bonsoir,

Ca fonctionne pour ouvrir un classeur excel vierge mais lorsque j'indique le chemin jusqu'à mon_fichier.xls, ca marche pas?

 

[Marc77]

Re : Ouvrir excel depuis powerpoint

Bonsoir Proz et cbea

Il y a aussi la possibilitée avec un lien hypertexte.

 

[Proz]

Re : Ouvrir excel depuis powerpoint


Je sais mais l'idée du vba me semblait attrayante

 

[cbea]

Re : Ouvrir excel depuis powerpoint

re,

Voici une autre solution :

Sub Test
    Dim ID As Variant
    Dim Fichier As String
    
    Fichier = "C:\chemin complet\nomfichier.xls"
    
    ' Vérifier que le fichier existe
    If Dir(Fichier, vbDirectory) = "" Then
        MsgBox "Le fichier est introuvable"
        Exit Sub
    End If
    
    Fichier = """EXCEL.EXE"" ""C:\chemin complet\nomfichier.xls"""
    ID = Shell(Fichier, vbNormalNoFocus)
End Sub

Il faut remplacer :
1/ "C:\chemin complet" par le chemin complet où se trouve le fichier
2/ "nomfichier.xls" par le nom du fichier Excel

J'ai fait un essai avec un fichier et celui-ci s'ouvre à l'exécution de ce code.

 

[Proz]

Re : Ouvrir excel depuis powerpoint



Salut,
Merci le code fonctionne.
Tu vas dire que je suis relou mais le slide pps s'affiche à l'écran et je souhaiterais que la feuil excel s'ouvre au 1re plan. Est ce possible?

 

[cbea]

Re : Ouvrir excel depuis powerpoint

Bonjour Proz,

Je n'ai pas fait l'essai.
Remplacer :

ID = Shell(Fichier, vbNormalNoFocus)

par :

ID = Shell(Fichier, vbMaximizedFocus)

 

[Proz]

Re : Ouvrir excel depuis powerpoint



Merci beaucoup, cela fonctionne très bien.
Merci.

 

[farid]

Re : Ouvrir excel depuis powerpoint

re,

Voici une autre solution :

Sub Test
    Dim ID As Variant
    Dim Fichier As String
   
    Fichier = "C:\chemin complet\nomfichier.xls"
   
    ' Vérifier que le fichier existe
    If Dir(Fichier, vbDirectory) = "" Then
        MsgBox "Le fichier est introuvable"
        Exit Sub
    End If
   
    Fichier = """EXCEL.EXE"" ""C:\chemin complet\nomfichier.xls"""
    ID = Shell(Fichier, vbNormalNoFocus)
End Sub

Il faut remplacer :
1/ "C:\chemin complet" par le chemin complet où se trouve le fichier
2/ "nomfichier.xls" par le nom du fichier Excel

J'ai fait un essai avec un fichier et celui-ci s'ouvre à l'exécution de ce code.

Merci